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