Make run-tests exit 1 when there are failures

e2e/testing.scm

@@ -1,5 +1,5 @@
 (define-module (e2e testing)
-  #:export (assert define-test run-tests))
+  #:export (assert define-test run-tests run-tests-with-cleanup))
 
 (use-modules
  (sxml simple)
@@ -47,10 +47,8 @@
 	   ((error? result) `((error (@ (message ,(cddr result))))))
 	   (#t '()))))
 
-(define (junit-report results)
+(define (junit-report results fails errors)
-  (let ((count (length results))
+  (let ((count (length results)))
-		(fails (length (filter fail? results)))
-		(errors (length (filter error? results))))
 	`(testsuites
 	  (testsuite
 	   (@ (name "wipforth e2e")
@@ -60,5 +58,14 @@
 	   ,@(map test-junit-report results)))))
 
 (define (run-tests)
-  (let ((results (map run-test (fluid-ref *tests*))))
+  (let* ((results (map run-test (fluid-ref *tests*)))
-	(sxml->xml (junit-report results))))
+		 (fails (length (filter fail? results)))
+		 (errors (length (filter error? results))))
+	(sxml->xml (junit-report results fails errors))
+	(exit (if (= (+ fails errors) 0) 0 1))))
+
+(define-syntax-rule (run-tests-with-cleanup body ...)
+  (dynamic-wind
+	(lambda () #f)
+	run-tests
+	(lambda () body ...)))

tests.scm

@@ -21,7 +21,7 @@
 (navigate client "http://localhost:8080")
 (sleep 5)
 
-(define-test preload-loads-successfully
+(define-test prelude-loads-successfully
   (let* ((display (get-display client))
 		 (first-line (first (lines display))))
 	(assert (string-match "Loading prelude \\.+ done" first-line)
@@ -40,8 +40,7 @@
 	(assert (string=? "Hello, world!" result-line)
 			(format #f "Result line: ~s" result-line))))
 
-(run-tests)
+(run-tests-with-cleanup
-
  (client-teardown client)
  (close-firefox firefox)
-(server-stop server)
+ (server-stop server))