Commit | Line | Data |
---|---|---|
35cd451c | 1 | #!./perl |
2 | ||
d80ecdf8 | 3 | BEGIN { |
4 | chdir 't'; | |
5 | @INC = '../lib'; | |
6 | require './test.pl'; | |
7 | } | |
35cd451c | 8 | |
d80ecdf8 | 9 | plan tests => 8; |
35cd451c | 10 | |
11 | # symbolic filehandles should only result in glob entries with FH constructors | |
12 | ||
648cac19 | 13 | $|=1; |
35cd451c | 14 | my $a = "SYM000"; |
d80ecdf8 | 15 | ok(!defined(fileno($a))); |
16 | ok(!defined *{$a}); | |
35cd451c | 17 | |
18 | select select $a; | |
d80ecdf8 | 19 | ok(defined *{$a}); |
35cd451c | 20 | |
f83494b9 | 21 | $a++; |
d80ecdf8 | 22 | ok(!close $a); |
23 | ok(!defined *{$a}); | |
35cd451c | 24 | |
d80ecdf8 | 25 | ok(open($a, ">&STDOUT")); |
26 | ok(defined *{$a}); | |
27 | ||
28 | ok(close $a); | |
35cd451c | 29 |