about summary refs log tree commit diff
diff options
context:
space:
mode:
-rw-r--r--project.clj2
-rw-r--r--test/pronouns/util_test.clj13
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"]