Changeset 17640 for util

Timestamp:

09/04/07 09:27:43 (15 months ago)

Author:

moritz

Message:

smartlinks.pl: added option --missing to check for test
files without smartlinks

Files:

• util/smartlinks.pl (modified) (9 diffs)

util/smartlinks.pl

@@ -25 +25 @@
 
 my $check;
+my $print_missing;
 my $test_result;
 my $line_anchor;
@@ -244 +245 @@
         die "error: Can't open $infile for reading: $!\n";
     my ($setter, $from, $to);
+    my $found_link = 0;
     while (<$in>) {
         chomp;
@@ -255 +257 @@
             $new_from = $.;
             $to = $. - 1;
+            $found_link++;
         }
         elsif (/^ \s* \#? \s* L(<<?) (S\d+) \/ ([^\/]+) \/ (.*) /xo) {
@@ -284 +287 @@
             }
             #warn "*$synopsis* *$section* *$pattern*\n";
+            $found_link++;
         }
         elsif (/^ \s* \#? \s* L<? S\d+\b /xoi) {
@@ -310 +314 @@
     $setter->($from, $.) if $setter and $from;
     close $in;
+    print "No smartlink found in <$infile>\n" if (defined $print_missing && $found_link == 0);
 }
 
@@ -768 +773 @@
   $0 --check t/*/*.t t/*/*/*.t
   $0 --check t/some/test.t
+  $0 --check --missing t/*/*.t t/*/*/*.t
 
 Options:
@@ -773 +779 @@
   --check         Only check the validity of the smartlinks, no
                   HTML outputs.
+  --missing       Print files whitout smartlinks 
   --out-dir <dir> Specify the output directory for HTML files.
   --css <file>    Specify the CSS file used by the HTML outputs,
@@ -798 +805 @@
     GetOptions(
         'check'       => \$check,
+        'missing'     => \$print_missing,
         'syn-dir=s'   => \$syn_dir,
         'out-dir=s'   => \$out_dir,
@@ -979 +987 @@
   smartlinks.pl --check t/*/*.t t/*/*/*.t
   smartlinks.pl --check t/some/test.t
+  smartlinks.pl --missing t/*/*.t t/*/*/*.t
 
 =head1 Design Decisions