pugs fudge

S03-binding/arrays.t

@@ -29,6 +29,7 @@ plan 47;
 }
 
 #?niecza skip ":delete"
+#?pugs skip ':delete'
 {
   my @array  = <a b c>;
   my $var    = "d";

S03-binding/hashes.t

@@ -27,6 +27,7 @@ plan 39;
   is $var,     "f", "basic binding of a hash element (3)";
 }
 
+#?pugs skip ':delete'
 {
   my %hash  = (:a<x>, :b<y>, :c<z>);
   my $var   = "d";

S09-autovivification/autovivification.t

@@ -6,6 +6,7 @@ use Test;
 plan 42;
 
 #?niecza todo
+#?pugs skip '!exists'
 {
   my %hash;
   %hash<a>;

S32-scalar/undef.t

@@ -82,7 +82,9 @@ ok(!defined(Mu), "Mu is not defined");
     ok(!defined(%hash<bar>), "undefine hash subscript");
 
     %hash<bar> = "baz";
+    #?pugs emit #
     %hash<bar>:delete;
+    #?pugs 3 skip ':delete'
     ok(!defined(%hash<bar>), "delete hash subscript");
 
     ok(defined(@ary), "aggregate array defined");
@@ -214,6 +216,7 @@ Perl6-specific tests
     nok(defined($a_hash<blergh>), "my Hash subscript - Mu, no autovivification happened");
 
     $a_hash<blergh> = 1;
+    #?pugs 2 skip ':delete'
     ok(defined($a_hash<blergh>:delete), "delete");
     nok(defined($a_hash<blergh>:delete), " - once only");
 }