Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

X is lazy, make sure X+ is lazy too

(since it's a different codepath)
  • Loading branch information...
commit f293ea02207acda21bd5c53b7ebc6caf8a2b6d10 1 parent e527ad0
@TimToady TimToady authored
Showing with 9 additions and 1 deletion.
  1. +9 −1 S02-types/lazy-lists.t
View
10 S02-types/lazy-lists.t
@@ -15,7 +15,7 @@ use v6;
use Test;
-plan 19;
+plan 20;
#?pugs emit unless $?PUGS_BACKEND eq "BACKEND_PERL5" {
@@ -143,4 +143,12 @@ sub make-lazy-list($num) { gather { take $_ for 0..^$num; $was-lazy = 0 } };
ok $was-lazy, "first argument of X is lazy";
}
+{
+ $was-lazy = 1;
+ my @one := make-lazy-list(10);
+ my @two = <a b c d e f>;
+ my @res = (@one X~ @two)[^20];
+ ok $was-lazy, "first argument of X~ is lazy";
+}
+
# vim: ft=perl6
Please sign in to comment.
Something went wrong with that request. Please try again.