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

#!./perl -w

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

use strict;
use Fatal qw(open);

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 " unless scalar(<FOO>) =~ m|^#!./perl|;
    print "not " if $@;
    print "ok $i\n"; ++$i;
    close FOO;
}
Commit	Line	Data
2ba6ecf4 GS	1	#!./perl -w
	2
	3	BEGIN {
	4	chdir 't' if -d 't';
	5	unshift @INC, '../lib';
	6	print "1..9\n";
	7	}
	8
	9	use strict;
	10	use Fatal qw(open);
	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
	23	print "not " unless scalar(<FOO>) =~ m\|^#!./perl\|;
	24	print "not " if $@;
	25	print "ok $i\n"; ++$i;
	26	close FOO;
	27	}