[BACK]Return to regress.pl CVS log [TXT][DIR] Up to [cvsweb.bsd.lv] / mandoc / regress

Diff for /mandoc/regress/regress.pl between version 1.15 and 1.17

version 1.15, 2020/07/21 15:14:20 version 1.17, 2025/06/26 18:13:07
Line 2 
Line 2 
 #  #
 # $Id$  # $Id$
 #  #
 # Copyright (c) 2017, 2018, 2019, 2020 Ingo Schwarze <schwarze@openbsd.org>  # Copyright (c) 2017,2018,2019,2020,2021 Ingo Schwarze <schwarze@openbsd.org>
 #  #
 # Permission to use, copy, modify, and distribute this software for any  # Permission to use, copy, modify, and distribute this software for any
 # purpose with or without fee is hereby granted, provided that the above  # purpose with or without fee is hereby granted, provided that the above
Line 261  for my $test (@regress_tests) {
Line 261  for my $test (@regress_tests) {
         my $o = "$test->{NAME}.mandoc_ascii";          my $o = "$test->{NAME}.mandoc_ascii";
         my $w = "$test->{NAME}.out_ascii";          my $w = "$test->{NAME}.out_ascii";
         my $to = "$test->{NAME}.mandoc_tag";          my $to = "$test->{NAME}.mandoc_tag";
           my $tos = "$test->{NAME}.mandoc_tag_s";
         my $tw = "$test->{NAME}.out_tag";          my $tw = "$test->{NAME}.out_tag";
         my $diff_ascii;          my $diff_ascii;
         if ($targets{tag} && $tag_tests{$test->{NAME}} &&          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};                  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 "sed 's: .*/: :' $to > $tos";
                 system @diff, $tw, $to                  system @diff, $tw, $tos
                     and fail $test->{NAME}, 'tag:diff';                      and fail $test->{NAME}, 'tag:diff';
                 print "." unless $targets{verbose};                  print "." unless $targets{verbose};
                 $diff_ascii = $targets{ascii};                  $diff_ascii = $targets{ascii};
Line 302  for my $test (@regress_tests) {
Line 303  for my $test (@regress_tests) {
                     qw(-I os=OpenBSD -T man), $i                      qw(-I os=OpenBSD -T man), $i
                     and fail $test->{NAME}, 'man:man';                      and fail $test->{NAME}, 'man:man';
                 sysout $mo, '../mandoc', @{$test->{MOPTS}},                  sysout $mo, '../mandoc', @{$test->{MOPTS}},
                     qw(-man -I os=OpenBSD -T ascii -O mdoc), $m                      qw(-man -I os=OpenBSD -T ascii), $m
                     and fail $test->{NAME}, 'man:mandoc';                      and fail $test->{NAME}, 'man:mandoc';
                 system @diff, $w, $mo                  system @diff, $w, $mo
                     and fail $test->{NAME}, 'man:diff';                      and fail $test->{NAME}, 'man:diff';
                 print "." unless $targets{verbose};                  print "." unless $targets{verbose};
         }          }
         if ($targets{clean}) {          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}) {  if ($targets{ascii} || $targets{tag} || $targets{man}) {

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.17

CVSweb