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]
|
||||
(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"]
|
||||
(cut/concat-vec '("a1" "a2") '("b1")))))
|
||||
|
||||
(deftest should-refuse-illegal-inputs
|
||||
(is (thrown? Exception
|
||||
(cut/concat-vec ["a1" "a2"] "b1")))
|
||||
(is (thrown? Exception
|
||||
(cut/concat-vec ["a1" "a2"] nil)))
|
||||
(is (thrown? Exception
|
||||
(cut/concat-vec ["a1" "a2"] 2)))
|
||||
(is (thrown? Exception
|
||||
(cut/concat-vec {"a1" "a2"} []))))
|
||||
#?(:clj
|
||||
(deftest should-refuse-illegal-inputs
|
||||
(is (thrown? Exception
|
||||
(cut/concat-vec ["a1" "a2"] "b1")))
|
||||
(is (thrown? Exception
|
||||
(cut/concat-vec ["a1" "a2"] nil)))
|
||||
(is (thrown? Exception
|
||||
(cut/concat-vec ["a1" "a2"] 2)))
|
||||
(is (thrown? Exception
|
||||
(cut/concat-vec {"a1" "a2"} [])))))
|
Loading…
Reference in a new issue