non-zero exit code on fail

Signed-off-by: James Hamlin <jfhamlin@gmail.com>

Author: jfhamlin

Makefile

@@ -69,6 +69,8 @@ GLJ-IMPORTS=$(foreach platform,$(GO-PLATFORMS) \
 GLJ-BINS=$(foreach platform,$(GO-PLATFORMS) \
 	   ,bin/$(platform)/glj$(if $(findstring wasm,$(platform)),.wasm,))
 
+TEST-RUNNER-BIN := bin/glj-test
+
 GO-CMD := go$(GO-VERSION)
 
 ALL-TARGETS := \
@@ -156,7 +158,7 @@ bin/%/glj.wasm: \
 vet:
 	go vet ./...
 
-.PHONY: test
+.PHONY: test test-runner
 # vet is disabled until we fix errors in generated code
 test: test-glj test-suite  # vet
 
@@ -169,6 +171,23 @@ test-suite: $(GLJ-CMD)
 			--expect-errors 151 \
 			2>/dev/null
 
+# Build the test runner
+$(TEST-RUNNER-BIN): cmd/glj-test/main.go pkg/stdlib/glojure/test_runner.glj
+	go build -o $@ ./cmd/glj-test
+
+# Run tests with the new test runner
+test-runner: 
+	go run ./cmd/glj-test --dir test/glojure --verbose
+
+# Run specific test namespace with test runner
+test-ns:
+	@if [ -z "$(NS)" ]; then \
+		echo "Usage: make test-ns NS=pattern"; \
+		echo "Example: make test-ns NS=basic"; \
+		exit 1; \
+	fi
+	go run ./cmd/glj-test --dir test/glojure --namespace ".*$(NS).*" --verbose
+
 $(TEST-GLJ-TARGETS): $(GLJ-CMD)
 	$< $(basename $@)
 

pkg/stdlib/glojure/test_runner.glj

@@ -146,12 +146,16 @@
 
 (defmethod report-results :edn
   [_ results output]
-  (prn results))
+  (prn results)
+  (when (or (> (:fail results) 0) (> (:error results) 0))
+    (os.Exit 1)))
 
 (defmethod report-results :junit
   [_ results output]
   ;; TODO: Implement JUnit XML output
-  (println "JUnit format not yet implemented"))
+  (println "JUnit format not yet implemented")
+  (when (or (> (:fail results) 0) (> (:error results) 0))
+    (os.Exit 1)))
 
 (defn run-tests
   "Main entry point for running tests"
@@ -213,7 +217,11 @@
                                         :verbose verbose})))
 
         ;; Report results
-        (report-results format @test-results output)))))
+        (report-results format @test-results output)
+        
+        ;; Ensure we exit with success if we get here
+        ;; (report-results should have already exited with 1 if there were failures)
+        (os.Exit 0)))))
 
 ;; Default run function for command-line usage
 (defn -main [& args]