pugs fudge

S12-attributes/clone.t

@@ -53,6 +53,7 @@ is($val2, 42, '... cloned object has proper attr value');
 }
 
 # RT 88254
+#?pugs todo
 {
     my ($p, $q);
     $p = 'a' ~~ /$<foo>='a'/;

S12-class/inheritance.t

@@ -173,6 +173,7 @@ eval_dies_ok 'class RT64642 is ::Nowhere {}', 'dies: class D is ::C {}';
 }
 
 # RT 75376
+#?pugs skip 'No such subroutine: "&RT75376::B"'
 {
     my class RT75376::A { };
     lives_ok { our class RT75376::B is RT75376::A { } },

S32-array/keys_values.t

@@ -22,9 +22,13 @@ is(~@array.values, 'a b c d', '@array.values works');
 is(~values(@array), 'a b c d', 'values(@array) works');
 is(+@array.values, +@array, 'we have the same number of values as elements in the array');
 
+#?pugs emit #
 my $v := @array.values;
+#?pugs emit #
 $v.shift; $v.shift;
+#?pugs skip "Can't modify constant item: VUndef"
 is($v.elems, 2, "shifting .values removes an element...");
+#?pugs skip "Can't modify constant item: VUndef"
 is(@array.elems, 4, "...while leaving original list alone.");
 
 # vim: ft=perl6

S32-str/substr.t

@@ -240,6 +240,7 @@ sub p (Int $a) {  my $p = $a; return $p }
 eval_dies_ok 'substr(Any, 0)', 'substr needs Cool as argument';
 
 # RT 76682
+#?pugs skip 'Failure NYI'
 {
     is "foo".substr(4), Failure, 'substr with start beyond end of string is Failure'
 }