 (h/read-eval-call-test e/*target-opts*
   ["(source or)"]
   (let [source-string (unwrap-result @_res_)]
-    (is (success? @_res_) "(source or) should succeed.")
-    (is (valid-eval-result? source-string) "(source or) should be a valid result")
-    (is (re-find #"core/defmacro or" source-string) "(source or) should return correct source")))
+    (is (success? @_res_) (str _msg_ "should succeed."))
+    (is (valid-eval-result? source-string) (str _msg_ "should be a valid result"))
+    (is (re-find #"core/defmacro or" source-string) (str _msg_ "should return correct source"))))
 
 (h/read-eval-call-test e/*target-opts*
   ["(require 'clojure.set)"

   "(source baz/a)"]
  (let [source-string (unwrap-result @_res_)
        expected "(def a \"whatever\")"]
    (is (success? @_res_) "(require '[foo.bar.baz :as baz]) and (source baz/a) should succeed.")
    (is (valid-eval-result? source-string) "(require '[foo.bar.baz :as baz]) and (source baz/a) should be a valid result")
    (is (= expected source-string) "(require '[foo.bar.baz :as baz]) and (source baz/a) should return valid source")))

  ([x y] (cljs.core/max x y))
  ([x y & more]
   (reduce max (cljs.core/max x y) more)))"]
    (is (success? @_res_) (str _msg_ "should succeed."))
    (is (valid-eval-result? source-string) (str _msg_ "should be a valid result"))
    (is (= expected source-string) (str _msg_ "should return valid source"))))

(h/read-eval-call-test e/*target-opts*
  ["(source nil?)"]
