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

#!./perl -na

BEGIN {
    chdir 't' if -d 't';
    @INC = '../lib';
    require './test.pl';
    *ARGV = *DATA;
    plan(tests => 2);
}
chomp;
is($F[1], 'ok', "testing split of string '$_'");

__DATA__
not ok
not ok 3
Commit	Line	Data
d11311f7 RGS	1	#!./perl -na
	2
	3	BEGIN {
a21c9494 CK	4	chdir 't' if -d 't';
	5	@INC = '../lib';
	6	require './test.pl';
d11311f7	7	ARGV = DATA;
a21c9494	8	plan(tests => 2);
d11311f7	9	}
a21c9494 CK	10	chomp;
a21c9494 CK	11	is($F[1], 'ok', "testing split of string '$_'");
d11311f7 RGS	12
	13	__DATA__
	14	not ok
	15	not ok 3