Commit | Line | Data |
98e6239b |
1 | #!perl |
2 | |
3 | use strict; |
4 | use warnings FATAL => 'all'; |
5 | |
6 | use Test::More; |
7 | |
8 | |
9 | { |
10 | package Stuff; |
11 | |
12 | use Test::More; |
13 | use Test::Fatal; |
14 | use Function::Parameters qw(:strict); |
15 | |
16 | method whatever($this) { |
17 | return $this; |
18 | } |
19 | |
20 | is( Stuff->whatever(23), 23 ); |
21 | |
22 | like exception { Stuff->whatever() }, qr/Not enough arguments/; |
23 | |
24 | method some_optional($that, $this = 22) { |
25 | return $that + $this |
26 | } |
27 | |
28 | is( Stuff->some_optional(18), 18 + 22 ); |
29 | |
30 | like exception { Stuff->some_optional() }, qr/Not enough arguments/; |
31 | } |
32 | |
33 | |
34 | done_testing(); |