pugs fudges

S03-binding/ro.t

@@ -11,11 +11,14 @@ plan 9;
     $x ::= $y;
     is $x, 3, '::= on scalars took the value from the RHS';
     #?rakudo todo 'nom regression'
+    #?pugs todo
     dies_ok { $x = 5 }; '... and made the LHS RO';
     #?rakudo todo 'nom regression'
+    #?pugs todo
     is $x, 3, 'variable is still 3';
 }
 
+#?pugs todo
 {
     my Int $a = 4;
     my Str $b;
@@ -31,6 +34,7 @@ plan 9;
     is @x.join('|'), 'd|e', '::= on arrays';
     #?rakudo 4 todo '::= on arrays'
     #?niecza todo
+    #?pugs 4 todo
     dies_ok { @x := <3 4 foo> }, '... make RO';
     #?niecza todo
     is @x.join('|'), 'd|e', 'value unchanged';

S03-metaops/eager-hyper.t

@@ -12,6 +12,7 @@ plan 8;
     my @test = gather { for 1 .. 5 { $counter++; take $_ } };
     is(@test[0], 1, 'iterator works as expected');
     #?rakudo todo "Array assignment is not lazy -- is this test wrong?"
+    #?pugs todo
     is($counter, 1, 'iterator was lazy and only ran the block once');
 }
 
@@ -34,6 +35,7 @@ plan 8;
 # L<S02/Lists/A variant of eager is the hyper list operator>
 # Hyper
 #?rakudo skip 'hyper prefix NYI'
+#?pugs skip   'hyper prefix NYI'
 {
     my $counter = 0;
     my @test = hyper gather { for 1 .. 5 { $counter++; take $_; } };