test under new EVAL and interpolation rules

Author: TimToady

S04-phasers/end.t

@@ -44,7 +44,7 @@ lives-ok { EVAL 'my $x = 3; END { $a = $x * $x };' },
     'and those from EVAL as well';
 
 #?niecza todo
-is_run( 'my $a = 2; EVAL q[my $x = 3; END { $a = $x * $x; print $a }]; print $a, ":"',
+is_run( 'use MONKEY-SEE-NO-EVAL; my $a = 2; EVAL q[my $x = 3; END { $a = $x * $x; print $a }]; print $a, ":"',
     {
         out => '2:9',
         err => '',

S05-interpolation/regex-in-variable.t

@@ -8,7 +8,7 @@ version 0.3 (12 Apr 2004), file t/patvar.t.
 
 =end pod
 
-plan 54;
+plan 52;
 
 # L<S05/Variable (non-)interpolation>
 
@@ -39,39 +39,40 @@ ok("aaaaab" ~~ m/<$foo>/,   'Rulish scalar match 5');
 ok(!("aaaaab" ~~ m/$foo/),  'Rulish scalar match 6');
 ok(!('aaaaab' ~~ m/"$foo"/), 'Rulish scalar match 7');
 
-# RT #61960
 {
-    my $a = 'a';
-    ok 'a' ~~ / $a /, 'match with string as rx works';
+    no MONKEY-SEE-NO-EVAL;
+    # RT #61960
+    {
+	my $a = 'a';
+	ok 'a' ~~ / $a /, 'match with string as rx works';
+    }
+
+    # RT #100232
+    throws-like { my $x = '1} if say "pwnd"; #'; 'a' ~~ /<$x>/ }, X::SecurityPolicy, "particular garbage-in recognized as being garbage (see RT)";
+
+    # because it broke these:
+    {
+	ok "foo" ~~ /<{' o ** 2 '}>/, 'returns true';
+	isa-ok "foo" ~~ /<{' o ** 2 '}>/, Match, 'returns a valid Match';
+	is ~("foo" ~~ /<{' o ** 2 '}>/), "oo", 'returns correct Match';
+    }
+
+    throws-like { 'a' ~~ /<{'$(say "trivially pwned")'}>/ }, X::SecurityPolicy, "should handle this too";
+    throws-like { 'a' ~~ /<{' "{say q/pwnzered/}"    '}>/ }, X::SecurityPolicy, "should handle this too";
+    throws-like { 'a' ~~ /<{' "foo $_ bar "          '}>/ }, X::SecurityPolicy, "should handle this too";
+    throws-like { 'a' ~~ /<{' "foo @*ARGS[] bar "    '}>/ }, X::SecurityPolicy, "should handle this too";
+    throws-like { 'a' ~~ /<{' "foo %*ENV{} bar "     '}>/ }, X::SecurityPolicy, "should handle this too";
+    throws-like { 'a' ~~ /<{' "foo &infix:<+>() "    '}>/ }, X::SecurityPolicy, "should handle this too";
+    throws-like { 'a' ~~ /<{' :my $x = {say q/hi!/}; '}>/ }, X::SecurityPolicy, "should handle this too";
+    throws-like { 'a' ~~ /<{' {say q/gotcha/}        '}>/ }, X::SecurityPolicy, "should handle this too";
+    throws-like { 'a' ~~ /<{' <{say q/gotcha/}>      '}>/ }, X::SecurityPolicy, "should handle this too";
+    throws-like { 'a' ~~ /<{' <?{say q/gotcha/}>     '}>/ }, X::SecurityPolicy, "should handle this too";
+    throws-like { 'a' ~~ /<{' <!{say q/gotcha/}>     '}>/ }, X::SecurityPolicy, "should handle this too";
+    throws-like { 'a' ~~ /<{' <foo=!{say q/gotcha/}> '}>/ }, X::SecurityPolicy, "should handle this too";
+    throws-like { 'a' ~~ /<{' <alpha(say q/gotcha/)> '}>/ }, X::SecurityPolicy, "should handle this too";
+    throws-like { 'a' ~~ /<{' "$x:(say "busted")"    '}>/ }, X::SecurityPolicy, "should handle this too";
 }
 
-# RT #100232
-throws-like Q[my $x = '1} if say "pwnd"; #'; 'a' ~~ /<$x>/], Exception, "particular garbage-in recognized as being garbage (see RT)";
-
-# because it broke these:
-{
-    ok "foo" ~~ /<{' o ** 2 '}>/, 'returns true';
-    isa-ok "foo" ~~ /<{' o ** 2 '}>/, Match, 'returns a valid Match';
-    is ~("foo" ~~ /<{' o ** 2 '}>/), "oo", 'returns correct Match';
-}
-
-throws-like Q['a' ~~ /<{'$(say "trivially pwned")'}>/], Exception, "should handle this too";
-throws-like Q['a' ~~ /<{' "{say q/pwnzered/}"    '}>/], Exception, "should handle this too";
-throws-like Q['a' ~~ /<{' "foo $_ bar "          '}>/], Exception, "should handle this too";
-throws-like Q['a' ~~ /<{' "foo @*ARGS[] bar "    '}>/], Exception, "should handle this too";
-throws-like Q['a' ~~ /<{' "foo %*ENV{} bar "     '}>/], Exception, "should handle this too";
-throws-like Q['a' ~~ /<{' "foo &infix:<+>() "    '}>/], Exception, "should handle this too";
-throws-like Q['a' ~~ /<{' :my $x = {say q/hi!/}; '}>/], Exception, "should handle this too";
-throws-like Q['a' ~~ /<{' {say q/gotcha/}        '}>/], Exception, "should handle this too";
-throws-like Q['a' ~~ /<{' <{say q/gotcha/}>      '}>/], Exception, "should handle this too";
-throws-like Q['a' ~~ /<{' <?{say q/gotcha/}>     '}>/], Exception, "should handle this too";
-throws-like Q['a' ~~ /<{' <!{say q/gotcha/}>     '}>/], Exception, "should handle this too";
-throws-like Q['a' ~~ /<{' <foo=!{say q/gotcha/}> '}>/], Exception, "should handle this too";
-throws-like Q['a' ~~ /<{' <alpha(say q/gotcha/)> '}> '}>/], Exception, "should handle this too";
-throws-like Q['a' ~~ /<{' $x:(say "busted")      '}> '}>/], Exception, "should handle this too";
-throws-like Q['a' ~~ /<{' "$x:(say "busted")"    '}> '}>/], Exception, "should handle this too";
-throws-like Q['a' ~~ /<{' q/\qq[{say "busted"}]/ '}> '}>/], Exception, "should handle this too";
-
 # Arrays
 
 ok("a" ~~ m/@var/, 'Simple array match (a)');

S05-metasyntax/angle-brackets.t

@@ -258,7 +258,7 @@ character classes), and those are referenced at the correct spot.
 # meanings within regexes that the bare elipses have in ordinary code
 #?niecza skip 'Action method assertion:sym<???> not yet implemented'
 {
-    throws-like '"foo" ~~ /<...>/', X::Comp::Group, '<...> dies in regex match';
+    throws-like '"foo" ~~ /<...>/', Exception, '<...> dies in regex match';
     # XXX: Should be warns_ok, but we don't have that yet
     lives-ok({'foo' ~~ /<???>/}, '<???> lives in regex match');
     #?rakudo todo '!!! in regexes'

S05-metasyntax/litvar.t

@@ -74,6 +74,7 @@ $var = '$i';
 throws-like { EVAL '"foo" ~~ /<$var>/' }, X::Undeclared, symbol => '$i',
     'undeclared var in assertion in interpolated string throws';
 {
+    no MONKEY-SEE-NO-EVAL;
     my $i = 'f+o';
     $var  = '$i';
     is "foo" ~~ /<$var>/, Nil,

S11-modules/require.t

@@ -1,6 +1,7 @@
 use v6;
 
 use lib '.';
+use MONKEY-SEE-NO-EVAL;
 
 my $required-Test = (require Test <&plan &is &lives-ok &skip &todo>);