[p5sagit/Function-Parameters.git] / t / foreign / Method-Signatures-Simple / RT80510.t

#!perl
use strict;
use warnings FATAL => 'all';
use Test::More tests => 2;

use Function::Parameters;

fun empty ($x) {}

is scalar empty(1), undef, "empty func returns nothing (scalar context)";
is_deeply [empty(1,2)], [], "empty func returns nothing (list context)";

__END__
Commit	Line	Data
1a52f2db	1	#!perl
	2	use strict;
	3	use warnings FATAL => 'all';
	4	use Test::More tests => 2;
	5
	6	use Function::Parameters;
	7
	8	fun empty ($x) {}
	9
	10	is scalar empty(1), undef, "empty func returns nothing (scalar context)";
	11	is_deeply [empty(1,2)], [], "empty func returns nothing (list context)";
	12
	13	__END__