Guest User

Untitled

a guest
Dec 14th, 2018
70
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.33 KB | None | 0 0
  1. (ns test.dimensional
  2. (:use [clojure.test])
  3. (:use [dimensional])
  4. (:import [dimensional Triangle Circle Rectangle]))
  5.  
  6. (deftest test-triangle-size
  7. (is (= 6 (size (Triangle. 3 4)))))
  8.  
  9. (deftest test-circle-size
  10. (is (= (* 100 Math/PI) (size (Circle. 10)))))
  11.  
  12. (deftest test-rectangle-size
  13. (is (= 12 (size (Rectangle. 3 4)))))
  14.  
  15. (run-tests)
Add Comment
Please, Sign In to add comment