Merge branch 'master' of github.com:vu3rdd/sicp

[sicp.git] / src / sicp / ex1_42.clj

diff --git a/src/sicp/ex1_42.clj b/src/sicp/ex1_42.clj
index 1c0eef81829cfcca7498a6f8fc2ad52f24edd868..b11ca2367c488a410f5410de23b69fdf18c5ab16 100644 (file)
--- a/src/sicp/ex1_42.clj
+++ b/src/sicp/ex1_42.clj
@@ -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