diff --git a/S16-io/lines.t b/S16-io/lines.t index 0325fc6bea..565de90370 100644 --- a/S16-io/lines.t +++ b/S16-io/lines.t @@ -14,7 +14,7 @@ my @endings = ## adjusted plan to allow fine grained fudging for rakudo.jvm #plan @endings * (1 + 3 * ( (3 * 5) + 6)); my $extra_tests_jvm_fudging = 2 * 3 * ( 3 * ( 6 + 2 ) ); -plan 5 + @endings * (1 + 3 * ( 5 + 6)) + $extra_tests_jvm_fudging; +plan 6 + @endings * (1 + 3 * ( 5 + 6)) + $extra_tests_jvm_fudging; my $filename = 't/spec/S16-io/lines.testing'; my @text = ; @@ -276,8 +276,12 @@ lives-ok { .lines.rotor(:partial, 1 + .lines.elems).eager with $*PROGRAM.IO }, '.lines does not crash with partial .rotor'; +{ # https://github.com/rakudo/rakudo/commit/0c6281518e + is-deeply run(:out, $*EXECUTABLE, '-e', 「.say for ^3」).out.lines(*).List, + ("0", "1", "2"), 'can use Whatever as limit to IO::Pipe.lines'; -is-deeply run(:out, $*EXECUTABLE, '-e', 「.say for ^3」).out.lines(*).List, - ("0", "1", "2"), 'can use Whatever as limit to IO::Pipe.lines'; + lives-ok { run(:out, $*EXECUTABLE, "-e", "1.say").out.lines.sink }, + 'can sink-all IO::Pipe.lines'; +} # vim: ft=perl6