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

.github/workflows/test.yml

@@ -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

data-lens.asd

@@ -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")))))

t/lens.lisp

@@ -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)))))