Add: Tests.

Only runnable from repl, for now.

Author: teesloane

src/app/shared/util.cljs

@@ -31,7 +31,7 @@
 (defn split-article
   "Splits a string by whitespace and punctuation"
   [string]
-  (let [re  #"(\s+|[.,!?«»:;—\"])"
+  (let [re  #"(\s+|[.,!?«»:;—\"])" ; TODO: determine this based on language preferences.
         res (str/split string re)
         res (filter (fn [s]
                       (and (not= s " ")

test/app/shared/util_test.cljs

@@ -0,0 +1,13 @@
+(ns app.shared.util-test
+  (:require [app.shared.util :as sut]
+            [cljs.test :as t :include-macros true]))
+
+(t/deftest split-article
+  (let [res1 (sut/split-article "I am an english article")
+        res2 (sut/split-article "«Range à carguer les voiles de hune, le foc et la brigantine! cria le jeune marin; faites penaud!»")]
+    (t/is (= res1 ["I" "am" "an" "english" "article"]))
+    (t/is (= res2 ["«" "Range" "à" "carguer" "les" "voiles" "de" "hune" "," "le" "foc" "et" "la" "brigantine" "!" "cria" "le" "jeune" "marin" ";" "faites" "penaud" "!" "»"]))))
+
+(t/deftest split-delimited-article
+  (let [res (sut/split-delimited-article "1$2$3$4$5$6$7$8$9$8$6$10$11$12")]
+    (t/is (= res  ["1" "2" "3" "4" "5" "6" "7" "8" "9" "8" "6" "10" "11" "12"]))))

test/test_runner.cljs

@@ -0,0 +1,6 @@
+(ns app.test-runner
+  (:require  [cljs.test :as t :include-macros true]
+             [app.shared.util-test]))
+
+
+(t/run-all-tests #"app.*")