Commit | Line | Data |
---|---|---|
98478aff | 1 | #!perl |
2 | use strict; | |
3 | use warnings FATAL => 'all'; | |
4 | use Test::More; | |
5 | ||
6 | use Function::Parameters; | |
7 | ||
8 | { | |
9 | eval 'fun ( $foo, @bar, $baz ) { return [] }'; | |
10 | ok $@, '... got an error'; | |
11 | } | |
12 | ||
13 | { | |
14 | eval 'fun ( $foo, %bar, $baz ) { return {} }'; | |
15 | ok $@, '... got an error'; | |
16 | } | |
17 | ||
18 | { | |
19 | eval 'fun ( $foo, @bar, %baz ) { return [] }'; | |
20 | ok $@, '... got an error'; | |
21 | } | |
22 | ||
23 | { | |
24 | eval 'fun ( $foo, %bar, @baz ) { return {} }'; | |
25 | ok $@, '... got an error'; | |
26 | } | |
27 | ||
28 | done_testing; |