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; |