Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
skip test failing for wrong reason
Also, add a (skipped) test to show inline pwnage is just a bad.
  • Loading branch information
TimToady committed Apr 23, 2015
1 parent dc55cec commit 575e61a
Showing 1 changed file with 6 additions and 3 deletions.
9 changes: 6 additions & 3 deletions S05-interpolation/regex-in-variable.t
Expand Up @@ -8,7 +8,7 @@ version 0.3 (12 Apr 2004), file t/patvar.t.
=end pod

plan 38;
plan 39;

# L<S05/Variable (non-)interpolation>

Expand Down Expand Up @@ -46,8 +46,8 @@ ok(!('aaaaab' ~~ m/"$foo"/), 'Rulish scalar match 7');
}

# RT #100232
#?rakudo todo 'escaping characters before EVAL is the wrong way to fix this'
eval_dies_ok Q[my $x = '1}; say "pwnd"; #'; 'a' ~~ /<$x>/], "particular garbage-in recognized as being garbage (see RT)";
#?rakudo skip 'escaping characters before EVAL is the wrong way to fix this'
eval_dies_ok Q[my $x = '1} if say "pwnd"; #'; 'a' ~~ /<$x>/], "particular garbage-in recognized as being garbage (see RT)";

# because it broke these:
{
Expand All @@ -56,6 +56,9 @@ eval_dies_ok Q[my $x = '1}; say "pwnd"; #'; 'a' ~~ /<$x>/], "particular garbage-
is ~("foo" ~~ /<{' o ** 2 '}>/), "oo", 'returns correct Match';
}

#?rakudo skip 'and no need to go all Bobby Tables either'
eval_dies_ok Q['a' ~~ /<{'$(say "trivially pwned")'}>/], "should handle this too";

# Arrays

ok("a" ~~ m/@var/, 'Simple array match (a)');
Expand Down

0 comments on commit 575e61a

Please sign in to comment.