1#!./perl 2 3BEGIN { 4 chdir 't' if -d 't'; 5 require './test.pl'; 6 set_up_inc('../lib'); 7} 8 9plan tests => 8; 10 11# symbolic filehandles should only result in glob entries with FH constructors 12 13$|=1; 14my $a = "SYM000"; 15ok(!defined(fileno($a)), 'initial file handle is undefined'); 16ok(!defined *{$a}, 'initial typeglob of file handle is undefined'); 17 18select select $a; 19ok(defined *{$a}, 'typeglob of file handle defined after select'); 20 21$a++; 22ok(!close $a, 'close does not succeed with incremented file handle'); 23ok(!defined *{$a}, 'typeglob of file handle not defined after increment'); 24 25ok(open($a, ">&STDOUT"), 'file handle used with open of standard output'); 26ok(defined *{$a}, 'typeglob of file handle defined after opening standard output'); 27 28ok(close $a, 'close standard output via file handle;'); 29 30