diff options
-rw-r--r-- | t/anon.t | 4 | ||||
-rw-r--r-- | t/recursion.t | 2 |
2 files changed, 6 insertions, 0 deletions
@@ -9,4 +9,8 @@ my $fun = fun ($x, $y) { $x * $y }; is($fun->(3, 4), 12); +my $fun2 = fun ($z, $w = 10) { $z / $w }; + +is($fun2->(60), 6); + done_testing; diff --git a/t/recursion.t b/t/recursion.t index 0b13da9..5c3c29b 100644 --- a/t/recursion.t +++ b/t/recursion.t @@ -22,4 +22,6 @@ fun fact ($n) { is(fact(5), 120); +is(fun ($n = 8) { $n < 2 ? 1 : $n * __SUB__->($n - 1) }->(), 40320); + done_testing; |