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

fix(ci): add tests, fix test-op

Browse Source
This commit is contained in:
Edward Langley
2022-09-27 23:08:46 -07:00
parent a4d622b3df
commit 8fa0b253ab
3 changed files with 66 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -48,10 +48,11 @@ jobs:
- name: run tests
run: |
cd "$GITHUB_WORKSPACE"
sbcl --load "$HOME/quicklisp/setup.lisp" \
sbcl --disable-debugger --no-userinit \
--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 "(handler-case (asdf:test-system :data-lens/test) (error () (uiop:quit 42)))" \
--eval "(ql:quickload :data-lens/transducers/test)" \
--eval "(asdf:test-system :data-lens/transducers/test)" \
--eval "(handler-case (asdf:test-system :data-lens/transducers/test) (error () (uiop:quit 43)))" \
--quit

6
data-lens.asd
View File

@ -22,7 +22,9 @@
:depends-on (:data-lens
:fiveam)
:serial t
:perform (test-op (o c) (symbol-call :fiveam '#:run! :data-lens.lens))
:perform (test-op (o c)
(unless (symbol-call :fiveam '#:run! :data-lens.lens)
(error "some tests failed")))
:components ((:module "t"
:components ((:file "lens")))))
@ -49,6 +51,6 @@
:fiveam)
:serial t
:perform (test-op (o c) (unless (symbol-call :fiveam '#:run! :data-lens.transducers)
(quit 42)))
(error "some tests failed")))
:components ((:module "t"
:components ((:file "transducers")))))

58
t/lens.lisp Normal file
View File

@ -0,0 +1,58 @@
(defpackage :data-lens.t.lens
(:use :cl )
(:export ))
(in-package :data-lens.t.lens)
(5am:def-suite :data-lens.lens)
(5am:in-suite :data-lens.lens)
(5am:def-test == (:suite :data-lens.lens)
(5am:is (equal t
(funcall (data-lens:== 1)
1)))
(5am:is (equal nil
(funcall (data-lens:== (list "1"))
(list "1"))))
(5am:is (equal nil
(funcall (data-lens:== (list "1") :test #'equal)
(list "1")))))
(5am:def-test functionalize (:suite :data-lens.lens)
(5am:is (equal 2
(funcall (data-lens:functionalize #'1+) 1)))
(5am:is (equal 0
(funcall (data-lens:functionalize '1-) 1)))
(5am:is (equal 3
(funcall (data-lens:functionalize #(0 3)) 1)))
(5am:is (equal 8
(funcall (data-lens:functionalize
(alexandria:plist-hash-table '(1 8 2 4)))
1))))
(5am:def-test on (:suite :data-lens.lens :depends-on (and functionalize))
(5am:is (equal 2
(funcall (data-lens:on '1+ 'car)
'(1 2))))
(5am:is (equal 5
(funcall (data-lens:on '+ 'car)
'(1 2)
'(4 5))))
(5am:is (equal 13
(funcall (data-lens:on '+ 'car)
'(1 2)
'(4 5)
'(8 9)))))
(5am:def-test over (:suite :data-lens.lens :depends-on (and functionalize))
(5am:is (equal '(1 2 3)
(funcall (data-lens:over '1+)
'(0 1 2))))
(5am:is (equal '(1 2 3)
(funcall (data-lens:over '1+)
#(0 1 2))))
(5am:is (equalp #(1 2 3)
(funcall (data-lens:over '1+ :result-type 'vector)
'(0 1 2))))
(5am:is (equalp #(1 2 3)
(funcall (data-lens:over '1+ :result-type 'vector)
#(0 1 2)))))