chore(transducers): correct exit code for failing tests

This commit is contained in:
Edward
2021-01-04 15:45:31 -08:00
parent a5147afadb
commit 80d1feb182

View File

@ -1,3 +1,5 @@
(in-package :asdf-user)
(asdf:defsystem #:data-lens (asdf:defsystem #:data-lens
:description #.(format nil "~@{~a~^ ~}" :description #.(format nil "~@{~a~^ ~}"
"Utilities for building data transformations from" "Utilities for building data transformations from"
@ -34,6 +36,7 @@
:depends-on (:data-lens/beta/transducers :depends-on (:data-lens/beta/transducers
:fiveam) :fiveam)
:serial t :serial t
:perform (test-op (o c) (symbol-call :fiveam '#:run! :data-lens.transducers)) :perform (test-op (o c) (unless (symbol-call :fiveam '#:run! :data-lens.transducers)
(quit 41)))
:components ((:module "t" :components ((:module "t"
:components ((:file "transducers"))))) :components ((:file "transducers")))))