X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=dgit.git;a=blobdiff_plain;f=tests%2Ftests%2Fmanpages-format;h=79efb87581af18278bff959c6ec5ab60a577ba07;hp=c905445ba033f24862c3101ce9f98cfba9160ea7;hb=0e41808f2b25117c153c55d3913d85ce21b735fd;hpb=50bfd6bbefcfad5b5bc35a70085bc892a7f9e78d

diff --git a/tests/tests/manpages-format b/tests/tests/manpages-format
index c905445b..79efb875 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; }
 	' "$@"
 }