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

#!perl

# Make sure we allow a trailing comma.

use strict;
use warnings FATAL => 'all';

use Test::More;

use Function::Parameters qw(:strict);

fun foo($foo, $bar,) {
    return [$foo, $bar];
}

is_deeply foo(23, 42), [23, 42];

done_testing;
Commit	Line	Data
1a52f2db	1	#!perl
	2
	3	# Make sure we allow a trailing comma.
	4
	5	use strict;
	6	use warnings FATAL => 'all';
	7
	8	use Test::More;
	9
	10	use Function::Parameters qw(:strict);
	11
	12	fun foo($foo, $bar,) {
	13	return [$foo, $bar];
	14	}
	15
	16	is_deeply foo(23, 42), [23, 42];
	17
	18	done_testing;