diff --git a/S02-types/lazy-lists.t b/S02-types/lazy-lists.t index 7b29be938e..52a826bff5 100644 --- a/S02-types/lazy-lists.t +++ b/S02-types/lazy-lists.t @@ -15,7 +15,7 @@ use v6; use Test; -plan 20; +plan 22; #?pugs emit unless $?PUGS_BACKEND eq "BACKEND_PERL5" { @@ -151,4 +151,14 @@ sub make-lazy-list($num) { gather { take $_ for 0..^$num; $was-lazy = 0 } }; ok $was-lazy, "first argument of X~ is lazy"; } +# RT121994 +{ + my @a; + @a.push: $("one,two,three".split(",")); + is_deeply @a, [().list.item], "push: did we not lose the split?"; + my @b; + @b.unshift: $("one,two,three".split(",")); + is_deeply @b, [().list.item], "unshift: did we not lose the split?"; +} + # vim: ft=perl6