    "(source foo.bar.baz/a)"]
   (let [source-string (unwrap-result @_res_)
         expected "(def a \"whatever\")"]
-    (is (success? @_res_) "(source foo.bar.baz/a) should succeed.")
-    (is (valid-eval-result? source-string) "(source foo.bar.baz/a) should be a valid result")
-    (is (= expected source-string) "(source foo.bar.baz/a) should return valid source")))
+    (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"))))
 
 ;; https://github.com/ScalaConsultants/replumb/issues/86
 (h/read-eval-call-test e/*target-opts*

  \"Removes whitespace from both ends of string.\"
  [s]
  (gstring/trim s))"]
    (is (success? @_res_) "(source clojure.string/trim) should succeed.")
    (is (valid-eval-result? source-string) "(source clojure.string/trim) should be a valid result")
    (is (= expected source-string) "(source clojure.string/trim) should return valid source")))

(h/read-eval-call-test e/*target-opts*
  ["(require 'clojure.string)"
   "(source clojure.string/not-existing)"]
  (let [source-string (unwrap-result @_res_)]
    (is (success? @_res_) "(source clojure.string/not-existing) should succeed.")
    (is (valid-eval-result? source-string) "(source clojure.string/not-existing) should be a valid result")
    (is (= "nil" source-string) "(source clojure.string/not-existing) should return valid source")))

;; https://github.com/ScalaConsultants/replumb/issues/86
(h/read-eval-call-test e/*target-opts*

  ([s1 s2 & sets]
     (let [bubbled-sets (bubble-max-key count (conj sets s2 s1))]
       (reduce into (first bubbled-sets) (rest bubbled-sets)))))"]
    (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*
  ["(require 'clojure.string)"
