Fix a couple of broken tests

Author: bbatsov

src/cider/nrepl/middleware/stacktrace.clj

@@ -291,7 +291,9 @@
                :message "Spec assertion failed."
                :spec (prepare-spec-data data pprint-fn print-options))
         (-> m
-            (assoc :data (pprint-fn data print-options))
+            (assoc :data (if (not-empty print-options)
+                            (pprint-fn data print-options)
+                            (pprint-fn data)))
             (assoc :location
                    (select-keys data [:clojure.error/line :clojure.error/column
                                       :clojure.error/phase :clojure.error/source

test/clj/cider/nrepl/middleware/stacktrace_test.clj

@@ -172,7 +172,7 @@
                              :clojure.error/source "/foo/bar/baz.clj"
                              :clojure.error/phase :macroexpand
                              :clojure.error/symbol 'clojure.core/let})
-          cause (analyze-cause e identity)]
+          cause (analyze-cause e identity {})]
       (is (= {:clojure.error/line 1
               :clojure.error/column 42
               :clojure.error/source "/foo/bar/baz.clj"

test/spec/cider/nrepl/middleware/stacktrace_spec_test.clj

@@ -2,7 +2,7 @@
   (:require
    [cider.nrepl.middleware.stacktrace :refer :all]
    [clojure.spec.alpha :as s]
-   [clojure.pprint :refer [pprint]]
+   [cider.nrepl.pprint :refer [pprint]]
    [clojure.test :refer :all]))
 
 (s/check-asserts true)
@@ -13,7 +13,8 @@
    (try (eval form)
         (catch Exception e
           e))
-   pprint))
+   pprint
+   {}))
 
 (defn stack-frames
   [form]