Skip to content

Commit

Permalink
[t/spec] fudge regex-in-variable.t for rakudo
Browse files Browse the repository at this point in the history
git-svn-id: http://svn.pugscode.org/pugs@31354 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information
moritz committed Jun 18, 2010
1 parent eac07e0 commit 360363c
Showing 1 changed file with 2 additions and 0 deletions.
2 changes: 2 additions & 0 deletions S05-interpolation/regex-in-variable.t
Expand Up @@ -53,12 +53,14 @@ ok("b" ~~ m/@var/, 'Simple array match (b)');
ok("c" ~~ m/@var/, 'Simple array match (c)');
ok("d" ~~ m/@var/, 'Simple array match (d)');
ok(!( "!" ~~ m/@var/ ), 'Simple array match (!)');
#?rakudo 3 todo 'array variable interpolation'
ok("!!!!a!!!!!" ~~ m/@var/, 'Nested array match (a)');
ok("!!!!e!!!!!" ~~ m/@var/, 'Nested array match (e)');

ok("abca" ~~ m/^@var+$/, 'Multiple array matching');
ok(!( "abca!" ~~ m/^@var+$/ ), 'Multiple array non-matching');

#?rakudo todo 'array variable interpolation'
ok("a+bb+ca+b" ~~ /^@foo+$/, 'Multiple array non-compiling');
ok(!("a+bb+ca+b" ~~ /^<@foo>+$/), 'Multiple array compiling');
ok(!("aaaabbbbbcaaab" ~~ /^@foo+$/), 'Multiple array non-compiling');
Expand Down

0 comments on commit 360363c

Please sign in to comment.