First test of the vector-sum function using midje.

Author: rexim

README.md

@@ -5,4 +5,4 @@ Hyperspace is a [Slingshot](http://slingshot.wikispot.org/) clone written in Clo
 
 Use `lein run` to run the game.
 
-`lein test` will run some tests.
+`lein midje` will run some tests.

project.clj

@@ -4,4 +4,6 @@
                  [org.lwjgl/lwjgl "2.7.1"]
                  [org.lwjgl/lwjgl-util "2.7.1"]
                  [org.lwjgl/lwjgl-native-platform "2.7.1"]]
+  :dev-dependencies [[midje "1.4.0"]
+                     [lein-midje "1.0.10"]]
   :main hyperspace.main)

test/hyperspace/test/geometry.clj

@@ -0,0 +1,18 @@
+(ns hyperspace.test.geometry
+  (:use [hyperspace.geometry]
+        [hyperspace.test.utils]
+        [midje.sweet]))
+
+(fact "about vector-sum function"
+      ;; One-dimensional integer vectors
+      (vector-sum [2] [2])               => [4]
+      
+      ;; Two-dimensional integer vectors
+      (vector-sum [5, 5] [2, 3])         => [7, 8]
+      
+      ;; Tree-dimenstional integer vectors
+      (vector-sum [1, 2, 3] [4, 5, 6])   => [5, 7, 9]
+
+      ;; Floating point vectors
+      (vector-sum [0.2, 0.4] [0.1, 0.3]) => (just [(almost= 0.3)
+                                                   (almost= 0.7)]))

test/hyperspace/test/utils.clj

@@ -0,0 +1,9 @@
+(ns hyperspace.test.utils)
+
+(defn equal-with-eps
+  [eps a b]
+  (< (Math/abs (- a b)) eps))
+
+(defn almost=
+  [x]
+  (partial equal-with-eps 1e-6 x))