From d2f70294d9d09ec18a786588d4d1b1231bba8cae Mon Sep 17 00:00:00 2001 From: zjroth Date: Fri, 6 Dec 2024 10:00:09 -0600 Subject: [PATCH] Include generated input with each test.chuck `checking` block error --- src/cider/nrepl/middleware/test.clj | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) diff --git a/src/cider/nrepl/middleware/test.clj b/src/cider/nrepl/middleware/test.clj index 63861f23..0921b288 100644 --- a/src/cider/nrepl/middleware/test.clj +++ b/src/cider/nrepl/middleware/test.clj @@ -171,19 +171,26 @@ [_m] (swap! current-report update-in [:summary :var] inc)) +(defn- in-checking-block? + "Determine whether the report being generated is for a test.chuck `checking` block." + [m] + (boolean (:com.gfredericks.test.chuck.clojure-test/testing-contexts m))) + (defn- report-final-status [{:keys [type] :as m}] (let [ns (ns-name (get m :ns (:testing-ns @current-report))) - v (last test/*testing-vars*)] + v (last test/*testing-vars*) + gen-input (when (in-checking-block? m) + (:gen-input @current-report))] (swap! current-report #(-> % (update-in [:summary :test] inc) (update-in [:summary type] (fnil inc 0)) + (assoc :gen-input gen-input) (update-in [:results ns (or (:name (meta v)) fallback-var-name)] (fnil conj []) - (test-result ns v m)) - (assoc :gen-input nil))))) + (test-result ns v m)))))) (defmethod report :end-test-var [{:keys [var-elapsed-time]