about summary refs log tree commit diff
diff options
context:
space:
mode:
authorMorgan Astra <m@morganastra.me>2018-11-14 13:46:38 -0800
committerMorgan Astra <m@morganastra.me>2018-11-14 13:46:38 -0800
commit9a7112784ea22b6c5595bb9879205d073b1c4253 (patch)
treec8c67981aa4f5c90e002d8c873ec0d084292c0b5
parent52a5a3f6abd5295d9bd22002965c0a52a4202713 (diff)
Add test to catch common errors in pronouns.tab
-rw-r--r--test/pronouns/resource_test.clj12
1 files changed, 12 insertions, 0 deletions
diff --git a/test/pronouns/resource_test.clj b/test/pronouns/resource_test.clj
new file mode 100644
index 0000000..38ee4e3
--- /dev/null
+++ b/test/pronouns/resource_test.clj
@@ -0,0 +1,12 @@
+(ns pronouns.resource-test
+  (:require [pronouns.util :as util]
+            [clojure.test :refer [deftest testing is]]))
+
+(deftest valid-pronouns-table
+  (let [table (util/slurp-tabfile "resources/pronouns.tab")]
+    (is table "pronouns.tab exists and is non-empty")
+    (doseq [row table]
+      (is (= (count row) 5)
+          "row has five elements")
+      (is (re-matches #".*sel(f|ves)$" (last row))
+          "final element is reflexive"))))