Browse files

fix test plan, rakudo fudging

also move a block to the end of the file, because
providing a #?DOES seems to confuse fudge for the subsequent blocks
  • Loading branch information...
1 parent 8666a16 commit bb94740cb3b35363fb734a6cf6a461b64f281602 @moritz moritz committed May 14, 2013
Showing with 17 additions and 15 deletions.
  1. +17 −15 S03-feeds/basic.t
View
32 S03-feeds/basic.t
@@ -13,7 +13,7 @@ Tests for the feed operators
=end pod
-plan 19;
+plan 25;
#?pugs skip '<== dies with cast error'
{
@@ -93,20 +93,6 @@ plan 19;
is(@data, <2 4 6 8 10>, 'final result was unaffected by the tap variable');
}
-# no need for temp variables in feeds: $(*), @(*), %(*)
-#?rakudo skip '* feeds'
-{
- my @data = 'a' .. 'z';
- my @out = <a e i o u y>;
-
- @data ==> grep {/<[aeiouy]>/} ==> is($(*), $(@out), 'basic test for $(*)');
- @data ==> grep {/<[aeiouy]>/} ==> is(@(*), @(@out), 'basic test for @(*)');
- @data ==> grep {/<[aeiouy]>/} ==> is(%(*), %(@out), 'basic test for %(*)');
-
- # XXX: currently the same as the @(*) test above. Needs to be improved
- @data ==> grep {/<[aeiouy]>/} ==> is(@(*).slice, @(@out).slice, 'basic test for @(*).slice');
-}
-
# <<== and ==>> pretending to be unshift and push, respectively
#?rakudo skip 'double-ended feeds'
{
@@ -157,6 +143,22 @@ plan 19;
is $call-count, 1;
}
+# no need for temp variables in feeds: $(*), @(*), %(*)
+#?rakudo skip '* feeds'
+#?DOES 4
+{
+ my @data = 'a' .. 'z';
+ my @out = <a e i o u y>;
+
+ @data ==> grep {/<[aeiouy]>/} ==> is($(*), $(@out), 'basic test for $(*)');
+ @data ==> grep {/<[aeiouy]>/} ==> is(@(*), @(@out), 'basic test for @(*)');
+ @data ==> grep {/<[aeiouy]>/} ==> is(%(*), %(@out), 'basic test for %(*)');
+
+ # XXX: currently the same as the @(*) test above. Needs to be improved
+ @data ==> grep {/<[aeiouy]>/} ==> is(@(*).slice, @(@out).slice, 'basic test for @(*).slice');
+}
+
+
done;
# vim: ft=perl6

0 comments on commit bb94740

Please sign in to comment.