[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.9 and 1.12

version 1.9, 2018/12/16 00:17:04 version 1.12, 2019/09/03 18:19:37
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 423  if ($count_total == 1) {
Line 427  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";
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.12
CVSweb