Permalink
Browse files

[t/spec] Test for RT 70003: $/.orig produces CodeString

git-svn-id: http://svn.pugscode.org/pugs@29080 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent ea4ad2a commit 533512a60259dded747fe5415d43f48192efc50e kyle committed Nov 14, 2009
Showing with 7 additions and 0 deletions.
  1. +7 −0 S05-match/capturing-contexts.t
@@ -102,6 +102,13 @@ is_run( q{'aa' ~~ /(.)$1/},
is $/, 'RT', 'Matched as intended in void context';
}
+# RT #70003
+{
+ 'a' ~~ /a/;
+ #?rakudo skip 'RT 70003'
+ is ($/.orig).rindex('a'), 0, 'rindex() works on $/.orig';
+}
+
done_testing;
# vim: ft=perl6

0 comments on commit 533512a

Please sign in to comment.