. tests/lib
. $troot/lib-reprepro
+t-dependencies reprepro
t-setup-import examplegit
t-tstunt-parsechangelog
cd $p
filter \
refs/heads/master \
- refs/remotes/dgit/dgit/sid \
+ refs/remotes/dgit/dgit/sid
+
+t-ref-head
cd ../git/$p.git
filter \
suitespecs=avon
t-reprepro-cfg ds- downstream
t-reprepro-setup ds-
+distro=''
-t-reprepro-includedsc avon $tmp/mirror/pool/main/example_1.1.dsc ds-
+dscf=$tmp/mirror/pool/main/example_1.1.dsc
+t-reprepro-includedsc avon $dscf ds-
t-reprepro-regen ds-
-distro=''
+
+mkdir $p.import
+cd $p.import
+git init
+t-dgit import-dsc $dscf x
+cd ..
t-git-config dgit-suite.avon.distro downstream
t-git-config dgit-distro.downstream.git-check false
t-dgit clone example avon example.avon
-t-reprepro-includedsc avon $tmp/mirror/pool/main/example_2.1.dsc ds-
+
+perl -i -pe 's/ test-dummy / unknown-distro / if m/^Dgit:/' $dscf
+cd $p.import
+
+t-expect-fail 'hinted url with protocol file which is unsafe' \
+t-dgit import-dsc $dscf xunk
+
+t-git-config dgit.dsc-url-proto-ok.file true
+t-dgit import-dsc $dscf xunk
+
+cd ..
+
+
+dscf=$tmp/mirror/pool/main/example_2.1.dsc
+t-reprepro-includedsc avon $dscf ds-
+t-reprepro-regen ds-
+
cd $p.avon
t-dgit fetch
+t-ref-same refs/remotes/dgit/dgit/avon
+
+cd ../$p.import
+git init
+t-dgit import-dsc $dscf +x
+t-ref-same refs/heads/x
+git show x | grep Spong
+
+t-expect-fail 'Your git tree does not have that object' \
+t-dgit --no-chase-dsc-distro import-dsc $dscf +y
+
+cd ../$p
+t-dgit --no-chase-dsc-distro import-dsc $dscf +y
+git show y | grep Sid
-#t-ok
+t-ok