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)))))))
+
+