git.fiddlerwoaroof.com
Browse code

chore(transducers): correct exit code for failing tests

Edward authored on 04/01/2021 23:45:31
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")))))