diff options
Diffstat (limited to 'regress/regress.pl')
-rwxr-xr-x | regress/regress.pl | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/regress/regress.pl b/regress/regress.pl index 3c6e64df..fc320c07 100755 --- a/regress/regress.pl +++ b/regress/regress.pl @@ -1,6 +1,6 @@ #!/usr/bin/env perl # -# $Id: regress.pl,v 1.14 2020/03/13 15:32:31 schwarze Exp $ +# $Id: regress.pl,v 1.15 2020/07/21 15:14:20 schwarze Exp $ # # Copyright (c) 2017, 2018, 2019, 2020 Ingo Schwarze <schwarze@openbsd.org> # @@ -267,12 +267,13 @@ for my $test (@regress_tests) { $test->{NAME} =~ /^$onlytest/) { $count_tag++; $count_total++; - local $ENV{MANPAGER} = "./copyless $test->{NAME}"; my @cmd = (qw(../man -l), @{$test->{MOPTS}}, - qw(-I os=OpenBSD -T ascii), $i); + qw(-I os=OpenBSD -T ascii -O), + "outfilename=$o,tagfilename=$to", "$i"); print "@cmd\n" if $targets{verbose}; system @cmd and fail $test->{NAME}, 'tag:man'; + system qw(sed -i), 's/ .*\// /', $to; system @diff, $tw, $to and fail $test->{NAME}, 'tag:diff'; print "." unless $targets{verbose}; |