1N/A#!./perl
1N/A
1N/ABEGIN {
1N/A chdir 't';
1N/A @INC = '../lib';
1N/A require './test.pl';
1N/A}
1N/A
1N/Aplan tests => 8;
1N/A
1N/A# symbolic filehandles should only result in glob entries with FH constructors
1N/A
1N/A$|=1;
1N/Amy $a = "SYM000";
1N/Aok(!defined(fileno($a)));
1N/Aok(!defined *{$a});
1N/A
1N/Aselect select $a;
1N/Aok(defined *{$a});
1N/A
1N/A$a++;
1N/Aok(!close $a);
1N/Aok(!defined *{$a});
1N/A
1N/Aok(open($a, ">&STDOUT"));
1N/Aok(defined *{$a});
1N/A
1N/Aok(close $a);
1N/A