p6.p6

use v6;
use lib <t/spec/packages>;
use Test;
use Test::Util;

plan 1;

is_run ｢
    $*IN = IO::Handle.new: :path('-'.IO);
    $*IN.open;
    $*OUT.open: :w;

    my $w = '-'.IO.open: :w;
    my $r = '-'.IO.open;
    $*IN.slurp(:close); #
    $w.put: 'meow  w';
    $*OUT.put: 'x';
｣, "foo\nbar\nber", :compiler-args['--ll-exception'], {
    :out{ "OUT".IO.spurt: $_; $_ eq "foo\nbar\nber\nmeow \$w\nmeow \$*OUT\n" },
    :err{ "ERR".IO.spurt: $_; $_ eq '' },
    :0status
}, '';