merge-requests/2/head
erik 2 years ago
parent 6358701732
commit 2ee2985139

@ -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…
Cancel
Save