kimendisch/pronomen.lol
0
0
Fork 0
Code Issues Pull Requests Projects Activity

Add tests for table lookup functions

Browse Source
This commit is contained in:
Morgan Astra 2018-11-14 14:11:18 -08:00
parent 9a7112784e
commit 2083d66ddb
2 changed files with 33 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/pronouns/util.clj
View File

@ -17,8 +17,6 @@
(ns pronouns.util (ns pronouns.util
(:require [clojure.string :as s])) (:require [clojure.string :as s]))
(defn print-and-return "for debugging" [x] (println x) x)
(defn slurp-tabfile (defn slurp-tabfile
"Read a tabfile from a filesystem <path> as a table" "Read a tabfile from a filesystem <path> as a table"
[path] [path]

33
test/pronouns/util_test.clj Normal file
View File

@ -0,0 +1,33 @@
(ns pronouns.util-test
(:require [pronouns.util :as util]
[clojure.test :refer [deftest testing is]]))
(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] (= (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] (= (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] (= (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"]))