[perl #74640] tests available

This is an automatically generated mail to inform you that tests are now available in at least one of these files: misc/evalbot/lib/EvalbotExecuter.pm, t/spec/S02-literals/numeric.t

commit 624bf715b6698f6e3c6b722f02ae933502241eca
Author: moritz <moritz@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Fri Jul 30 18:07:55 2010 +0000

    [t/spec] test for RT #74640, very long Num literals
    
    git-svn-id: http://svn.pugscode.org/pugs@31876 c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/misc/evalbot/lib/EvalbotExecuter.pm b/misc/evalbot/lib/EvalbotExecuter.pm
index ea71c6d..c9960b4 100644
--- a/misc/evalbot/lib/EvalbotExecuter.pm
+++ b/misc/evalbot/lib/EvalbotExecuter.pm
@@ -102,9 +102,9 @@ sub _fork_and_eval {
     if (!defined $fork_val){
         confess "Can't fork(): $!";
     } elsif ($fork_val == 0) {
-        local $SIG{ALRM} = sub { close $fh; exit 14 };
+        local $SIG{ALRM} = sub {print $fh "(timeout)"; close $fh; exit 14 };
         _set_resource_limits();
-        alarm 14;
+        alarm 12;
         _auto_execute($executer, $program, $fh, $filename);
         alarm 0;
         close $fh;
@@ -163,7 +163,6 @@ sub _auto_execute {
 sub _set_resource_limits {
 # stolen from evalhelper-p5.pl
     setrlimit RLIMIT_CPU,  15, 20                    or confess "Couldn't setrlimit: $!\n";
-    alarm 15;
 #    setrlimit RLIMIT_VMEM,  500 * 2**20, 200 * 2**20 or confess "Couldn't setrlimit: $!\n";
 # STD.pm has a lexing subdir, varying in size, so allow 15MB
     my $size_limit = 15 * 1024**2;
diff --git a/t/spec/S02-literals/numeric.t b/t/spec/S02-literals/numeric.t
index 55b1e0f..135fb87 100644
--- a/t/spec/S02-literals/numeric.t
+++ b/t/spec/S02-literals/numeric.t
@@ -27,6 +27,10 @@ isa_ok 1+1i, Complex, '1+1i is a Complex literal';
 ok 1+1i ~~ Numeric, '1+1i is Numeric';
 nok 1+1i ~~ Real, '1+1i is not Real';
 
+# RT #74640
+is_approx 3.14159265358979323846264338327950288419716939937510e0,
+          3.141592, 'very long Num literals';
+
 done_testing;
 
 # vim: ft=perl6 sw=4 ts=4 expandtab

• [perl #74640] tests available by kyleha