Test suite: stunt parsechangelog: Some commented-out debugging

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

diff --git a/tests/tstunt/Dpkg/Changelog/Parse.pm b/tests/tstunt/Dpkg/Changelog/Parse.pm
index 89b5e577de868ba8b1ac270cf681cdded699725f..d69b7dfe247b9ee3a9280cf3e112f0534684d551 100644 (file)
--- a/tests/tstunt/Dpkg/Changelog/Parse.pm
+++ b/tests/tstunt/Dpkg/Changelog/Parse.pm
@@ -60,6 +60,9 @@ sub changelog_parse {
     my $fields = Dpkg::Control::Changelog->new();
     $fields->parse(\*P, "output of stunt changelog parser");
 
     my $fields = Dpkg::Control::Changelog->new();
     $fields->parse(\*P, "output of stunt changelog parser");
 

+#use Data::Dumper;
+#print STDERR "PARSE $0 ", Dumper($fields);
+

     close P or die "$! $?";
 
     return $fields;
     close P or die "$! $?";
 
     return $fields;

diff --git a/tests/tstunt/dpkg-parsechangelog b/tests/tstunt/dpkg-parsechangelog
index ba6ef54ad634d32e02d0af986e4d3c0db4e712c6..6a9198abb21caccb7b0dc5f5e25fb901e9c08867 100755 (executable)
--- a/tests/tstunt/dpkg-parsechangelog
+++ b/tests/tstunt/dpkg-parsechangelog
@@ -18,6 +18,8 @@ $SIG{__WARN__} = sub { die $_[0]; }; # no use of system, so we avoid #793471
 
 my $infile = "debian/changelog";
 
 
 my $infile = "debian/changelog";
 

+#print STDERR ">@ARGV<\n";
+

 my @orgargv = @ARGV;
 
 if (@ARGV && $ARGV[0] =~ s/^-l//) {
 my @orgargv = @ARGV;
 
 if (@ARGV && $ARGV[0] =~ s/^-l//) {