mandoc/regress/regress.pl - diff

Return to regress.pl CVS log

Up to [cvsweb.bsd.lv] / mandoc / regress

version 1.15, 2020/07/21 15:14:20

version 1.16, 2021/09/19 12:15:34

Line 2

# $Id$

# Permission to use, copy, modify, and distribute this software for any

# purpose with or without fee is hereby granted, provided that the above

Line 261 for my $test (@regress_tests) {

my $o = "$test->{NAME}.mandoc_ascii";

my $w = "$test->{NAME}.out_ascii";

my $to = "$test->{NAME}.mandoc_tag";

my $tos = "$test->{NAME}.mandoc_tag_s";

my $tw = "$test->{NAME}.out_tag";

my $diff_ascii;

if ($targets{tag} && $tag_tests{$test->{NAME}} &&

Line 273 for my $test (@regress_tests) {

Line 274 for my $test (@regress_tests) {

print "@cmd\n" if $targets{verbose};

system @cmd

and fail $test->{NAME}, 'tag:man';

system qw(sed -i), 's/ .*\// /', $to;

system "sed 's: .*/: :' $to > $tos";

system @diff, $tw, $to

system @diff, $tw, $tos

and fail $test->{NAME}, 'tag:diff';

print "." unless $targets{verbose};

$diff_ascii = $targets{ascii};

Line 309 for my $test (@regress_tests) {

Line 310 for my $test (@regress_tests) {

print "." unless $targets{verbose};

}

if ($targets{clean}) {

print "rm $o $to $m $mo\n" if $targets{verbose};

print "rm $o $to $tos $m $mo\n" if $targets{verbose};

$count_rm += unlink $o, $to, $m, $mo;

$count_rm += unlink $o, $to, $tos, $m, $mo;

}

if ($targets{ascii} || $targets{tag} || $targets{man}) {