Skip to content
Browse files

2 lazy tests for <== operator

  • Loading branch information...
1 parent 2b4ac5a commit 0bb5a4d6f97fd47cd775b3b7f24465b20adca7b9 Dagur Valberg Johannsson committed May 13, 2013
Showing with 16 additions and 0 deletions.
  1. +16 −0 S03-feeds/basic.t
View
16 S03-feeds/basic.t
@@ -141,6 +141,22 @@ plan 19;
is(@(@data), <a b c d 0 1 2 3>, 'two stacked feeds');
}
+# feed and Inf
+#?rakudo skip "isn't lazy"
+#?nieza skip "unhandled exception
+{
+ lives_ok { my @a <== 0..Inf }
+}
+
+{
+ my $call-count = 0;
+ my @a <== gather for 1..10 -> $i { $call-count++; take $i };
+ @a[0];
+ #?rakudo todo "isn't lazy"
+ #?nieza skip "Unhandled exception"
+ is $call-count, 1;
+}
+
done;
# vim: ft=perl6

2 comments on commit 0bb5a4d

@coke
coke commented on 0bb5a4d May 13, 2013

Note: it's "niecza", and the first skip for niecza is missing a closing quote

@dagurval

That was sloppy of me. I also messed up the test plan. I'll take more care to do proper commits in the future.

Please sign in to comment.
Something went wrong with that request. Please try again.