From da2456e64add31d0ad28e2905b7a55e0ecb7000d Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Sun, 9 Oct 2016 12:37:34 +0100 Subject: Test suite: stunt Parse.pm: add comment about %options Signed-off-by: Ian Jackson --- tests/tstunt/Dpkg/Changelog/Parse.pm | 17 ++++++++++++++++- 1 file changed, 16 insertions(+), 1 deletion(-) (limited to 'tests/tstunt/Dpkg') diff --git a/tests/tstunt/Dpkg/Changelog/Parse.pm b/tests/tstunt/Dpkg/Changelog/Parse.pm index 677580b..32be2dd 100644 --- a/tests/tstunt/Dpkg/Changelog/Parse.pm +++ b/tests/tstunt/Dpkg/Changelog/Parse.pm @@ -36,7 +36,22 @@ our @EXPORT = qw(changelog_parse); die +(join " ", %ENV)." ?" if $ENV{'DGIT_NO_TSTUNT_CLPARSE'}; sub changelog_parse { - my (%options) = @_; # ignored + my (%options) = @_; # largely ignored + +#use Data::Dumper; +#print STDERR "CLOG PARSE ", Dumper(\%options); +# +# We can't do this because lots of things use `since' which +# we don't implement, and it's the test cases that arrange that +# the since value happens to be such that we are to print one output. +# +# foreach my $k (keys %options) { +# my $v = $options{$k}; +# if ($k eq 'file') { } +# elsif ($k eq 'offset') { die "$v ?" unless $v <= 1; } # wtf, 1==0 ? +# elsif ($k eq 'count') { die "$v ?" unless $v == 1; } +# else { die "$k ?"; } +# } $options{'file'} //= 'debian/changelog'; -- cgit v1.2.3