[perl5.git] / t / op / sub.t

#!./perl -w

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

plan( tests => 4 );

sub empty_sub {}

is(empty_sub,undef,"Is empty");
is(empty_sub(1,2,3),undef,"Is still empty");
@test = empty_sub();
is(scalar(@test), 0, 'Didnt return anything');
@test = empty_sub(1,2,3);
is(scalar(@test), 0, 'Didnt return anything');
Commit	Line	Data
f7218ed4	1	#!./perl -w
2d981f27 AB	2
	3	BEGIN {
	4	chdir 't' if -d 't';
	5	@INC = '../lib';
f7218ed4	6	require './test.pl';
2d981f27 AB	7	}
2d981f27 AB	8
f7218ed4	9	plan( tests => 4 );
2d981f27 AB	10
	11	sub empty_sub {}
	12
	13	is(empty_sub,undef,"Is empty");
	14	is(empty_sub(1,2,3),undef,"Is still empty");
	15	@test = empty_sub();
	16	is(scalar(@test), 0, 'Didnt return anything');
	17	@test = empty_sub(1,2,3);
	18	is(scalar(@test), 0, 'Didnt return anything');
	19