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/recursion.t | 2 ++
 1 file changed, 2 insertions(+)

(limited to 't/recursion.t')

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