testing REPL behaviour

gistfile1.txt

use v6;
use Test;
plan 1;

my $repl-input = 'my Int $t=4; $t.say;
$t.say';

my $cmd = $*DISTRO.is-win
    ?? "echo $repl-input | $*EXECUTABLE"
    !! "echo '$repl-input' | $*EXECUTABLE";

is qqx[$cmd], "4\n4\n", 'OK';

The following seems to work on Windows and Unix platforms.
[My goal was to feed multiple lines to rakudo's REPL and check the resulting output.]

use v6;
use Test;
plan 1;

my $quote;
my $separator;
if $*DISTRO.is-win {
    $quote     = "";
    $separator = "& ";
}
else {
    $quote     = "'";
    $separator = "; ";
}

sub feed_repl_with ( @lines ) {
    my $repl-input = '(' ~ (@lines.map: { 'echo ' ~ $quote ~ $_ ~ $quote }).join($separator) ~ ')';
    #say "Input: " ~ $repl-input;
    return qqx[$repl-input | $*EXECUTABLE];
}

my @input-lines;
@input-lines[0] = 'my Int $t=4; $t.say';
@input-lines[1] = '$t.say';

is feed_repl_with( @input-lines ).lines, (4, 4), 'OK';