Commit | Line | Data |
b4f770c1 |
1 | #!perl |
a04e810d |
2 | use Test::More tests => 24; |
b4f770c1 |
3 | |
4 | use warnings FATAL => 'all'; |
5 | use strict; |
6 | |
7 | use Function::Parameters; |
8 | |
9 | is eval 'fun :([) {}', undef; |
10 | like $@, qr/Illegal character in prototype/; |
11 | |
b4f770c1 |
12 | is eval 'fun :(][[[[[[) {}', undef; |
13 | like $@, qr/Illegal character in prototype/; |
14 | |
15 | is eval 'fun :(\;) {}', undef; |
16 | like $@, qr/Illegal character after '\\' in prototype/; |
17 | |
18 | is eval 'fun :(\[_;@]) {}', undef; |
19 | like $@, qr/Illegal character after '\\' in prototype/; |
20 | |
21 | is eval 'fun :(\+) {}', undef; |
22 | like $@, qr/Illegal character after '\\' in prototype/; |
23 | |
24 | is eval 'fun :(\\\\) {}', undef; |
25 | like $@, qr/Illegal character after '\\' in prototype/; |
26 | |
27 | is eval 'fun :([$]) {}', undef; |
28 | like $@, qr/Illegal character in prototype/; |
29 | |
30 | is eval 'fun :(\[_$]) {}', undef; |
31 | like $@, qr/Illegal character after '\\' in prototype/; |
32 | |
33 | { |
34 | no warnings qw(illegalproto); |
35 | |
36 | ok eval 'fun :([) {}'; |
b4f770c1 |
37 | ok eval 'fun :(][[[[[[) {}'; |
38 | ok eval 'fun :(\;) {}'; |
39 | ok eval 'fun :(\[_;@]) {}'; |
40 | ok eval 'fun :(\+) {}'; |
41 | ok eval 'fun :(\\\\) {}'; |
42 | ok eval 'fun :([$]) {}'; |
43 | ok eval 'fun :(\[_$]) {}'; |
44 | } |