version 1.9, 2018/12/16 00:17:04 |
version 1.13, 2020/01/08 10:37:53 |
Line 27 use IPC::Open3 qw(open3); |
|
Line 27 use IPC::Open3 qw(open3); |
|
# Define this at one place such that it can easily be changed |
# Define this at one place such that it can easily be changed |
# if diff(1) does not support the -a option. |
# if diff(1) does not support the -a option. |
my @diff = qw(diff -au); |
my @diff = qw(diff -au); |
|
system @diff, '/dev/null', '/dev/null' and @diff = qw(diff -u); |
|
|
# --- utility functions ------------------------------------------------ |
# --- utility functions ------------------------------------------------ |
|
|
Line 85 sub syshtml ($@) { |
|
Line 86 sub syshtml ($@) { |
|
if (!$state && s/.*<math class="eqn">//) { |
if (!$state && s/.*<math class="eqn">//) { |
$state = 'math'; |
$state = 'math'; |
next unless length; |
next unless length; |
} elsif (/^BEGINTEST/) { |
} elsif (/BEGINTEST/) { |
$state = 'other'; |
$state = 'other'; |
|
next; |
|
} elsif (/ENDTEST/) { |
|
$state = 0; |
|
next; |
} |
} |
if ($state eq 'math') { |
if ($state eq 'math') { |
s/^ *//; |
s/^ *//; |
Line 97 sub syshtml ($@) { |
|
Line 102 sub syshtml ($@) { |
|
} |
} |
} |
} |
print $outfd "$_\n" if $state; |
print $outfd "$_\n" if $state; |
$state = 0 if /^ENDTEST/; |
|
} |
} |
close $outfd; |
close $outfd; |
close $infd; |
close $infd; |
Line 161 foreach my $module (qw(roff char mdoc man tbl eqn)) { |
|
Line 165 foreach my $module (qw(roff char mdoc man tbl eqn)) { |
|
my %subvars = (MOPTS => ''); |
my %subvars = (MOPTS => ''); |
parse_makefile "$module/$subdir/Makefile", \%subvars; |
parse_makefile "$module/$subdir/Makefile", \%subvars; |
parse_makefile "$module/Makefile.inc", \%subvars; |
parse_makefile "$module/Makefile.inc", \%subvars; |
|
delete $subvars{GOPTS}; |
delete $subvars{SKIP_GROFF}; |
delete $subvars{SKIP_GROFF}; |
delete $subvars{SKIP_GROFF_ASCII}; |
delete $subvars{SKIP_GROFF_ASCII}; |
delete $subvars{TBL}; |
|
delete $subvars{EQN}; |
|
my @mandoc = ('../mandoc', split ' ', $subvars{MOPTS}); |
my @mandoc = ('../mandoc', split ' ', $subvars{MOPTS}); |
delete $subvars{MOPTS}; |
delete $subvars{MOPTS}; |
my @regress_testnames; |
my @regress_testnames; |
Line 423 if ($count_total == 1) { |
|
Line 426 if ($count_total == 1) { |
|
print "\n"; |
print "\n"; |
} else { |
} else { |
print "No tests were run.\n"; |
print "No tests were run.\n"; |
} |
} |
if ($targets{clean}) { |
if ($targets{clean}) { |
if ($count_rm) { |
if ($count_rm) { |
print "Deleted $count_rm test output files.\n"; |
print "Deleted $count_rm test output files.\n"; |