Add more known sprintf failures.
[p5sagit/p5-mst-13.2.git] / t / op / fh.t
CommitLineData
35cd451c 1#!./perl
2
f2f2613b 3print "1..5\n";
35cd451c 4
5my $test = 0;
6
7# symbolic filehandles should only result in glob entries with FH constructors
8
648cac19 9$|=1;
35cd451c 10my $a = "SYM000";
11print "not " if defined(fileno($a)) or defined *{$a};
12++$test; print "ok $test\n";
13
14select select $a;
f83494b9 15print "not " unless defined *{$a};
35cd451c 16++$test; print "ok $test\n";
17
f83494b9 18$a++;
35cd451c 19print "not " if close $a or defined *{$a};
20++$test; print "ok $test\n";
21
22print "not " unless open($a, ">&STDOUT") and defined *{$a};
23++$test; print $a "ok $test\n";
24
25print "not " unless close $a;
26++$test; print $a "not "; print "ok $test\n";