From e311f17379a250d893041f2153f323ed4141cc10 Mon Sep 17 00:00:00 2001
From: "Will \"Coke\" Coleda" <will@coleda.com>
Date: Mon, 16 Jul 2012 00:42:18 -0400
Subject: [PATCH] pugs fudge

---
 S12-attributes/clone.t  | 1 +
 S12-class/inheritance.t | 1 +
 S32-array/keys_values.t | 4 ++++
 S32-str/substr.t        | 1 +
 4 files changed, 7 insertions(+)

diff --git a/S12-attributes/clone.t b/S12-attributes/clone.t
index 93f55cdb4d..ee72aac18e 100644
--- a/S12-attributes/clone.t
+++ b/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'/;
diff --git a/S12-class/inheritance.t b/S12-class/inheritance.t
index 9554ba79b9..6053bc1033 100644
--- a/S12-class/inheritance.t
+++ b/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 { } },
diff --git a/S32-array/keys_values.t b/S32-array/keys_values.t
index e484c77ad6..5cddc397d6 100644
--- a/S32-array/keys_values.t
+++ b/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
diff --git a/S32-str/substr.t b/S32-str/substr.t
index 057eead6c9..5b6bd0f4f3 100644
--- a/S32-str/substr.t
+++ b/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'
 }