[perl5.git] / t / run / switchn.t

#!./perl -n

BEGIN {
    chdir 't' if -d 't';
    @INC = '../lib';
    require './test.pl';
    *ARGV = *DATA;
    plan(tests => 3);
}

END {
    pass("Final test");
}

chomp;
is("ok ".$., $_, "Checking line $.");

s/^/not /;

__DATA__
ok 1
ok 2
Commit	Line	Data
d11311f7 RGS	1	#!./perl -n
	2
	3	BEGIN {
3f61bd28 CK	4	chdir 't' if -d 't';
	5	@INC = '../lib';
	6	require './test.pl';
d11311f7	7	ARGV = DATA;
3f61bd28	8	plan(tests => 3);
d11311f7	9	}
c1c954ee NC	10
c1c954ee NC	11	END {
3f61bd28	12	pass("Final test");
c1c954ee NC	13	}
c1c954ee NC	14
3f61bd28 CK	15	chomp;
3f61bd28 CK	16	is("ok ".$., $_, "Checking line $.");
d11311f7	17
c1c954ee NC	18	s/^/not /;
c1c954ee NC	19
d11311f7 RGS	20	__DATA__
	21	ok 1
	22	ok 2