summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorIan Jackson <ijackson@chiark.greenend.org.uk>2018-06-28 15:53:28 +0100
committerIan Jackson <ijackson@chiark.greenend.org.uk>2018-06-30 23:25:45 +0100
commit0e41808f2b25117c153c55d3913d85ce21b735fd (patch)
treea75095f259e7e47f2056a1e3983b53c6ec2e28bb /tests
parent50bfd6bbefcfad5b5bc35a70085bc892a7f9e78d (diff)
test suite: manpages-format: work properly when no expected warnings
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
Diffstat (limited to 'tests')
-rwxr-xr-xtests/tests/manpages-format6
1 files changed, 4 insertions, 2 deletions
diff --git a/tests/tests/manpages-format b/tests/tests/manpages-format
index c905445..79efb87 100755
--- a/tests/tests/manpages-format
+++ b/tests/tests/manpages-format
@@ -37,12 +37,14 @@ not_egrep_vxPf () {
perl -ne '
BEGIN () {
open PATS, shift @ARGV or die $!;
- $re = join "|", map { chomp; qr{^(?:$_)$} } <PATS>;
+ $re = join "|", map { chomp; qr{^(?:$_)$} }
+ qr{^(?=a)b}, <PATS>;
+ print STDERR "RE $re\n";
}
next if m{$re};
print STDERR "unexpected: $_";
$bad = 1;
- END { die "unexpected, re= $re\n" if $bad; }
+ END { die "unexpected errors\n" if $bad; }
' "$@"
}