test suite: manpages-format: work properly when no expected warnings

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

diff --git a/tests/tests/manpages-format b/tests/tests/manpages-format
index c905445ba033f24862c3101ce9f98cfba9160ea7..79efb87581af18278bff959c6ec5ab60a577ba07 100755 (executable)
--- 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; }
        ' "$@"
 }