chiark
/
gitweb
/
~ianmdlvl
/
dgit.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Test suite: Use stunt Dpkg::Changelog::Parse
[dgit.git]
/
tests
/
tstunt
/
dpkg-parsechangelog
diff --git
a/tests/tstunt/dpkg-parsechangelog
b/tests/tstunt/dpkg-parsechangelog
index 2e0360da112c2793532d752ff1bfc6944d782490..c45b12465f462721bec1245d6729b888359afa5d 100755
(executable)
--- a/
tests/tstunt/dpkg-parsechangelog
+++ b/
tests/tstunt/dpkg-parsechangelog
@@
-14,10
+14,16
@@
# sys 0m0.012s
# $
# sys 0m0.012s
# $
+my $infile = "debian/changelog";
+
+if (@ARGV && $ARGV[0] =~ s/^-l//) {
+ $infile = shift @ARGV;
+}
+
die if @ARGV;
use strict;
die if @ARGV;
use strict;
-open C,
"debian/changelog"
or die $!;
+open C,
$infile
or die $!;
$!=0; $_ = <C>;
m/^(\S+) \(([^()]+)\) (\S+)\; urgency=(\S+)$/ or die "$!, $_ ?";
$!=0; $_ = <C>;
m/^(\S+) \(([^()]+)\) (\S+)\; urgency=(\S+)$/ or die "$!, $_ ?";