Changeset 21645 for util

Timestamp:

07/31/08 09:28:00 (4 months ago)

Author:

audreyt

Message:

* Add Time::Out support to "make smoke".

Location:

util

Files:

• gen_prelude.pl (modified) (5 diffs)
• run-smoke.pl (modified) (2 diffs)
• yaml_harness.pl (modified) (1 diff)

util/gen_prelude.pl

@@ -43 +43 @@
     #      executable.
     print STDERR "Triggering rebuild... " if $Config{verbose};
-    unlink "blib6/lib/Prelude.pm.yml";
-    unlink "blib6/lib/Prelude.pm.yml.pm";
+    unlink "blib6/lib/Prelude.pm.bin";
+    unlink "blib6/lib/Prelude.pm.bin.pm";
     #unlink "src/Pugs/PreludePC.hs";
     #unlink "src/Pugs/Run.hi";
@@ -169 +169 @@
 
     if ($Config{verbose}) {
-        print STDERR "# $Config{pugs} -Iext/Math-Basic/lib -C Parse-YAML $TEMP_PRELUDE $output\n";
+        print STDERR "# $Config{pugs} -Iext/Math-Basic/lib -C Parse-Binary $TEMP_PRELUDE $output\n";
         print STDERR "Generating precompiled Prelude";
     }
@@ -180 +180 @@
     close OUT;
 
-    system("$Config{pugs} -Iext/Math-Basic/lib -C Parse-YAML $TEMP_PRELUDE $output");
+    system("$Config{pugs} -Iext/Math-Basic/lib -C Parse-Binary $TEMP_PRELUDE $output");
 
     if ($Config{output}) {
@@ -206 +206 @@
        $0 --precompile src/perl6/Prelude.pm --pugs ./pugs.exe [options]
 
-Creates a Prelude.hs fallback or a Prelude.pm.yml file (written to stdout),
+Creates a Prelude.hs fallback or a Prelude.pm.bin file (written to stdout),
 to be loaded by Run.hs.
 
@@ -212 +212 @@
 version of the Prelude code is inlined into the executable, to be
 "eval"ed when pugs starts.  After the executable is ready, the Standard
-Prelude is precompiled and stored in YAML format in a (conjecturally)
+Prelude is precompiled and stored in Binary format in a (conjecturally)
 well-defined location for latter runs of pugs to pick up and load quickly.
 

util/run-smoke.pl

@@ -31 +31 @@
 
 my $failed = 0;
-for (qw/YAML Test::TAP::Model Test::TAP::HTMLMatrix Best/) {
+for (qw/YAML Test::TAP::Model Test::TAP::HTMLMatrix Best Time::Out/) {
     check_prereq($_) or $failed++;
 }
@@ -43 +43 @@
 
   cpan Task::Smoke
+  cpan Time::Out
 EOF
 

util/yaml_harness.pl

@@ -280 +280 @@
     warn "$kid$test\n";
     my $t = timeit( 1, sub {
-        $self->SUPER::run_test($test, @rest);
+        use Time::HiRes;
+        use Time::Out 'timeout';
+        timeout 300 => sub { $self->SUPER::run_test($test, @rest) };
     } );
     warn "    ".timestr($t)."\n";