aboutsummaryrefslogtreecommitdiff
path: root/test
diff options
context:
space:
mode:
authorIvar Refsdal <ivar.refsdal@nsd.no>2021-09-24 10:42:56 +0200
committerIvar Refsdal <ivar.refsdal@nsd.no>2021-09-24 10:42:56 +0200
commitf2bc137283616b46aad9519cacade93969af3fdb (patch)
treee4efd14e82caaa2aae4066ec201055ee13126bd7 /test
parentTypo (diff)
downloadfiinha-f2bc137283616b46aad9519cacade93969af3fdb.tar.gz
fiinha-f2bc137283616b46aad9519cacade93969af3fdb.tar.xz
Be paranoid when persisting with pr-str
Diffstat (limited to 'test')
-rw-r--r--test/com/github/ivarref/yoltq/virtual_test.clj8
1 files changed, 8 insertions, 0 deletions
diff --git a/test/com/github/ivarref/yoltq/virtual_test.clj b/test/com/github/ivarref/yoltq/virtual_test.clj
index 93ad0b6..fdbf6b3 100644
--- a/test/com/github/ivarref/yoltq/virtual_test.clj
+++ b/test/com/github/ivarref/yoltq/virtual_test.clj
@@ -307,3 +307,11 @@
(is (= {:id "a1"} (tq/consume! :a)))
(is (= {:id "b1"} (tq/consume! :b)))))
+
+
+(deftest verify-can-read-string
+ (let [conn (u/empty-conn)]
+ (yq/init! {:conn conn})
+ (yq/add-consumer! :a identity)
+ (timbre/with-level :fatal
+ (is (thrown? Exception @(d/transact conn [(yq/put :a {:broken #'=})]))))))