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 = IO::Handle.new: :path('-'.IO);
        $*OUT.open: :w;

        my $w = '-'.IO.open: :w;
        my $r = '-'.IO.open;
        $r.get.say;
        $*IN.slurp(:close).say;
        $w.put: 'meow $w';
        $*OUT.put: 'meow $*OUT';
 ｣, "foo\nbar\nber", {
            :out{ "OUT".IO.spurt: $_; $_ eq "foo\nbar\nber\nmeow \$w\nmeow \$*OUT\n" },
            :err{ "ERR".IO.spurt: $_; $_ eq '' },
            :0status
    }, ｢can use unopened handle with path '-'.IO｣;