nroff-scan.pl: detect double highlights

diff --git a/tests/nroff-scan.pl b/tests/nroff-scan.pl
index 161721ffa11c39c9d17eea18582bdeaeef21221e..c310256a0abcdd3c6d826a1bde17931e4df5eb47 100755 (executable)
--- a/tests/nroff-scan.pl
+++ b/tests/nroff-scan.pl
@@ -64,6 +64,10 @@ sub file {
         my $l = $_;
         while($l =~ s/\\f(.)([^ ]*)\\f(.)//) {
             my ($pre, $str, $post)=($1, $2, $3);
+            if($str =~ /^\\f[ib]/i) {
+                print "error: $f:$line: double-highlight\n";
+                $errors++;
+            }
             if($post ne "P") {
                 print "error: $f:$line: missing \\fP after $str\n";
                 $errors++;