Browse files

[t/spec] tests for # RT #72956 $0 when $/ is undefined causes Rakudo …

…to give an error

git-svn-id: http://svn.pugscode.org/pugs@31951 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent fa3c850 commit f1ff19affe90b2d1d8d3c4f41900dc246f8077e8 bbkr committed Aug 11, 2010
Showing with 9 additions and 0 deletions.
  1. +9 −0 S05-match/capturing-contexts.t
View
9 S05-match/capturing-contexts.t
@@ -106,6 +106,15 @@ is_run( q{'aa' ~~ /(.)$1/},
is ($/.orig).rindex('a', 2), 1, 'rindex() works on $/.orig';
}
+# RT #72956
+{
+ $/ = Any;
+ lives_ok { $0 },
+ '$0 accessible when $/ is undefined';
+ isa_ok $0, Any,
+ '$0 is Any when $/ is undefined';
+}
+
done_testing;
# vim: ft=perl6

0 comments on commit f1ff19a

Please sign in to comment.