Changeset 19208 for util

Timestamp:

12/13/07 15:47:35 (12 months ago)

Author:

ferreira

Message:

r200@dracma: perl | 2007-12-13 12:47:24 -0200

minor fixes and get rid of "@b ()" which coerces to scalar

Location:

util

Files:

• catalog_tests.pl (modified) (4 diffs)
• testgraph.pl (modified) (1 diff)

util/catalog_tests.pl

@@ -67 +67 @@
      util/yaml_harness.pl  - produce the data for this tool
      util/testgraph.pl     - Generates an HTML summary of a YAML test run
-     util/run-smome.pl     - automate the smoke process
+     util/run-smoke.pl     - automate the smoke process
 
 __HELP__
@@ -91 +91 @@
 my $help;
 my $no_designdocs;
-GetOptions('test_dirs=s@' => \@t_dirs,
+GetOptions('test_dirs=s' => \@t_dirs,
        'output_dir=s' => \$output_dir,
        'p6design_dir=s' => \$syn_src_dir,
        'no_designdocs' => \$no_designdocs,
         'help' => \&usage) || usage(1);
-@t_dirs = split(/,/,join(',',@t_dirs||()));
-
+print "t_dirs: @t_dirs\n";
+@t_dirs = split(/,/,join(',',@t_dirs));
+print "t_dirs: @t_dirs\n";
 
 # Find design doc directory, check
@@ -128 +129 @@
     print "Tests                 : @t_dirs\n";
 } else {
-    print "Tests                 : Processing tests from tests.yaml\n";
+    print "Tests                 : Processing tests from tests.yml\n";
 }
 print "Output directory      : $output_dir\n";
@@ -145 +146 @@
                       (.*)                                      # rest of thing
                 }sx;
-           
+
 
 my $index = {};

util/testgraph.pl

@@ -64 +64 @@
    util/yaml_harness.pl  - produce the data for this tool
    util/catalog_tests.pl - produce cross-linkable tests
-   util/run-smome.pl     - automate the smoke process
+   util/run-smoke.pl     - automate the smoke process
 
 USAGE