test suite: clone-skew: Test for accessing mirror via http

[dgit.git] / tests / tests / clone-skew

diff --git a/tests/tests/clone-skew b/tests/tests/clone-skew
new file mode 100755 (executable)
index 0000000..cedcf1f
--- /dev/null
+++ b/tests/tests/clone-skew
@@ -0,0 +1,23 @@
+#!/bin/bash
+set -e
+. tests/lib
+
+t-dependencies libhttp-server-simple-static-perl
+
+$troot/http-static-server >$tmp/must-clean/mirror.port $tmp/mirror
+read <$tmp/must-clean/mirror.port mirror_port
+
+t-git-config --global dgit-distro.test-dummy.mirror \
+       http://127.0.0.1:$mirror_port/
+
+t_archive_ln_s=cp
+
+t-archive example 1.0-1
+t-git-none
+
+t-dgit clone $p
+
+cd $p
+t-cloned-fetched-good
+
+t-ok