From 360363cdb4c312416138d65fa0029c6563f2bdac Mon Sep 17 00:00:00 2001 From: moritz Date: Fri, 18 Jun 2010 09:25:29 +0000 Subject: [PATCH] [t/spec] fudge regex-in-variable.t for rakudo git-svn-id: http://svn.pugscode.org/pugs@31354 c213334d-75ef-0310-aa23-eaa082d1ae64 --- S05-interpolation/regex-in-variable.t | 2 ++ 1 file changed, 2 insertions(+) diff --git a/S05-interpolation/regex-in-variable.t b/S05-interpolation/regex-in-variable.t index f4d119335a..e082c6a960 100644 --- a/S05-interpolation/regex-in-variable.t +++ b/S05-interpolation/regex-in-variable.t @@ -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');