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