[p5sagit/Function-Parameters.git] / t / regress.t

#!perl

use Test::More tests => 21;

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

use Function::Parameters;

fun mk_counter($i) {
	fun () { $i++ }
}

method nop() {}
fun fnop($x, $y, $z) {
}

is_deeply [nop], [];
is_deeply [main->nop], [];
is_deeply [nop 1], [];
is scalar(nop), undef;
is scalar(nop 2), undef;

is_deeply [fnop], [];
is_deeply [fnop 3, 4], [];
is scalar(fnop), undef;
is scalar(fnop 5, 6), undef;

my $f = mk_counter 0;
my $g = mk_counter 10;
my $h = mk_counter 50;

is $f->(), 0;
is $g->(), 10;
is $h->(), 50;
is $f->(), 1;
is $g->(), 11;
is $h->(), 51;
is $f->(), 2;
is $f->(), 3;
is $f->(), 4;
is $g->(), 12;
is $h->(), 52;
is $g->(), 13;
Commit	Line	Data
c311cef3	1	#!perl
	2
	3	use Test::More tests => 21;
	4
	5	use warnings FATAL => 'all';
	6	use strict;
	7
	8	use Function::Parameters;
	9
	10	fun mk_counter($i) {
	11	fun () { $i++ }
	12	}
	13
	14	method nop() {}
	15	fun fnop($x, $y, $z) {
	16	}
	17
	18	is_deeply [nop], [];
	19	is_deeply [main->nop], [];
	20	is_deeply [nop 1], [];
	21	is scalar(nop), undef;
	22	is scalar(nop 2), undef;
	23
	24	is_deeply [fnop], [];
	25	is_deeply [fnop 3, 4], [];
	26	is scalar(fnop), undef;
	27	is scalar(fnop 5, 6), undef;
	28
	29	my $f = mk_counter 0;
	30	my $g = mk_counter 10;
	31	my $h = mk_counter 50;
	32
	33	is $f->(), 0;
	34	is $g->(), 10;
	35	is $h->(), 50;
	36	is $f->(), 1;
	37	is $g->(), 11;
	38	is $h->(), 51;
	39	is $f->(), 2;
	40	is $f->(), 3;
	41	is $f->(), 4;
	42	is $g->(), 12;
	43	is $h->(), 52;
	44	is $g->(), 13;