test suite: Check that archive skew machinery succeeds

This is actually the point of this test case.

perling $tmp/aq/package... is a bit of a bodge, but fine.

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

diff --git a/tests/tests/clone-skew b/tests/tests/clone-skew
index cedcf1faa1755648a082f0cc14d4ca87d132141a..39fcb412fb0ddc0e09f4c69880a9ba043ac639a8 100755 (executable)
--- a/tests/tests/clone-skew
+++ b/tests/tests/clone-skew
@@ -15,6 +15,14 @@ t_archive_ln_s=cp
 t-archive example 1.0-1
 t-git-none
 
+perl -i -ne '
+       print or die $!;
+       s/1.0-1/1.0-1+0.1/g;
+       s/ \w/ sprintf " %x", $& ^ 1 /e;
+       print or die $!;
+' $tmp/aq/package.sid.$p
+t-aq-archive-updated sid $p
+
 t-dgit clone $p
 
 cd $p