From f2bc137283616b46aad9519cacade93969af3fdb Mon Sep 17 00:00:00 2001
From: Ivar Refsdal <ivar.refsdal@nsd.no>
Date: Fri, 24 Sep 2021 10:42:56 +0200
Subject: Be paranoid when persisting with pr-str

---
 test/com/github/ivarref/yoltq/virtual_test.clj | 8 ++++++++
 1 file changed, 8 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 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 #'=})]))))))
-- 
cgit v1.2.3