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 <mor...@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/p...@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
