oit-6072.p6

use v6;

my $filename = 'sandbox/null-program.p6';
my $fh = open $filename, :w;
END { unlink $filename }

$fh.put: ｢
$*ERR.say( Q/This goes to standard error/ );
$*OUT.say( Q/This goes to standard output/ );

exit 137;
｣;

{
my $proc = run $*EXECUTABLE, $filename;
say "1. Exit is { $proc.exitcode }";
}

{
my $proc = run $*EXECUTABLE, $filename, :out;
$proc.out.slurp-rest( :close );
say "2. Exit is { $proc.exitcode }";
}

{
my $proc = run $*EXECUTABLE, $filename, :err;
$proc.err.slurp-rest( :close );
say "3. Exit is { $proc.exitcode }";
}

{
my $proc = run $*EXECUTABLE, $filename, :out, :err;
$proc.out.slurp-rest( :close );
$proc.err.slurp-rest( :close );
say "4. Exit is { $proc.exitcode }";
}