couple more tests

2 files changed, 6 insertions, 0 deletions

diff --git a/t/anon.t b/t/anon.t
index 844fb97..059aa57 100644
--- a/t/anon.t
+++ b/t/anon.t
@@ -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;