1*5486feefSafresh1#!./perl -w 2*5486feefSafresh1 3*5486feefSafresh1use strict; 4*5486feefSafresh1require($ENV{PERL_CORE} ? "../../t/test.pl" : "./t/test.pl"); 5*5486feefSafresh1 6*5486feefSafresh1plan(tests => 2); 7*5486feefSafresh1 8*5486feefSafresh1use_ok("IO::Handle"); 9*5486feefSafresh1my $io = IO::Handle->new; 10*5486feefSafresh1 11*5486feefSafresh1can_ok($io, qw(fdopen close opened fileno getc eof print printf say truncate read), 12*5486feefSafresh1 qw(sysread write syswrite stat autoflush binmode fcntl ioctl)); 13