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

#!./perl

BEGIN {
    chdir 't' if -d 't';
    @INC = '../lib';
}

print "1..2\n";

sub false { 0; }

sub true  { 1; }

use Fatal qw(true false);

eval {	true(); };

print "not " if $@;
print "ok 1\n";

eval { false(); };
print "not " unless $@;
print "ok 2\n";
Commit	Line	Data
1a3850a5 GA	1	#!./perl
	2
	3	BEGIN {
	4	chdir 't' if -d 't';
	5	@INC = '../lib';
	6	}
	7
	8	print "1..2\n";
	9
	10	sub false { 0; }
	11
	12	sub true { 1; }
	13
	14	use Fatal qw(true false);
	15
	16	eval { true(); };
	17
	18	print "not " if $@;
	19	print "ok 1\n";
	20
	21	eval { false(); };
	22	print "not " unless $@;
	23	print "ok 2\n";