Add test

nextjournal · Aug 25, 2023 · cb8b695 · cb8b695
1 parent d5af6cc
commit cb8b695
Showing 1 changed file with 13 additions and 0 deletions.
diff --git a/test/nextjournal/clerk/eval_test.clj b/test/nextjournal/clerk/eval_test.clj
@@ -227,3 +227,16 @@
   (testing "class is not cachable"
     (is (not (#'eval/cachable-value? java.lang.String)))
     (is (not (#'eval/cachable-value? {:foo java.lang.String})))))
+
+(deftest show!-test
+  (testing "in-memory cache is preserved when exception is thrown (#549)"
+    (let [code "{:f inc :n (rand-int 100000)}"
+          get-result #(:blob->result @nextjournal.clerk.webserver/!doc)]
+      (clerk/show! (java.io.StringReader. code))
+      (let [result-first-run (get-result)]
+        (try (clerk/show! (java.io.StringReader. (str code " (throw (ex-info \"boom\" {}))")))
+             (catch Exception _ nil))
+        (clerk/show! (java.io.StringReader. code))
+        (is (= result-first-run (get-result)))))))
+
+