test/pronouns/resource_test.clj


1
2
3
4
5
6
7
8
9
10
11
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"))))