chiark / gitweb /
test suite: manpages-format: Test -Tps too
[dgit.git] / tests / tests / manpages-format
index 79eda7529dbc519df7d77f7c1d031b84b1497576..3f3362b6ea8e3dd429593b3ca0596a02f0a482d8 100755 (executable)
@@ -19,11 +19,11 @@ run_man () {
                make $roff >&2
                cmd='man "$@" -l $roff'
        fi
                make $roff >&2
                cmd='man "$@" -l $roff'
        fi
-       eval "$cmd 2>&1 >/dev/null |tee $errs >&2"
+       eval "$cmd 2>&1 >/dev/null |tee $errs"
 }
 
 for roff in $manpages; do
 }
 
 for roff in $manpages; do
-       for fmt in txt; do
+       for fmt in txt ps; do
                >$tmp/$roff.$fmt-expected
        done
 done
                >$tmp/$roff.$fmt-expected
        done
 done
@@ -37,12 +37,14 @@ not_egrep_vxPf () {
        perl -ne '
                BEGIN () {
                        open PATS, shift @ARGV or die $!;
        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;
                }
                next if m{$re};
                print STDERR "unexpected: $_";
                $bad = 1;
-               END { die "unexpected, re= $re\n" if $bad; }
+               END { die "unexpected errors\n" if $bad; }
        ' "$@"
 }
 
        ' "$@"
 }
 
@@ -65,7 +67,11 @@ for roff in $manpages; do
        page=${roff%.*}
 
        prep txt
        page=${roff%.*}
 
        prep txt
-       run_man >/dev/null
+       run_man
+       check
+
+       prep ps
+       run_man -Tps
        check
 done
 
        check
 done