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

#!./perl

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

use Test::More 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
2d981f27 AB	1	#!./perl
	2
	3	BEGIN {
	4	chdir 't' if -d 't';
	5	@INC = '../lib';
	6	require Config; import Config;
	7	}
	8
	9	use Test::More tests => 4;
	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