test-io-handle.p6

#!/usr/bin/env perl6

my $f   = 'test-file.txt';
my $sr  = 'text';

say "Testing on IO::Handle";
my $fh = open $f, :w;
$fh.say: $sr;

say "== Reporting False:";
say so $fh.t;
say so $fh.d;

say "== Reporting True:";
say so $fh.e;
say so $fh.f;
say so $fh.r;
say so $fh.w;
#say so $fh.rw;

say "Smart match:";
say "== Reporting False:";
say $fh ~~ :t;
say $fh ~~ :d;

say "== Reporting True:";
say so $fh ~~ :e;
say so $fh ~~ :f;
say so $fh ~~ :r;
say so $fh ~~ :w;