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

Fix ns issues

Browse Source
This commit is contained in:
Morgan Astra 2018-11-14 21:47:31 -08:00
parent c450428939
commit 67f0a07687
2 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
project.clj
View File

@ -15,5 +15,5 @@
;; FIXME morgan.astra <2018-11-14 Wed> ;; FIXME morgan.astra <2018-11-14 Wed>
;; Is this production profile used for anything? ;; Is this production profile used for anything?
:profiles {:production {:env {:production true}} :profiles {:production {:env {:production true}}
:dev {:dependencies [[ring/ring-devel "1.7.1"]]}} :test {:dependencies [[ring/ring-devel "1.7.1"]]}}
:ring {:handler pronouns.web/app}) :ring {:handler pronouns.web/app})

13
test/pronouns/util_test.clj
View File

@ -1,9 +1,8 @@
(ns pronouns.util-test (ns pronouns.util-test
(:require [pronouns.util :as util] (:require [pronouns.util :as util]
[clojure.test :refer [deftest testing is]])) [clojure.test :refer [deftest testing is are]]))
(def test-table [ (def test-table [["ze" "hir" "hir" "hirs" "hirself"]
["ze" "hir" "hir" "hirs" "hirself"]
["ze" "zir" "zir" "zirs" "zirself"] ["ze" "zir" "zir" "zirs" "zirself"]
["she" "her" "her" "hers" "herself"] ["she" "her" "her" "hers" "herself"]
["he" "him" "his" "his" "himself"] ["he" "him" "his" "his" "himself"]
@ -12,19 +11,19 @@
(deftest table-filters (deftest table-filters
(testing "table-front-filter" (testing "table-front-filter"
(are [arg return] (= (table-front-filter arg test-table) return) (are [arg return] (= (util/table-front-filter arg test-table) return)
["she"] [["she" "her" "her" "hers" "herself"]] ["she"] [["she" "her" "her" "hers" "herself"]]
["ze"] [["ze" "hir" "hir" "hirs" "hirself"] ["ze"] [["ze" "hir" "hir" "hirs" "hirself"]
["ze" "zir" "zir" "zirs" "zirself"]] ["ze" "zir" "zir" "zirs" "zirself"]]
["ze" "zir"] [["ze" "zir" "zir" "zirs" "zirself"]])) ["ze" "zir"] [["ze" "zir" "zir" "zirs" "zirself"]]))
(testing "table-end-filter" (testing "table-end-filter"
(are [arg return] (= (table-end-filter arg test-table) return) (are [arg return] (= (util/table-end-filter arg test-table) return)
["themself"] [["they" "them" "their" "theirs" "themself"]] ["themself"] [["they" "them" "their" "theirs" "themself"]]
["themselves" [["they" "them" "their" "theirs" "themselves"]]]))) ["themselves"] [["they" "them" "their" "theirs" "themselves"]])))
(deftest table-lookup (deftest table-lookup
(are [arg return] (= (table-lookup arg test-table) return) (are [arg return] (= (util/table-lookup arg test-table) return)
["she"] ["she" "her" "her" "hers" "herself"] ["she"] ["she" "her" "her" "hers" "herself"]
["ze"] ["ze" "hir" "hir" "hirs" "hirself"] ["ze"] ["ze" "hir" "hir" "hirs" "hirself"]
["ze" "zir"] ["ze" "zir" "zir" "zirs" "zirself"] ["ze" "zir"] ["ze" "zir" "zir" "zirs" "zirself"]