Changeset 22895 for t

Timestamp:

11/06/08 06:50:56 (2 months ago)

Author:

pmichaud

Message:

[spec]: Revert some incorrect unfudging in r22788.

Location:

t/spec

Files:

• S03-junctions/misc.t (modified) (2 diffs)
• S29-list/pick.t (modified) (1 diff)

t/spec/S03-junctions/misc.t

@@ -61 +61 @@
     
     # test junction to junction
-    
+    #?rakudo todo 'junction comparison'
     ok(('a' | 'b' | 'c') eq ($a & $b & $c), 'junction ("a" | "b" | "c") matches junction ($a & $b & $c)');    
     ok(('a' & 'b' & 'c') eq ($a | $b | $c), 'junction ("a" & "b" & "c") matches junction ($a | $b | $c)'); 
@@ -291 +291 @@
 # junction in boolean context
 ok(?(0&0) == ?(0&&0), 'boolean context');
+#?rakudo todo 'boolean context for junctions'
 ok(?(0&1) == ?(0&&1), 'boolean context');
 ok(?(1&1) == ?(1&&1), 'boolean context');
+#?rakudo todo 'boolean context for junctions'
 ok(?(1&0) == ?(1&&0), 'boolean context');
 ok(!(?(0&0) != ?(0&&0)), 'boolean context');

t/spec/S29-list/pick.t

@@ -67 +67 @@
     # http://rt.perl.org/rt3/Ticket/Display.html?id=58526
     ok ?([[1, 2], [3, 4]].pick.join('|') eq any('1|2', '3|4')), '[[1,2],[3,4]].pick does not flatten';
-    #?rakudo todo 'array reference flattening'
+    #?rakudo todo 'array reference flattening, RT #58526'
     ok ?(~([[1, 2], [3, 4]].pick(*)) eq '1 2 3 4' | '3 4 1 2'), '[[1,2],[3,4]].pick(*) does not flatten';