(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)))))