13 lines
447 B
Clojure
13 lines
447 B
Clojure
|
(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"))))
|