Test suite: tstunt-parsechangelog: Produce Timestamp field

[dgit.git] / tests / tstunt / dpkg-parsechangelog

diff --git a/tests/tstunt/dpkg-parsechangelog b/tests/tstunt/dpkg-parsechangelog
index ce2d66dcab3c32b26f3578da9c26df57cddcaad9..ba6ef54ad634d32e02d0af986e4d3c0db4e712c6 100755 (executable)
--- a/tests/tstunt/dpkg-parsechangelog
+++ b/tests/tstunt/dpkg-parsechangelog
@@ -28,10 +28,11 @@ if (@ARGV) {
     my $strip = $0;
     $strip =~ s#/[^/]+$## or die "$0 ?";
     foreach my $k (qw(PATH PERLLIB)) {
-       my @opath = split /\:/, $ENV{$k};
+       my @opath = defined $ENV{$k} ? split /\:/, $ENV{$k} : ();
        my @npath = grep { $_ ne $strip } @opath;
-       @npath != @opath  or die "$0 $k $ENV{$k} ?";
+       @npath != @opath  or die "$0 $k ".($ENV{$k}//"(undef)")." ?";
        $ENV{$k} = join ':', @npath;
+       delete $ENV{$k} if !@npath;
     }
     die if $ENV{'DGIT_NO_TSTUNT_CLPARSE'}++;
     exec 'dpkg-parsechangelog', @orgargv;
@@ -59,7 +60,8 @@ for (;;) {
 Maintainer: $1
 Date: $2
 END
-        last;
+       print "Timestamp: " or die $!;
+       exec qw(date +%s -d), $2; die $!;
     } elsif (m/^ --\s*$/) {
        last;
     } elsif (!m/\S/) {