diff --git a/.github/workflows/test.yml b/.github/workflows/test.yml index b5b49d8..ab70cbb 100644 --- a/.github/workflows/test.yml +++ b/.github/workflows/test.yml @@ -50,6 +50,8 @@ jobs: cd "$GITHUB_WORKSPACE" sbcl --load "$HOME/quicklisp/setup.lisp" \ --eval "(mapcar 'asdf:load-asd (directory \"*.asd\"))" \ + --eval "(ql:quickload :data-lens/test)" \ + --eval "(asdf:test-system :data-lens/test)" \ --eval "(ql:quickload :data-lens/transducers/test)" \ --eval "(asdf:test-system :data-lens/transducers/test)" \ --quit diff --git a/data-lens.asd b/data-lens.asd index 03c8e11..83619ad 100644 --- a/data-lens.asd +++ b/data-lens.asd @@ -10,10 +10,22 @@ :depends-on (:cl-ppcre :alexandria) :serial t + :in-order-to ((test-op (test-op :data-lens/test))) :components ((:file "package") (:file "optics") (:file "lens"))) +(asdf:defsystem #:data-lens/test + :description "tests for the transducers" + :author "Edward Langley " + :license "Apache v2" + :depends-on (:data-lens + :fiveam) + :serial t + :perform (test-op (o c) (symbol-call :fiveam '#:run! :data-lens.lens)) + :components ((:module "t" + :components ((:file "lens"))))) + (asdf:defsystem #:data-lens/beta/transducers :description #.(format nil "~@{~a~^ ~}" "A collection of transducers to reduce stream-manipulation overhead") @@ -37,6 +49,6 @@ :fiveam) :serial t :perform (test-op (o c) (unless (symbol-call :fiveam '#:run! :data-lens.transducers) - (quit 41))) + (quit 42))) :components ((:module "t" :components ((:file "transducers")))))