#!/usr/bin/pugs
use v6;
use Test;
=kwid
I/O tests
=cut
plan 4;
my $filename = 'tempfile';
# Test is continued from io_finalized_part1.t
# Should see "Hello World\n" but with bug it is undef
my $fh = open($filename);
isa_ok($fh, 'IO');
my $line = readline($fh);
is($line, "Hello World\n", 'finalize without explicit filehandle close worked', :todo<bug>);
#now be sure to delete the file as well
ok($fh.close, 'file closed okay');
ok(?unlink($filename), 'file has been removed');