[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
Raku · Aug 11, 2010 · f1ff19a · f1ff19a
1 parent fa3c850
commit f1ff19a
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/S05-match/capturing-contexts.t b/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