use v6;

use Test;

=begin kwid

I/O tests

=end kwid

plan 2;

if $*OS eq "browser" {
	skip_rest "Programs running in browsers don't have access to regular IO.";
	exit;
}

my $filename = "foo";

{
	my $fh = try { open($filename, :w) };
	isa_ok($fh, IO);
}

{
	my $fh = try { open($filename, :w) };
	isa_ok($fh, IO, :todo<bug>);
	
}