Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
RT #70730 test added
git-svn-id: http://svn.pugscode.org/pugs@30520 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information
bbkr committed Apr 30, 2010
1 parent 35fb15c commit 085eb42
Showing 1 changed file with 6 additions and 1 deletion.
7 changes: 6 additions & 1 deletion S02-builtin_data_types/infinity.t
@@ -1,6 +1,6 @@
use v6;
use Test;
plan 12;
plan 13;

# L<S02/"Built-In Data Types" /Perl 6 should by default make standard IEEE floating point concepts visible>

Expand Down Expand Up @@ -45,4 +45,9 @@ ok NaN.Int === NaN, 'Inf.Int === Int';
ok Inf.Int === Inf, 'Inf.Int === Int';
ok (-Inf).Int === (-Inf), 'Inf.Int === Int';

# RT #70730
{
ok ( rand * Inf ) === Inf, 'multiply rand by Inf without maximum recursion depth exceeded';
}

# vim: ft=perl6

0 comments on commit 085eb42

Please sign in to comment.