diff options
| author | Morgan Astra <givengravity@gmail.com> | 2018-11-15 12:19:10 -0800 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2018-11-15 12:19:10 -0800 |
| commit | 4ec5220185cda5a2fd81234ad4dcb444ab2ac4c0 (patch) | |
| tree | 82fe697357ef609dbf2fad0e566a083f21d79052 /test/pronouns/resource_test.clj | |
| parent | 7d0d3a445b4a55406edef4720251c9be747d301b (diff) | |
| parent | 04d94c8935377e68292f78671428d564395b1641 (diff) | |
Merge branch 'master' into feature/slash-or
Diffstat (limited to 'test/pronouns/resource_test.clj')
| -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")))) |