chiark / gitweb /
dgit-repos-policy-debian: Fix error handling, and test fixes
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Mon, 11 May 2015 06:59:00 +0000 (07:59 +0100)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Sun, 31 May 2015 10:54:11 +0000 (11:54 +0100)
infra/dgit-repos-policy-debian
tests/lib

index b631d07..ac42712 100755 (executable)
@@ -88,7 +88,7 @@ sub apiquery ($) {
     $cmd .= " archive-api-query $subpath";
     printdebug "apiquery $cmd\n";
     $!=0; $?=0; my $json = `$cmd`;
-    defined $json or die "$subpath $! $?";
+    defined $json && !$? or die "$subpath $! $?";
     my $r = decode_json $json;
     my $d = new Data::Dumper([$r], [qw(r)]);
     printdebug "apiquery $subpath | ", $d->Dump() if $debuglevel>=2;
index 0e188cc..3428189 100644 (file)
--- a/tests/lib
+++ b/tests/lib
@@ -101,12 +101,15 @@ t-prep-newpackage () {
 t-archive-none () {
        p=$1
        mkdir -p $tmp/aq $tmp/mirror/pool/main
-       mkdir -p $tmp/aq/dsc_in_suite $tmp/aq/dsc_in_suite/sid
 
        local suite=sid
+
        >$tmp/aq/package.$suite.$p
        t-archive-updated $suite $p
 
+       >$tmp/aq/package.new.$p
+       t-archive-updated new $p
+
        ln -s sid $tmp/aq/dsc_in_suite/unstable
        cat <<'END' >$tmp/aq/suites
 [
@@ -128,7 +131,9 @@ END
 t-archive-updated () {
        local suite=$1
        local p=$2
-       perl <$tmp/aq/package.$suite.$p >$tmp/aq/dsc_in_suite/$suite/$p -wne '
+       local suitedir=$tmp/aq/dsc_in_suite/$suite
+       mkdir -p $suitedir
+       perl <$tmp/aq/package.$suite.$p >$suitedir/$p -wne '
                use JSON;
                use strict;
                our @v;