Merge pull request #37 from timsgardner/clr

Making orchestra.spec.test compatible with Clojure-CLR
jeaye · Jan 27, 2019 · 8801b86 · 8801b86
2 parents fdaa0aa + 5dfa14f
commit 8801b86
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/src/clj/orchestra/spec/test.clj → src/clj/orchestra/spec/test.cljc b/src/clj/orchestra/spec/test.clj → src/clj/orchestra/spec/test.cljc
@@ -87,7 +87,8 @@ failure in instrument."
                     (map interpret-stack-trace-element)
                     (filter :var-scope)
                     (drop-while plumbing?))
-              elems)))
+      #?(:clj elems
+         :cljr (.. elems GetFrames)))))
 
 (defn- spec-checking-fn
   [v f raw-fn-spec]
@@ -96,7 +97,8 @@ failure in instrument."
                    (with-instrument-disabled
                      (let [conformed (s/conform spec data)]
                        (if (= ::s/invalid conformed)
-                         (let [caller (->> (.getStackTrace (Thread/currentThread))
+                         (let [caller (->> #?(:clj (.getStackTrace (Thread/currentThread))
+                                              :cljr (System.Diagnostics.StackTrace. true))
                                            stacktrace-relevant-to-instrument
                                            first)
                                via (if-some [n (#'s/spec-name spec)]