From 67eb34f20e39635062c508101f9c107006e94246 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Sat, 18 Aug 2012 21:04:41 -0500
Subject: couple more tests

---
 t/anon.t      | 4 ++++
 t/recursion.t | 2 ++
 2 files changed, 6 insertions(+)

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;
-- 
cgit v1.2.3-54-g00ecf