Permalink
Browse files

Fudge for niecza.

  • Loading branch information...
1 parent 35ebf63 commit f6f7478f490635883ef3552e282fac8a56ce0b7d @colomon colomon committed Jan 2, 2012
Showing with 10 additions and 4 deletions.
  1. +10 −4 S03-sequence/nonnumeric.t
View
@@ -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;

0 comments on commit f6f7478

Please sign in to comment.