Changeset 22882 for src

Timestamp:

11/04/08 21:11:14 (2 months ago)

Author:

azawawi

Message:

[STD_syntax_highlight] print->say
[STD_syntax_highlight] an STD.pm sanity check [masak++]

Files:

• src/perl6/ETOOMUCHTIME (modified) (6 diffs)

src/perl6/ETOOMUCHTIME

@@ -4 +4 @@
 use warnings;
 use English;
+use feature qw(say);
 use Benchmark;
 use File::Path;
@@ -24 +25 @@
 WARNING
 
+#add a sanity check to make sure STD.pm is correctly built
+unless(-r 'lex') {
+    die "Could not find 'lex' directory. Maybe you forgot to 'make'\n";
+}
+unless(-r 'STD.pmc') {
+    die "Could not find 'STD.pmc'. Maybe your forgot to 'make'\n";
+}
+
 my $dir_to_test = shift @ARGV || '../../t/spec/';
 my $fail = 0;
 my $success = 0;
-print "Finding *.t in $dir_to_test... Please wait\n";
+say "Finding *.t in $dir_to_test... Please wait";
 my @files = sort `find $dir_to_test -name '*.t'`;
 chomp(@files);
@@ -33 +42 @@
 
 my $total = 0+@files;
-print "Going to run $total tests... Maybe watch a movie meanwhile?\n";
+say "Going to run $total tests... Maybe watch a movie meanwhile?";
 
 my $HILITE = "STD_syntax_highlight";
@@ -58 +67 @@
             "--full-html=$full_html $file";
     my $log = `$cmd 2>&1`;
-    print "It took " . 
-        timestr(timediff(new Benchmark,$t0),"nop") . "\n";
+    say "It took " . 
+        timestr(timediff(new Benchmark,$t0),"nop");
 
     if ($CHILD_ERROR) {
@@ -67 +76 @@
         # catch those pesky CTRL-Cs
         if($CHILD_ERROR &= 127) {
-            print "CTRL-C detected... bye bye\n";
+            say "CTRL-C detected... bye bye";
             last;
         }
@@ -92 +101 @@
         print FULL_HTML $error_html;
         close FULL_HTML;
-
+        say "error";
     } else {
             $success++;
-            print "ok\n";
+            say "ok";
     }
 }
 
 printf "\nPassed $success/$total, %6.2f%%\n", $success/$total * 100;
-print "It took " .
-    timestr(timediff(new Benchmark,$start_time),"noc") . "\n";
+say "It took " .
+    timestr(timediff(new Benchmark,$start_time),"noc");
 
 if (@failed) {
-    print "Failed tests:\n";
+    say "Failed tests:";
     for my $file (@failed) {
-        print "$file\n";
+        say $file;
     }
 }
 
 #Copy javascript/css files and inform the user
-print "\nCopying javascript and css files to html directory..\n";
+say "\nCopying javascript and css files to html directory..";
 copy("$HILITE.js","html/$HILITE.js") or die "Could not copy: $OS_ERROR\n";
 copy("$JQUERY_JS", "html/$JQUERY_JS") or die "Could not copy: $OS_ERROR\n";
 copy("$HILITE.css", "html/$HILITE.css") or die "Could not copy: $OS_ERROR\n";
-print "\nThe output is now in the html directory. Thanks for your time ;-)\n";
+say "\nThe output is now in the html directory. Thanks for your time ;-)";