root=`pwd`
troot=$root/tests
-testname="${0##*/}"
+testname="${DGIT_TEST_TESTNAME-${0##*/}}"
tmp=$ADTTMP
if [ x"$tmp" = x ]; then
mkdir $tmp
fi
cd $tmp
+export HOME=$tmp
+
tmp=`pwd`
export DGIT_TEST_DUMMY_DIR=$tmp
-ln $troot/ssh ssh
+ln -f $troot/ssh ssh
-mkdir $tmp/gnupg
+mkdir -p $tmp/gnupg
cp $troot/gnupg/* $tmp/gnupg
chmod go-rw $tmp/gnupg/*
export GNUPGHOME=$tmp/gnupg
-mkdir $tmp/incoming
+mkdir -p $tmp/incoming
cat <<END >$tmp/dput.cf
[test-dummy]
method = local
}
t-dgit () {
- : '{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{'
+ : '
+
+{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{'
${DGIT_TEST-dgit} --dget:-u --dput:--config=$tmp/dput.cf \
- -dtest-dummy -D -k39B13D8A "$@"
- : '}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}'
+ -dtest-dummy $DGIT_TEST_OPTS -D -k39B13D8A "$@"
+ : '}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}
+'
}
t-diff-nogit () {
git verify-tag `t-v-tag`
}
-t-ref-dsc-dgit () {
- local dsc=${p}_${v}.dsc
- local val=`perl -e '
+t-822-field () {
+ local file=$1
+ local field=$2
+ perl -e '
use Dpkg::Control::Hash;
my $h = new Dpkg::Control::Hash allow_pgp=>1;
- $h->parse(\*STDIN,"dsc");
- my $ref = $h->{"Dgit"},"\n";
- die unless $ref =~ m/^\w+\b/;
- print $ref,"\n";
- ' <$tmp/incoming/$dsc`
+ $h->parse(\*STDIN,"'"$file"'");
+ my $val = $h->{"'$field'"},"\n";
+ die "'"$file $field"'" unless defined $val;
+ print $val,"\n";
+ ' <$file
+}
+
+t-ref-dsc-dgit () {
+ local dsc=${p}_${v}.dsc
+ local val=`t-822-field $tmp/incoming/$dsc Dgit`
+ perl -e '$_=shift @ARGV; die "$dsc Dgit $_ ?" unless m/^\w+\b/;' "$val"
t-ref-same-val $dsc "$val"
}
(cd $troot/pkg-srcs; debdiff ${p}_${v1}.dsc ${p}_${v2}.dsc) \
| patch -p1 -u
}
+
+t-git-config () {
+ git config --global "$@"
+}
+
+t-drs () {
+ export DGIT_TEST_TROOT=$troot
+ export DGIT_TEST_TMP=$tmp
+ t-git-config dgit-distro.test-dummy.git-url "ext::$troot/drs-git-ext %S "
+ t-git-config dgit-distro.test-dummy.git-check true
+ t-git-config dgit-distro.test-dummy.git-create true
+}
+
+t-drs-test () {
+ t-drs
+ cd $root
+ export DGIT_TEST_TESTNAME="$testname"
+ export ADTTMP=$tmp
+ cp $root/tests/gnupg/{dd.gpg,dm.gpg,dm.txt} $tmp/.
+ cp $root/tests/suites $tmp/.
+ exec "${0///drs-//}" "$@"
+}