diff options
-rwxr-xr-x | dgit-repos-server | 9 | ||||
-rw-r--r-- | tests/lib | 1 |
2 files changed, 9 insertions, 1 deletions
diff --git a/dgit-repos-server b/dgit-repos-server index 57cb5be..ad4cde5 100755 --- a/dgit-repos-server +++ b/dgit-repos-server @@ -451,6 +451,14 @@ sub checksuite () { reject "unknown suite"; } +sub tagh1 ($) { + my ($tag) = @_; + my $vals = $tagh{$tag}; + reject "missing tag $tag in signed tag object" unless $vals; + reject "multiple tags $tag in signed tag object" unless @$vals == 1; + return $vals->[0]; +} + sub checks () { debug "checks"; checksuite(); @@ -485,7 +493,6 @@ sub onwardpush () { sub stunthook () { debug "stunthook"; - print Dumper(\$ENV{GIT_DIR}); chdir $workrepo or die "chdir $workrepo: $!"; mkdir "dgit-tmp" or $!==EEXIST or die $!; readupdates(); @@ -238,5 +238,6 @@ t-drs-test () { 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-//}" "$@" } |