Permalink
Browse files

RT #70730 test added

git-svn-id: http://svn.pugscode.org/pugs@30520 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent 35fb15c commit 085eb429a296e8c20440d6dfd8f2fdbb938bed1e bbkr committed Apr 30, 2010
Showing with 6 additions and 1 deletion.
  1. +6 −1 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>
@@ -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.