Changeset 22788

Timestamp:

10/27/08 23:40:39 (2 months ago)

Author:

moritz

Message:

[t/spec] some unfudging for rakudo

Location:

t/spec

Files:

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

t/spec/S02-builtin_data_types/array_ref.t

@@ -122 +122 @@
 
 # [] creates new containers (() does not)
-#?rakudo skip 'infix:<=:=> unimplemented'
+#?rakudo todo 'infix:<=:=> unimplemented'
 {
   my $foo;
@@ -128 +128 @@
 }
 
-#?rakudo skip 'infix:<=:=> unimplemented'
+#?rakudo todo 'infix:<=:=> unimplemented'
 {
   my $foo;
   my $arrayref = [$foo];
-  ok !($arrayref[0] =:= $foo), "creating arrays using [] creates new containers (2)";
+  ok $arrayref[0] !=:= $foo, "creating arrays using [] creates new containers (2)";
 }

t/spec/S03-junctions/misc.t

@@ -62 +62 @@
     # test junction to junction
     
-    #?rakudo todo 'Compare junctions with junctions'
     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)'); 
@@ -292 +291 @@
 # junction in boolean context
 ok(?(0&0) == ?(0&&0), 'boolean context');
-#?rakudo todo 'boolen context of junctions'
 ok(?(0&1) == ?(0&&1), 'boolean context');
 ok(?(1&1) == ?(1&&1), 'boolean context');
-#?rakudo todo 'boolen context of 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 'List.pick(*) should not flatten, 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';