test cofx validation failure

yapsterapp · May 19, 2023 · 89fa17e · 89fa17e
1 parent 6c12c3d
commit 89fa17e
Showing 1 changed file with 27 additions and 0 deletions.
diff --git a/test/a_frame/cofx_test.cljc b/test/a_frame/cofx_test.cljc
@@ -1,6 +1,7 @@
 (ns a-frame.cofx-test
   (:require
    [promesa.core :as pr]
+   [promisespromises.promise :as prpr]
    [promisespromises.test :refer [deftest is testing use-fixtures]]
    [a-frame.schema :as schema]
    [a-frame.registry :as registry]
@@ -129,6 +130,32 @@
               schema/a-frame-coeffects {cofx-key 100})
              (apply dissoc int-r interceptor-chain/context-keys)))))
 
+  (testing "invalid 0-arg cofx"
+    (pr/let [cofx-key ::inject-validated-cofx-test-0-arg-invalid
+
+             _ (sut/reg-cofx cofx-key (fn [app _cofx]
+                                        (is (= ::app app))
+                                        100))
+
+             init-int-ctx {}
+
+             interceptors  [(sut/inject-validated-cofx
+                             cofx-key
+                             :string
+                             cofx-key)]
+
+             [k e] (prpr/merge-always
+                    (interceptor-chain/execute
+                     ::app
+                     ::a-frame
+                     interceptors
+                     init-int-ctx))]
+
+      (is (= ::prpr/error k))
+
+      (is (= :a-frame.cofx/invalid-cofx
+             (-> e ex-cause ex-data :error/type)))))
+
   (testing "1-arg cofx"
     (pr/let [cofx-key ::inject-validated-cofx-test-1-arg
              _ (sut/reg-cofx cofx-key (fn [app _cofx arg]