+
+# check that we can call methods on filehandles auto-magically
+# and have IO::File loaded for us
+{
+ is( $INC{'IO/File.pm'}, undef, "IO::File not loaded" );
+ my $var = "";
+ open my $fh, ">", \$var;
+ ok( eval { $fh->autoflush(1); 1 }, '$fh->autoflush(1) lives' );
+ ok( $INC{'IO/File.pm'}, "IO::File now loaded" );
+}