Permalink
Browse files

[t/spec] tests for RT #68788 segmentation fault on the "say 1..{$_}"

git-svn-id: http://svn.pugscode.org/pugs@31512 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent 09302fd commit 7509d776189e5211e20b7e5fc26c45e6718260ed bbkr committed Jun 30, 2010
Showing with 7 additions and 1 deletion.
  1. +7 −1 S03-operators/range.t
View
8 S03-operators/range.t
@@ -2,7 +2,7 @@ use v6;
use Test;
-plan 114;
+plan 116;
# L<S03/Nonchaining binary precedence/Range object constructor>
@@ -213,5 +213,11 @@ is (1..6 Z 'a' .. 'c').join, '1a2b3c', 'Ranges and infix:<Z>';
ok !defined(try { 0 .. (0, 1, 2) }), '0 .. List is illegal';
}
+# RT #68788
+{
+ $_ = Any; # unsetting $_ to reproduce bug literally
+ lives_ok {(1..$_)}, '(1..$_) lives';
+ isa_ok (1..$_), Range, '(..) works on Int .. Any';
+}
# # vim: ft=perl6

0 comments on commit 7509d77

Please sign in to comment.