7 skip_all_if_miniperl("miniperl can't load IO::File");
16 # this is essentially the same as a test on a lexical filehandle in
17 # t/io/open.t, but done in a separate test process against a standard
20 # check that we can call methods on filehandles auto-magically
21 # and have IO::File loaded for us
23 is( $INC{'IO/File.pm'}, undef, "IO::File not loaded" );
24 ok( eval { STDOUT->autoflush(1); 1 }, 'STDOUT->autoflush(1) lives' );
25 ok( $INC{'IO/File.pm'}, "IO::File now loaded" );