fiddlerwoaroof/data-lens
1
0
Fork 0
mirror of https://github.com/fiddlerwoaroof/data-lens.git synced 2025-11-08 18:26:32 +00:00
Code Issues Releases Wiki Activity

feat(ci): test main system

Browse Source
This commit is contained in:
Edward Langley
2022-09-27 19:48:08 -07:00
parent 801bc1e033
commit a4d622b3df
2 changed files with 15 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
.github/workflows/test.yml vendored
View File

@ -50,6 +50,8 @@ jobs:
cd "$GITHUB_WORKSPACE" cd "$GITHUB_WORKSPACE"
sbcl --load "$HOME/quicklisp/setup.lisp" \ sbcl --load "$HOME/quicklisp/setup.lisp" \
--eval "(mapcar 'asdf:load-asd (directory \"*.asd\"))" \ --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 "(ql:quickload :data-lens/transducers/test)" \
--eval "(asdf:test-system :data-lens/transducers/test)" \ --eval "(asdf:test-system :data-lens/transducers/test)" \
--quit --quit

14
data-lens.asd
View File

@ -10,10 +10,22 @@
:depends-on (:cl-ppcre :depends-on (:cl-ppcre
:alexandria) :alexandria)
:serial t :serial t
:in-order-to ((test-op (test-op :data-lens/test)))
:components ((:file "package") :components ((:file "package")
(:file "optics") (:file "optics")
(:file "lens"))) (:file "lens")))
(asdf:defsystem #:data-lens/test
:description "tests for the transducers"
:author "Edward Langley <el-cl@elangley.org>"
: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 (asdf:defsystem #:data-lens/beta/transducers
:description #.(format nil "~@{~a~^ ~}" :description #.(format nil "~@{~a~^ ~}"
"A collection of transducers to reduce stream-manipulation overhead") "A collection of transducers to reduce stream-manipulation overhead")
@ -37,6 +49,6 @@
:fiveam) :fiveam)
:serial t :serial t
:perform (test-op (o c) (unless (symbol-call :fiveam '#:run! :data-lens.transducers) :perform (test-op (o c) (unless (symbol-call :fiveam '#:run! :data-lens.transducers)
(quit 41))) (quit 42)))
:components ((:module "t" :components ((:module "t"
:components ((:file "transducers"))))) :components ((:file "transducers")))))