Permalink
Browse files

[t/spec] Test for RT #64946

git-svn-id: http://svn.pugscode.org/pugs@27965 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent 2b77ea6 commit 404d496d823d8729697836e53cb551b853a994b1 kyle committed Aug 12, 2009
Showing with 15 additions and 1 deletion.
  1. +15 −1 S05-match/capturing-contexts.t
@@ -2,7 +2,7 @@ use v6;
use Test;
-plan 13;
+plan 16;
if !eval('("a" ~~ /a/)') {
skip_rest "skipped tests - rules support appears to be missing";
@@ -49,4 +49,18 @@ if !eval('("a" ~~ /a/)') {
is $x.keys, 'a', 'match copy should be same as match';
}
+# RT #64946
+{
+ regex o { o };
+ "foo" ~~ /f<o>+/;
+
+ #?rakudo todo 'RT #64946'
+ is ~$<o>, 'o o', 'match list stringifies like a normal list';
+ isa_ok $<o>, List;
+ # I don't know what difference 'isa' makes, but it does.
+ # Note that calling .WHAT (as in the original ticket) does not have
+ # the same effect.
+ is ~$<o>, 'o o', 'match list stringifies like a normal list AFTER "isa"';
+}
+
# vim: ft=perl6

0 comments on commit 404d496

Please sign in to comment.