initial & last

test/csc/core_test.clj

@@ -0,0 +1,27 @@
+(ns csc.core-test
+  (:require [clojure.test :refer :all]
+            [csc.core :refer :all]))
+
+(deftest correct-words
+  (testing "Test that we can check whether correct and incorrect words are marked as such"
+    (is (correct? "hug"))
+    (is (not (correct? "heg")))))
+
+(deftest get-distance
+  (testing "Test that we can get the correct distance from the Java side"
+    (is (= (distance "abc" "abc") 0))
+    (is (= (distance "abc" "abd") 1))
+    (is (= (distance "abc" "boom") 4))))
+
+(deftest get-native-distance
+  (testing "Test that we can get the correct distance from the Clojure side"
+    (is (= (native-distance "abc" "abc") 0))
+    (is (= (native-distance "abc" "abd") 1))
+    (is (= (native-distance "abc" "boom") 4))))
+
+(deftest get-nearest-word
+  (testing "Test that we can find the nearest word to any given word"
+    (is (= "hug" (nearest-word "hug" true)))
+    (is (= "hug" (nearest-word "hug" false)))
+    (is (= "hug" (nearest-word "heg" true)))
+    (is (= "hug" (nearest-word "heg" false)))))