contract test suite: fix exit status on failure

This commit is contained in:
Matthew Flatt 2015-02-19 08:35:25 -07:00
parent 54fb57d6b9
commit e913a13614

View File

@ -215,3 +215,5 @@
(cond
[(zero? failures) "all passed"]
[else (format "~a failed" failures)]))
(unless (zero? failures)
(exit 1))