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