Browse code
chore(transducers): correct exit code for failing tests
Edward authored on 04/01/2021 23:45:31
Showing 1 changed files
Showing 1 changed files
... | ... |
@@ -1,3 +1,5 @@ |
1 |
+(in-package :asdf-user) |
|
2 |
+ |
|
1 | 3 |
(asdf:defsystem #:data-lens |
2 | 4 |
:description #.(format nil "~@{~a~^ ~}" |
3 | 5 |
"Utilities for building data transformations from" |
... | ... |
@@ -34,6 +36,7 @@ |
34 | 36 |
:depends-on (:data-lens/beta/transducers |
35 | 37 |
:fiveam) |
36 | 38 |
:serial t |
37 |
- :perform (test-op (o c) (symbol-call :fiveam '#:run! :data-lens.transducers)) |
|
39 |
+ :perform (test-op (o c) (unless (symbol-call :fiveam '#:run! :data-lens.transducers) |
|
40 |
+ (quit 41))) |
|
38 | 41 |
:components ((:module "t" |
39 | 42 |
:components ((:file "transducers"))))) |