use v6;
use Test;

my @meths = <
    flush  out-buffer  print  printf  print-nl  put  say  write
>;  # nl-out
plan 2 + @meths;

throws-like { IO::CatHandle.new."$_"() }, X::NYI, $_ for @meths;

throws-like { IO::CatHandle.new.slurp-rest }, X::Obsolete,
    :old<slurp-rest>, :replacement<slurp>, :when('with IO::CatHandle'),
    '.slurp-rest';

is IO::CatHandle.new.Str, '<closed IO::CatHandle>', '.Str on closed handle';

# vim: ft=perl6

use v6;
use Test;

my @meths = <
    flush  out-buffer  print  printf  print-nl  put  say  write
    WRITE  READ        EOF
>;  # nl-out
plan 2 + @meths;

throws-like { IO::CatHandle.new."$_"() }, X::NYI, $_ for @meths;

throws-like { IO::CatHandle.new.slurp-rest }, X::Obsolete,
    :old<slurp-rest>, :replacement<slurp>, :when('with IO::CatHandle'),
    '.slurp-rest';

is IO::CatHandle.new.Str, '<closed IO::CatHandle>', '.Str on closed handle';

# vim: ft=perl6

Add .WRITE/.EOF/.READ to SAP (Spec APendices)
Add .WRITE/.EOF/.READ to SAP (Spec APendices)

Rakudo impl: https://github.com/rakudo/rakudo/commit/9246b03520
