suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

added proper error exit code

Browse Source 
svn: r9749

original commit: 1db7e0604b2b1d090c0be2b52beaa0afe9a2b32d
This commit is contained in:
Eli Barzilay 2008-05-08 17:42:37 +00:00
parent d63d8d7c8e
commit 7afeabe249
1 changed files with 14 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/tests/framework/main.ss
View File

@ -103,14 +103,17 @@
(shutdown-listener) (shutdown-listener)
(cond (exit (cond
[(not (null? jumped-out-tests)) [(not (null? jumped-out-tests))
(printf "Test suites ended with exns ~s\n" jumped-out-tests)] (printf "Test suites ended with exns ~s\n" jumped-out-tests)
1]
[(null? failed-tests) [(null? failed-tests)
(printf "All tests passed.\n")] (printf "All tests passed.\n")
0]
[else [else
(debug-printf schedule "FAILED tests:\n") (debug-printf schedule "FAILED tests:\n")
(for-each (lambda (failed-test) (for-each (lambda (failed-test)
(debug-printf schedule " ~a // ~a\n" (debug-printf schedule " ~a // ~a\n"
(car failed-test) (cdr failed-test))) (car failed-test) (cdr failed-test)))
failed-tests)]) failed-tests)
1]))