ignore vim swap files
[p5sagit/Function-Parameters.git] / t / rename.t
1 use strict;
2 use warnings;
3 use Test::More;
4
5 use Function::Parameters 'f';
6
7 my $add = f ($x, $y) { $x + $y };
8
9 is $add->(2, 4), 6;
10
11 ok !eval { Function::Parameters->import('g', 'h', 'i'); 1 };
12
13 for my $kw ('', '42', 'A::B', 'a b') {
14         ok !eval{ Function::Parameters->import($kw); 1 };
15         like $@, qr/valid identifier /;
16 }
17
18 use Function::Parameters 'func_a', 'meth_a';
19
20 func_a cat_a($x, $y) {
21         $x . $y
22 }
23
24 meth_a tac_a($x) {
25         $x . $self
26 }
27
28 is cat_a('ab', 'cde'), 'abcde';
29 is tac_a('ab', 'cde'), 'cdeab';
30
31 use Function::Parameters {
32         meth_b => 'method',
33         func_b => 'function',
34 };
35
36 func_b cat_b($x, $y) {
37         $x . $y
38 }
39
40 meth_b tac_b($x) {
41         $x . $self
42 }
43
44 is cat_b('ab', 'cde'), 'abcde';
45 is tac_b('ab', 'cde'), 'cdeab';
46
47 done_testing;