Changeset 21162 for t/spec/S29-list/grep.t

Timestamp:

07/02/08 06:01:18 (5 months ago)

Author:

pmichaud

Message:

Some updates to S29-list.

Files:

• t/spec/S29-list/grep.t (modified) (3 diffs)

t/spec/S29-list/grep.t

@@ -24 +24 @@
 }
 
-#?rakudo skip "adverbial closure"
+#?rakudo skip "adverbial block"
 {
     my @result = @list.grep():{ ($_ % 2) };
@@ -35 +35 @@
 }
 
-#?rakudo skip "adverbial closure"
+#?rakudo skip "adverbial block"
 {
     my @result = @list.grep :{ ($_ % 2) };
@@ -46 +46 @@
 }
 
-#?rakudo skip "adverbial closure"
+#?rakudo skip "closure as non-final argument"
 {
     my @result = grep { ($_ % 2) }: @list;
-    is(+@result, 5, 'we got a list back'); 
-    is(@result[0], 1, 'got the value we expected'); 
-    is(@result[1], 3, 'got the value we expected'); 
-    is(@result[2], 5, 'got the value we expected'); 
-    is(@result[3], 7, 'got the value we expected'); 
-    is(@result[4], 9, 'got the value we expected'); 
+    is(+@result, 5, 'we got a list back');
+    is(@result[0], 1, 'got the value we expected');
+    is(@result[1], 3, 'got the value we expected');
+    is(@result[2], 5, 'got the value we expected');
+    is(@result[3], 7, 'got the value we expected');
+    is(@result[4], 9, 'got the value we expected');
 }
 
 # .grep shouldn't work on non-arrays
+##  XXX pmichaud, 2008-07-01:
+##    p6l says that .grep should work on non-list values.
 {
   #?pugs 2 todo 'bug'