tests/tests/clone-skew

   1 #!/bin/bash
   2 set -e
   3 . tests/lib
   4
   5 t-dependencies libhttp-server-simple-static-perl
   6
   7 $troot/http-static-server >$tmp/must-clean/mirror.port $tmp/mirror
   8 read <$tmp/must-clean/mirror.port mirror_port
   9
  10 t-git-config --global dgit-distro.test-dummy.mirror \
  11         http://127.0.0.1:$mirror_port/
  12
  13 t_archive_ln_s=cp
  14
  15 t-archive example 1.0-1
  16 t-git-none
  17
  18 perl -i -ne '
  19         print or die $!;
  20         s/1.0-1/1.0-1+0.1/g;
  21         s/ \w/ sprintf " %x", $& ^ 1 /e;
  22         print or die $!;
  23 ' $tmp/aq/package.sid.$p
  24 t-aq-archive-updated sid $p
  25
  26 LC_MESSAGES=C \
  27 t-dgit clone $p 2>&1 |tee got.message
  28
  29 grep 'Warning: archive skew detected.'       got.message
  30 egrep 'We were able to obtain only  *1.0-1$' got.message
  31
  32 cd $p
  33 t-cloned-fetched-good
  34
  35 t-ok