Clojurians Log v2

@rickmoynihan I actually am using this now myself:

(defmethod clojure.test/assert-expr 'working? [msg form]
  (let [body (next form)]
    `(do ~@body
         (clojure.test/do-report {:type :pass, :message ~msg,
                                  :expected :success, :actual :success}))))

(is (working? (+ 1 2 3))) ;; works
(is (working? (throw (ex-info "" {})))) ;; doesn't work

Ahh I meant to pop back yesterday and say thanks for the idea @borkdude… this is what I wrote and started using:

(defmethod clojure.test/assert-expr 'effected? [msg form]
  ;; Intended to allow etaoin wait forms to become assertions that
  ;; contribute to the test count etc...
  ;;
  ;; Used like (is (effected? (et/wait-visible driver {:css ",,,"})))
  (let [body (rest form)]
    `(try
       ~@body
       (clojure.test/do-report {:type :pass, :message ~msg,
                                :expected '(nil? ~@body) :actual nil})
       (catch clojure.lang.ExceptionInfo e#
         (clojure.test/do-report {:type :fail, :message ~msg,
                                  :expected '(nil? ~@body) :actual e#})))))

I do wonder if something like this should be mentioned in the etaoin docs