}
check () {
- rm -rf $p.cloned
+ pd=$p.$suite
t-refs-same-start
t-archive-none $p
t-archive-query $suite
- t-dgit clone $p $suite $p.cloned
- cd $p.cloned
+ t-dgit clone $p $suite $pd
+ cd $pd
t-ref-head
$1
reset () {
cd ..
- rm -rf $p.cloned
- mkdir $p.cloned
- cd $p.cloned
+ rm -rf $pd
+ mkdir $pd
+ cd $pd
git init
}
perl -i~ -pe 's/^(Dgit: \w+ \S+ \S+) (.*)/$1\n $2 EXTRA/' $dscf
-check
+check reset
: ---------- older ----------
check
+: ---------- expect fail ----------
+
+pd=$p.fail
+
+t-git-config dgit.default.old-dsc-distro downstream
+
+t-expect-fail 'no configured url and .dsc provides no hint' \
+t-dgit clone $p $suite $pd
+
+
t-ok