33 lines
1.4 KiB
Clojure
33 lines
1.4 KiB
Clojure
(ns pronouns.util-test
|
|
(:require [pronouns.util :as util]
|
|
[clojure.test :refer [deftest testing is are]]))
|
|
|
|
(def test-table [["ze" "hir" "hir" "hirs" "hirself"]
|
|
["ze" "zir" "zir" "zirs" "zirself"]
|
|
["she" "her" "her" "hers" "herself"]
|
|
["he" "him" "his" "his" "himself"]
|
|
["they" "them" "their" "theirs" "themselves"]
|
|
["they" "them" "their" "theirs" "themself"]])
|
|
|
|
(deftest table-filters
|
|
(testing "table-front-filter"
|
|
(are [arg return] (= (util/table-front-filter arg test-table) return)
|
|
["she"] [["she" "her" "her" "hers" "herself"]]
|
|
["ze"] [["ze" "hir" "hir" "hirs" "hirself"]
|
|
["ze" "zir" "zir" "zirs" "zirself"]]
|
|
["ze" "zir"] [["ze" "zir" "zir" "zirs" "zirself"]]))
|
|
|
|
(testing "table-end-filter"
|
|
(are [arg return] (= (util/table-end-filter arg test-table) return)
|
|
["themself"] [["they" "them" "their" "theirs" "themself"]]
|
|
["themselves"] [["they" "them" "their" "theirs" "themselves"]])))
|
|
|
|
(deftest table-lookup
|
|
(are [arg return] (= (util/table-lookup arg test-table) return)
|
|
["she"] ["she" "her" "her" "hers" "herself"]
|
|
["ze"] ["ze" "hir" "hir" "hirs" "hirself"]
|
|
["ze" "zir"] ["ze" "zir" "zir" "zirs" "zirself"]
|
|
["they"] ["they" "them" "their" "theirs" "themselves"]
|
|
["they" "..." "themself"] ["they" "them" "their" "theirs" "themself"]))
|
|
|