From f88e76d31312202c3be6fa105f168130bb029e1f Mon Sep 17 00:00:00 2001
From: Ramakrishnan Muthukrishnan <vu3rdd@gmail.com>
Date: Thu, 27 May 2010 21:06:26 +0530
Subject: [PATCH] added more tests

---
 src/sicp/ex1_41.clj | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/src/sicp/ex1_41.clj b/src/sicp/ex1_41.clj
index 17bf21c..c6a16f0 100644
--- a/src/sicp/ex1_41.clj
+++ b/src/sicp/ex1_41.clj
@@ -6,6 +6,18 @@
 (defn doub [f]
   (fn [x] (f (f x))))
 
+(deftest test-doub-doub-doub-inc-5
+  (is (= (((doub (doub doub)) inc) 5)
+	 21)))
+
+(deftest test-doub-inc-1
+  (is (= ((doub inc) 1)
+	 3)))
+
+(deftest test-doub-doub-inc-1
+  (is (= (((doub (doub doub)) inc) 1)
+	 17)))
+
 (comment
 (((doub (doub doub)) inc) 5)
 ;;=> 21
-- 
2.45.2