AOT for clojure.test

Author: ingydotnet

Makefile

@@ -55,7 +55,7 @@ generate:
 
 .PHONY: aot
 aot: gocmd $(STDLIB_TARGETS)
-	@echo "(map compile '[clojure.core clojure.core.async clojure.walk clojure.string clojure.template clojure.uuid glojure.go.types glojure.go.io])" | \
+	@echo "(map compile '[clojure.core clojure.core.async clojure.string clojure.template clojure.test clojure.uuid clojure.walk glojure.go.types glojure.go.io])" | \
 		GLOJURE_USE_AOT=false GLOJURE_STDLIB_PATH=./pkg/stdlib $(GO_CMD) run -tags glj_no_aot_stdlib ./cmd/glj
 
 .PHONY: build

pkg/stdlib/clojure/test.glj

@@ -267,13 +267,13 @@
 
 (def ^:dynamic *testing-contexts* (list)) ; bound to hierarchy of "testing" strings
 
-(def ^:dynamic *test-out* *out*)         ; PrintWriter for test reporting output
+(def ^{:dynamic true} *test-out* nil)         ; PrintWriter for test reporting output
 
 (defmacro with-test-out
   "Runs body with *out* bound to the value of *test-out*."
   {:added "1.1"}
   [& body]
-  `(binding [*out* *test-out*]
+  `(binding [*out* (or *test-out* *out*)]
      ~@body))
 
 ;;; UTILITIES FOR REPORTING FUNCTIONS
@@ -287,7 +287,7 @@
   {:added "1.1"
    :deprecated "1.2"}
   [n]
-  (let [^StackTraceElement s (nth (.getStackTrace (new java.lang.Throwable)) n)]
+  (let [^StackTraceElement s (nth (.getStackTrace (new github.com:glojurelang:glojure:pkg:lang.Throwable)) n)]
     [(.getFileName s) (.getLineNumber s)]))
 
 (defn testing-vars-str
@@ -410,8 +410,7 @@
   {:added "1.1"}
   [v]
   (try (var-get v)
-       (catch IllegalStateException e
-         nil)))
+       (catch github.com:glojurelang:glojure:pkg:lang.IllegalStateException e nil)))
 
 (defn function?
   "Returns true if argument is a function or a symbol that resolves to