diff options
author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2018-06-28 15:53:28 +0100 |
---|---|---|
committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2018-06-30 23:25:45 +0100 |
commit | 0e41808f2b25117c153c55d3913d85ce21b735fd (patch) | |
tree | a75095f259e7e47f2056a1e3983b53c6ec2e28bb /tests/tests/manpages-format | |
parent | 50bfd6bbefcfad5b5bc35a70085bc892a7f9e78d (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/tests/manpages-format')
-rwxr-xr-x | tests/tests/manpages-format | 6 |
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; } ' "$@" } |