From 67f0a0768750ff98715a48aefc44f315c4875c8c Mon Sep 17 00:00:00 2001 From: Morgan Astra Date: Wed, 14 Nov 2018 21:47:31 -0800 Subject: Fix ns issues --- project.clj | 2 +- test/pronouns/util_test.clj | 13 ++++++------- 2 files changed, 7 insertions(+), 8 deletions(-) diff --git a/project.clj b/project.clj index a3d6bcf..a0f77fd 100644 --- a/project.clj +++ b/project.clj @@ -15,5 +15,5 @@ ;; FIXME morgan.astra <2018-11-14 Wed> ;; Is this production profile used for anything? :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}) diff --git a/test/pronouns/util_test.clj b/test/pronouns/util_test.clj index 031f0f9..3aecc2a 100644 --- a/test/pronouns/util_test.clj +++ b/test/pronouns/util_test.clj @@ -1,9 +1,8 @@ (ns pronouns.util-test (:require [pronouns.util :as util] - [clojure.test :refer [deftest testing is]])) + [clojure.test :refer [deftest testing is are]])) -(def test-table [ - ["ze" "hir" "hir" "hirs" "hirself"] +(def test-table [["ze" "hir" "hir" "hirs" "hirself"] ["ze" "zir" "zir" "zirs" "zirself"] ["she" "her" "her" "hers" "herself"] ["he" "him" "his" "his" "himself"] @@ -12,19 +11,19 @@ (deftest table-filters (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"]] ["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) + (are [arg return] (= (util/table-end-filter arg test-table) return) ["themself"] [["they" "them" "their" "theirs" "themself"]] - ["themselves" [["they" "them" "their" "theirs" "themselves"]]]))) + ["themselves"] [["they" "them" "their" "theirs" "themselves"]]))) (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"] ["ze"] ["ze" "hir" "hir" "hirs" "hirself"] ["ze" "zir"] ["ze" "zir" "zir" "zirs" "zirself"] -- cgit