From f739f03ff439e75a700a7e42261fa61bb6a08a1c Mon Sep 17 00:00:00 2001 From: Zoffix Znet Date: Mon, 17 Jul 2017 10:51:44 +0000 Subject: [PATCH] Unfudge standard handle reopen tests Rakudo fix: https://github.com/rakudo/rakudo/commit/0e578c4fea RT#131755: https://rt.perl.org/Ticket/Display.html?id=131755 --- S32-io/open.t | 26 ++++++++++++-------------- 1 file changed, 12 insertions(+), 14 deletions(-) diff --git a/S32-io/open.t b/S32-io/open.t index a6fde753a0..9d20a3d8ff 100644 --- a/S32-io/open.t +++ b/S32-io/open.t @@ -421,20 +421,18 @@ subtest '.open with "-" as path can open closed $*IN/$*OUT' => { is-deeply $*IN.encoding, 'utf8-c8', 'changed encoding'; } - #skip 'RT#131755' - skip 'RT#131755', 1; - # is_run ｢ - # $*IN = IO::Handle.new: :path('-'.IO); - # $*OUT = IO::Handle.new: :path('-'.IO); - # 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("foo\nbar\nber\nmeow \$w\nmeow \$*OUT\n"), :err(''), :0status - # }, ｢can use unopened handle with path '-'.IO｣; + is_run ｢ + $*IN = IO::Handle.new: :path('-'.IO); + $*OUT = IO::Handle.new: :path('-'.IO); + 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("foo\nbar\nber\nmeow \$w\nmeow \$*OUT\n"), :err(''), :0status + }, ｢can use unopened handle with path '-'.IO｣; } # vim: ft=perl6