From 79acba1b716685bb601e05a2e9824eefd19d1f5d Mon Sep 17 00:00:00 2001
From: Ivar Refsdal <ivar.refsdal@nsd.no>
Date: Mon, 27 Sep 2021 14:36:24 +0200
Subject: Add :valid-payload? function

---
 test/com/github/ivarref/yoltq/virtual_test.clj | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'test/com')

diff --git a/test/com/github/ivarref/yoltq/virtual_test.clj b/test/com/github/ivarref/yoltq/virtual_test.clj
index 8f7b454..acd3eb7 100644
--- a/test/com/github/ivarref/yoltq/virtual_test.clj
+++ b/test/com/github/ivarref/yoltq/virtual_test.clj
@@ -331,3 +331,14 @@
     (yq/add-consumer! :a identity)
     (timbre/with-level :fatal
       (is (thrown? Exception @(d/transact conn [(yq/put :a {:broken #'=})]))))))
+
+
+(deftest payload-verifier
+  (let [conn (u/empty-conn)]
+    (yq/init! {:conn conn})
+    (yq/add-consumer! :q identity
+                      {:valid-payload? (fn [{:keys [id]}]
+                                         (some? id))})
+    @(d/transact conn [(yq/put :q {:id "a"})])
+    (timbre/with-level :fatal
+                       (is (thrown? Exception @(d/transact conn [(yq/put :q {})]))))))
\ No newline at end of file
-- 
cgit v1.2.3