Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (ns test.dimensional
- (:use [clojure.test])
- (:use [dimensional])
- (:import [dimensional Triangle Circle Rectangle]))
- (deftest test-triangle-size
- (is (= 6 (size (Triangle. 3 4)))))
- (deftest test-circle-size
- (is (= (* 100 Math/PI) (size (Circle. 10)))))
- (deftest test-rectangle-size
- (is (= 12 (size (Rectangle. 3 4)))))
- (run-tests)
Add Comment
Please, Sign In to add comment