add about 15 missing character escape sequences found in groff_char(7);

[mandoc.git] / regress / regress.pl

diff --git a/regress/regress.pl b/regress/regress.pl
index d7abf650e793f1a2c6622628ad8f45262a327a8d..4ba905aff6ce46200c0e7b53f96cd66f17df8763 100755 (executable)
--- a/regress/regress.pl
+++ b/regress/regress.pl
@@ -1,6 +1,6 @@
 #!/usr/bin/env perl
 #
-# $Id: regress.pl,v 1.4 2017/03/05 19:57:39 schwarze Exp $
+# $Id: regress.pl,v 1.6 2017/05/30 19:30:40 schwarze Exp $
 #
 # Copyright (c) 2017 Ingo Schwarze <schwarze@openbsd.org>
 #
@@ -163,7 +163,7 @@ my @mandoc = '../mandoc';
 my @subdir_names;
 my (@regress_testnames, @utf8_testnames, @lint_testnames);
 my (@html_testnames, @markdown_testnames);
-my (%skip_ascii, %skip_man);
+my (%skip_ascii, %skip_man, %skip_markdown);
 
 push @mandoc, split ' ', $vars{MOPTS} if $vars{MOPTS};
 delete $vars{MOPTS};
@@ -206,12 +206,17 @@ if (defined $vars{SKIP_TMAN}) {
        $skip_man{$_} = 1 for split ' ', $vars{SKIP_TMAN};
        delete $vars{SKIP_TMAN};
 }
+if (defined $vars{SKIP_MARKDOWN}) {
+       $skip_markdown{$_} = 1 for split ' ', $vars{SKIP_MARKDOWN};
+       delete $vars{SKIP_MARKDOWN};
+}
 if (keys %vars) {
        my @vars = keys %vars;
        die "unknown var(s) @vars";
 }
 map { $skip_ascii{$_} = 1; } @regress_testnames if $skip_ascii{ALL};
 map { $skip_man{$_} = 1; } @regress_testnames if $skip_man{ALL};
+map { $skip_markdown{$_} = 1; } @regress_testnames if $skip_markdown{ALL};
 
 # --- run targets ------------------------------------------------------
 
@@ -307,12 +312,12 @@ for my $testname (@html_testnames) {
 }
 
 my $count_markdown = 0;
-for my $testname (@markdown_testnames) {
+for my $testname (@regress_testnames) {
        next if $onlytest && $testname ne $onlytest;
        my $i = "$subdir/$testname.in";
        my $o = "$subdir/$testname.mandoc_markdown";
        my $w = "$subdir/$testname.out_markdown";
-       if ($targets{markdown}) {
+       if ($targets{markdown} && !$skip_markdown{$testname}) {
                $count_markdown++;
                $count_total++;
                print "@mandoc -T markdown $i\n" if $targets{verbose};
@@ -336,8 +341,8 @@ for my $testname (@lint_testnames) {
        if ($targets{lint}) {
                $count_lint++;
                $count_total++;
-               print "@mandoc -T lint $i\n" if $targets{verbose};
-               syslint $o, @mandoc, qw(-T lint), $i
+               print "@mandoc -T lint -W all $i\n" if $targets{verbose};
+               syslint $o, @mandoc, qw(-T lint -W all), $i
                    and fail $subdir, $testname, 'lint:mandoc';
                system @diff, $w, $o
                    and fail $subdir, $testname, 'lint:diff';