1#!./perl -w 2 3BEGIN { 4 chdir 't' if -d 't'; 5 @INC = '../lib'; 6 print "1..15\n"; 7} 8 9use strict; 10use Fatal qw(open close :void opendir); 11 12my $i = 1; 13eval { open FOO, '<lkjqweriuapofukndajsdlfjnvcvn' }; 14print "not " unless $@ =~ /^Can't open/; 15print "ok $i\n"; ++$i; 16 17my $foo = 'FOO'; 18for ('$foo', "'$foo'", "*$foo", "\\*$foo") { 19 eval qq{ open $_, '<$0' }; 20 print "not " if $@; 21 print "ok $i\n"; ++$i; 22 23 print "not " if $@ or scalar(<$foo>) !~ m|^#!./perl|; 24 print "ok $i\n"; ++$i; 25 eval qq{ close FOO }; 26 print "not " if $@; 27 print "ok $i\n"; ++$i; 28} 29 30eval { opendir FOO, 'lkjqweriuapofukndajsdlfjnvcvn' }; 31print "not " unless $@ =~ /^Can't open/; 32print "ok $i\n"; ++$i; 33 34eval { my $a = opendir FOO, 'lkjqweriuapofukndajsdlfjnvcvn' }; 35print "not " if $@ =~ /^Can't open/; 36print "ok $i\n"; ++$i; 37