chiark / gitweb /
test suite: manpages-format: work properly when no expected warnings
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Thu, 28 Jun 2018 14:53:28 +0000 (15:53 +0100)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Sat, 30 Jun 2018 22:25:45 +0000 (23:25 +0100)
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
tests/tests/manpages-format

index c905445..79efb87 100755 (executable)
@@ -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; }
        ' "$@"
 }