Cleanup
This commit is contained in:
parent
6358701732
commit
2ee2985139
2 changed files with 10 additions and 14 deletions
|
@ -28,8 +28,3 @@
|
||||||
|
|
||||||
(defmethod load-as-edn :default [resource-name]
|
(defmethod load-as-edn :default [resource-name]
|
||||||
(from-string (load-resource resource-name)))
|
(from-string (load-resource resource-name)))
|
||||||
|
|
||||||
(defmulti allowed-resources dispatch-by-resource-name)
|
|
||||||
|
|
||||||
(defmethod allowed-resources :default []
|
|
||||||
[])
|
|
||||||
|
|
|
@ -15,12 +15,13 @@
|
||||||
(is (= ["a1" "a2" "b1"]
|
(is (= ["a1" "a2" "b1"]
|
||||||
(cut/concat-vec '("a1" "a2") '("b1")))))
|
(cut/concat-vec '("a1" "a2") '("b1")))))
|
||||||
|
|
||||||
(deftest should-refuse-illegal-inputs
|
#?(:clj
|
||||||
(is (thrown? Exception
|
(deftest should-refuse-illegal-inputs
|
||||||
(cut/concat-vec ["a1" "a2"] "b1")))
|
(is (thrown? Exception
|
||||||
(is (thrown? Exception
|
(cut/concat-vec ["a1" "a2"] "b1")))
|
||||||
(cut/concat-vec ["a1" "a2"] nil)))
|
(is (thrown? Exception
|
||||||
(is (thrown? Exception
|
(cut/concat-vec ["a1" "a2"] nil)))
|
||||||
(cut/concat-vec ["a1" "a2"] 2)))
|
(is (thrown? Exception
|
||||||
(is (thrown? Exception
|
(cut/concat-vec ["a1" "a2"] 2)))
|
||||||
(cut/concat-vec {"a1" "a2"} []))))
|
(is (thrown? Exception
|
||||||
|
(cut/concat-vec {"a1" "a2"} [])))))
|
Loading…
Reference in a new issue