diff options
author | Morgan Astra <m@morganastra.me> | 2018-11-14 13:46:38 -0800 |
---|---|---|
committer | Morgan Astra <m@morganastra.me> | 2018-11-14 13:46:38 -0800 |
commit | 9a7112784ea22b6c5595bb9879205d073b1c4253 (patch) | |
tree | c8c67981aa4f5c90e002d8c873ec0d084292c0b5 | |
parent | 52a5a3f6abd5295d9bd22002965c0a52a4202713 (diff) |
Add test to catch common errors in pronouns.tab
-rw-r--r-- | test/pronouns/resource_test.clj | 12 |
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")))) |