Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

Niecza refudge to deal with the Order issue.

  • Loading branch information...
commit c4917135e4d758a871a74a0cebc60da38035f688 1 parent f8abad9
colomon authored January 20, 2012
1  S03-metaops/cross.t
@@ -69,6 +69,7 @@ ok eval('<a b> X, <c d>'), 'cross metaoperator parses';
69 69
 # L<S03/Cross operators/any existing non-mutating infix operator>
70 70
 is (1,2 X* 3,4), (3,4,6,8), 'cross-product works';
71 71
 
  72
+#?niecza todo
72 73
 is (1,2 Xcmp 3,2,0), (Order::Increase, Order::Increase, Order::Decrease, Order::Increase, Order::Same, Order::Decrease), 'Xcmp works';
73 74
 
74 75
 # L<S03/Cross operators/underlying operator non-associating>
1  S03-metaops/zip.t
@@ -15,6 +15,7 @@ is (<a b> Z~ <1 2>), <a1 b2>, 'zip-concat produces expected result';
15 15
 
16 16
 is (1,2 Z* 3,4), (3,8), 'zip-product works';
17 17
 
  18
+#?niecza todo
18 19
 is (1,2 Zcmp 3,2,0), (Order::Increase, Order::Same), 'zip-cmp works';
19 20
 
20 21
 # tests for laziness
1  S03-operators/names.t
@@ -8,6 +8,7 @@ is  infix:<+>(3, 8), 11, 'Can refer to  infix:<+>';
8 8
 is &infix:<->(3, 8), -5, 'Can refer to &infix:<->';
9 9
 is  infix:<->(3, 8), -5, 'Can refer to  infix:<->';
10 10
 
  11
+#?niecza todo
11 12
 is &infix:<cmp>(3, 4), Order::Increase, 'Can refer to &infix:<cmp>';
12 13
 
13 14
 #?niecza todo
2  S03-operators/spaceship-and-containers.t
@@ -8,11 +8,13 @@ plan 6;
8 8
 my %h = ("a" => 1, "b" => 2);
9 9
 ok(%h{"a"} < %h{"b"}, 'comparing hash values');
10 10
 ok(%h{"a"} <= %h{"b"}, 'comparing hash values');
  11
+#?niecza todo
11 12
 is(%h{"a"} <=> %h{"b"}, Order::Increase, 'comparing hash values');
12 13
 
13 14
 my @a = (1, 2);
14 15
 ok(@a[0] < @a[1], 'comparing array values');
15 16
 ok(@a[0] <= @a[1], 'comparing array values');
  17
+#?niecza todo
16 18
 is(@a[0] <=> @a[1], Order::Increase, 'comparing array values');
17 19
 
18 20
 # vim: ft=perl6
2  S12-enums/basic.t
@@ -68,8 +68,10 @@ enum JustOne <Thing>;
68 68
     ok JustOne::Thing == 0, 'Enum of one element works.';
69 69
 }
70 70
 
  71
+#?niecza skip "Enum must have at least one value"
71 72
 lives_ok { enum Empty < > }, "empty enum can be constructed";
72 73
 
  74
+#?niecza todo "Enum must have at least one value"
73 75
 eval_lives_ok 'enum Empty2 ()', 'empty enum with () can be constructed';
74 76
 
75 77
 enum Color <white gray black>;

0 notes on commit c491713

Please sign in to comment.
Something went wrong with that request. Please try again.