Make run-tests exit 1 when there are failures

2026-03-04 22:08:34 +00:00
parent fb70a2585f
commit e5f9d2d828
2 changed files with 18 additions and 12 deletions
--- a/tests.scm
+++ b/tests.scm
@@ -40,8 +40,7 @@
 	(assert (string=? "Hello, world!" result-line)
 			(format #f "Result line: ~s" result-line))))

-(run-tests)
-
-(client-teardown client)
-(close-firefox firefox)
-(server-stop server)
+(run-tests-with-cleanup
+ (client-teardown client)
+ (close-firefox firefox)
+ (server-stop server))