New issue
Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.
By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.
Already on GitHub? Sign in to your account
Internal Parrot error when parsing a number in scientific notation with very many decimals in Rakudo #1721
Comments
From @masak<moritz_> rakudo: 3.14159265358979323846264338327950288419716939937510e0 |
From @cokeOn Sat Apr 24 12:55:39 2010, masak wrote:
Behaves different in REPL/evalbot: $ ./perl6
but: 22:16 < [Coke]> rakudo: -- |
The RT System itself - Status changed from 'new' to 'open' |
From @cokeOn Tue Jul 27 19:17:07 2010, coke wrote:
oh, duh, need to print the value for the evalbot: 22:45 < [Coke]> rakudo: Per colomon++, this is functioning to spec. Assigning to him for spectesting. (virtually. he 22:47 < colomon> yes. the e0 at the end means it's a Num, which is |
@moritz - Status changed from 'open' to 'resolved' |
From @kylehaThis 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 [t/spec] test for RT #74640, very long Num literals Inline Patchdiff --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 |
Migrated from rt.perl.org#74640 (status was 'resolved')
Searchable as RT74640$
The text was updated successfully, but these errors were encountered: