added a few tests
authorRamakrishnan Muthukrishnan <vu3rdd@gmail.com>
Thu, 27 May 2010 14:49:05 +0000 (20:19 +0530)
committerRamakrishnan Muthukrishnan <vu3rdd@gmail.com>
Thu, 27 May 2010 14:49:05 +0000 (20:19 +0530)
src/sicp/ex1_42.clj
src/sicp/ex1_43.clj

index 1c0eef81829cfcca7498a6f8fc2ad52f24edd868..b11ca2367c488a410f5410de23b69fdf18c5ab16 100644 (file)
@@ -6,9 +6,17 @@
 (defn compose [f g]
   (fn [x] (f (g x))))
 
+
+(deftest test-compose-square-of-inc-of-6
+  (is (= ((compose square inc) 6)
+        49)))
+
+(deftest test-compose-square-of-square-of-2
+  (is (= ((compose square square) 2)
+        16)))
+
 (comment
-((compose square inc) 6)
-;;=> 49
-((compose square square) 2)
-;;=> 16
+;; from repl do
+  (use 'sicp.ex1_42 :reload)
+  (run-tests 'sicp.ex1_42)
  )
\ No newline at end of file
index f7cb7ff80bf7d083a9f485a8d1c54cb0a51d8a3b..c13f25bfbfc9ca3a36f38209e7c72b64548648d7 100644 (file)
 (defn repeated [f n]
   (repeated-1 f (compose f f) (- n 1)))
 
+(deftest test-repeated-square-twotimes-of-5
+  (is (= ((repeated square 2) 5)
+        625)))
+
+(deftest test-repeated-square-twotimes-of-2
+  (is (= ((repeated square 2) 2)
+        16)))