From f6f7478f490635883ef3552e282fac8a56ce0b7d Mon Sep 17 00:00:00 2001
From: Solomon Foster <colomon@gmail.com>
Date: Mon, 2 Jan 2012 10:40:49 -0500
Subject: [PATCH] Fudge for niecza.

---
 S03-sequence/nonnumeric.t | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/S03-sequence/nonnumeric.t b/S03-sequence/nonnumeric.t
index e76648365c..b158fd480f 100644
--- a/S03-sequence/nonnumeric.t
+++ b/S03-sequence/nonnumeric.t
@@ -6,6 +6,7 @@ plan 34;
 # L<S03/List infix precedence/'C<.succ> is assumed'>
 
 #?rakudo skip 'loops'
+#?niecza skip 'Two definitions found for symbol ::GLOBAL::&infix:<cmp> (etc)'
 {
     class Alternating {
         has Int $.val;
@@ -56,14 +57,19 @@ is ('☀' ...^ '☕').join(''), '☀☁☂☃☄★☆☇☈☉☊☋☌☍☎
 # # L<S03/List infix precedence/doesn't terminate with a simple>
 # the tricky termination test
 
-ok ('A' ... 'ZZ').munch(1000).elems < 1000, "'A' ... 'ZZ' does not go on forever";
-#?rakudo 2 skip 'Decrement out of range'
-ok ('ZZ' ... 'A').munch(1000).elems < 1000, "'ZZ' ... 'A' does not go on forever";
-ok ('Z' ... 'AA').munch(1000).elems < 1000, "'Z' ... 'AA' does not go on forever";
+#?niecza skip 'munch not implemented'
+{
+    ok ('A' ... 'ZZ').munch(1000).elems < 1000, "'A' ... 'ZZ' does not go on forever";
+    #?rakudo 2 skip 'Decrement out of range'
+    ok ('ZZ' ... 'A').munch(1000).elems < 1000, "'ZZ' ... 'A' does not go on forever";
+    ok ('Z' ... 'AA').munch(1000).elems < 1000, "'Z' ... 'AA' does not go on forever";
+}
+
 is ('A' ...^ 'ZZ')[*-1], 'ZY', "'A' ...^ 'ZZ' omits last element";
 
 # be sure the test works as specced even for user classes
 #?rakudo skip 'lifting comparison ops'
+#?niecza skip 'Two definitions found for symbol ::GLOBAL::&infix:<cmp> (etc)'
 {
     class Periodic {
         has Int $.val;