Normalize dispatch key of pre-init-spec

See #33.
weavejester · Dec 8, 2017 · e97c4b3 · e97c4b3
1 parent 60c7c99
commit e97c4b3
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 2 deletions.
diff --git a/src/integrant/core.cljc b/src/integrant/core.cljc
@@ -287,7 +287,7 @@
 (defmulti pre-init-spec
   "Return a spec for the supplied key that is used to check the associated
   value before the key is initiated."
-  identity)
+  normalize-key)
 
 (defmethod pre-init-spec :default [_] nil)
 

diff --git a/test/integrant/core_test.cljc b/test/integrant/core_test.cljc
@@ -222,7 +222,13 @@
     (is (thrown-with-msg?
          #?(:clj clojure.lang.ExceptionInfo :cljs cljs.core.ExceptionInfo)
          (re-pattern (str "Spec failed on key " ::n " when building system"))
-         (ig/init {::n (ig/ref ::k), ::k 1.1})))))
+         (ig/init {::n (ig/ref ::k), ::k 1.1}))))
+
+  (testing "with failing composite specs"
+    (is (thrown-with-msg?
+         #?(:clj clojure.lang.ExceptionInfo :cljs cljs.core.ExceptionInfo)
+         (re-pattern (str "Spec failed on key \\[" ::n " " ::nnn "\\] when building system"))
+         (ig/init {[::n ::nnn] 1.1})))))
 
 (deftest halt-test
   (testing "without keys"