Commit | Line | Data |
35cd451c |
1 | #!./perl |
2 | |
f2f2613b |
3 | print "1..5\n"; |
35cd451c |
4 | |
5 | my $test = 0; |
6 | |
7 | # symbolic filehandles should only result in glob entries with FH constructors |
8 | |
648cac19 |
9 | $|=1; |
35cd451c |
10 | my $a = "SYM000"; |
11 | print "not " if defined(fileno($a)) or defined *{$a}; |
12 | ++$test; print "ok $test\n"; |
13 | |
14 | select select $a; |
15 | print "not " if defined *{$a}; |
16 | ++$test; print "ok $test\n"; |
17 | |
18 | print "not " if close $a or defined *{$a}; |
19 | ++$test; print "ok $test\n"; |
20 | |
21 | print "not " unless open($a, ">&STDOUT") and defined *{$a}; |
22 | ++$test; print $a "ok $test\n"; |
23 | |
24 | print "not " unless close $a; |
25 | ++$test; print $a "not "; print "ok $test\n"; |