[perl5.git] / t / lib / fatal.t

#!./perl -w

BEGIN {
   chdir 't' if -d 't';
   unshift @INC, '../lib';
   print "1..13\n";
}

use strict;
use Fatal qw(open close);

my $i = 1;
eval { open FOO, '<lkjqweriuapofukndajsdlfjnvcvn' };
print "not " unless $@ =~ /^Can't open/;
print "ok $i\n"; ++$i;

my $foo = 'FOO';
for ('$foo', "'$foo'", "*$foo", "\\*$foo") {
    eval qq{ open $_, '<$0' };
    print "not " if $@;
    print "ok $i\n"; ++$i;

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