version 1.14, 2020/03/13 15:32:31 |
version 1.15, 2020/07/21 15:14:20 |
Line 267 for my $test (@regress_tests) { |
|
Line 267 for my $test (@regress_tests) { |
|
$test->{NAME} =~ /^$onlytest/) { |
$test->{NAME} =~ /^$onlytest/) { |
$count_tag++; |
$count_tag++; |
$count_total++; |
$count_total++; |
local $ENV{MANPAGER} = "./copyless $test->{NAME}"; |
|
my @cmd = (qw(../man -l), @{$test->{MOPTS}}, |
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}; |
print "@cmd\n" if $targets{verbose}; |
system @cmd |
system @cmd |
and fail $test->{NAME}, 'tag:man'; |
and fail $test->{NAME}, 'tag:man'; |
|
system qw(sed -i), 's/ .*\// /', $to; |
system @diff, $tw, $to |
system @diff, $tw, $to |
and fail $test->{NAME}, 'tag:diff'; |
and fail $test->{NAME}, 'tag:diff'; |
print "." unless $targets{verbose}; |
print "." unless $targets{verbose}; |