pugs fudge

Author: coke

S02-types/array.t

@@ -337,6 +337,7 @@ my @array2 = ("test", 1, Mu);
 
 # RT 73184
 #?niecza skip "Seems like this is an inappropriate Rakudo-specific test"
+#?pugs skip 'Stack space overflow'
 {
     my @a = 0..*;
     try { @a[ Inf ] = 3 };

S02-types/hash.t

@@ -297,6 +297,7 @@ eval_lives_ok('my $rt75694 = { has-b => 42 }', "can have a bareword key starting
 }
 
 # RT 77598
+#?pugs skip 'No compatible multi variant found: "&is"'
 {
     is {}[-1], Failure, 'array-indexing a hash with a negative index is Failure';
 }

S03-operators/precedence.t

@@ -237,6 +237,7 @@ eval_dies_ok '1, 2 Z 3, 4 X 5, 6',
 }
 
 # RT 73266
+#?pugs todo
 {
     try { eval "say and die 3" };
     ok "$!" ~~ m:i/undefined <ws> routine .* \&and/,