Changeset 22910 for t

Timestamp:

11/07/08 06:42:19 (2 months ago)

Author:

pmichaud

Message:

[spec]: Fix test in S29-list/pick.t .

Files:

• t/spec/S29-list/pick.t (modified) (1 diff)

t/spec/S29-list/pick.t

@@ -66 +66 @@
     # Test that List.pick doesn't flatten array refs
     # 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';
+    ok ?([[1, 2], [3, 4]].pick.[0].join('|') eq any('1|2', '3|4')), '[[1,2],[3,4]].pick does not flatten';
     #?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';