[t/spec] tests for RT #71362, $0, $1 etc. work even for $/ := $something

git-svn-id: http://svn.pugscode.org/pugs@32059 c213334d-75ef-0310-aa23-eaa082d1ae64
FROGGS · Aug 19, 2010 · 046b183 · 046b183
1 parent 3f55d2d
commit 046b183
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/S05-match/capturing-contexts.t b/S05-match/capturing-contexts.t
@@ -106,6 +106,13 @@ is_run( q{'aa' ~~ /(.)$1/},
     is ($/.orig).rindex('a', 2), 1, 'rindex() works on $/.orig';
 }
 
+# RT #71362
+{
+    $/ := 'foobar';
+    is $0, 'foobar', '$0 works like $/[0], even for non-Match objects';
+    nok $1.defined, '$1 is not defined';
+}
+
 # RT #72956
 {
     $/ = Any;