Add regression tests

s-expressionists · Feb 29, 2024 · 11e2eb2 · 11e2eb2
1 parent d54de26
commit 11e2eb2
Show file tree

Hide file tree

Showing 3 changed files with 19 additions and 14 deletions.
diff --git a/.github/workflows/test.yml b/.github/workflows/test.yml
@@ -15,9 +15,10 @@ jobs:
     strategy:
       matrix:
         lisp:
+        - abcl
         - clasp
         - cmucl
-        - abcl
+        - sbcl
       fail-fast: false
     runs-on: ubuntu-latest
     container:
@@ -41,7 +42,10 @@ jobs:
       run: |
         make-rc
         asdf-add
-    - name: Run Shim Tests
+    - name: Run Regression Tests
+      run: |
+        lisp -i ${{ matrix.lisp }} -e "(ql:quickload :inravina/test)" -e "(asdf:test-system :inravina)" -q
+    - name: Run ANSI Tests
       run: |
         lisp -i ${{ matrix.lisp }} -e "(ql:quickload :inravina-extrinsic/test)" -e "(inravina-extrinsic/test:ansi-test :exit t)"
 
diff --git a/code/test/pprint-indent.lisp b/code/test/pprint-indent.lisp
@@ -19,13 +19,14 @@ ZB
 ZC[D
 Z  E
 ZF]"
-      (inravina:pprint-logical-block (*client stream  nil :per-line-prefix "Z")
-        (write-string "A " stream)
-        (inravina:pprint-newline *client stream :mandatory)
-        (write-string "B
+      (with-env (stream)
+        (inravina:pprint-logical-block (*client* stream  nil :per-line-prefix "Z")
+          (write-string "A " stream)
+          (inravina:pprint-newline *client* stream :mandatory)
+          (write-string "B
 C" stream)
-        (inravina:pprint-logical-block (*client stream nil :prefix "[" :suffix "]")
-          (write-string "D " stream)
-          (inravina:pprint-newline *client stream :mandatory)
-          (write-string "E
-F" stream)))))
+          (inravina:pprint-logical-block (*client* stream nil :prefix "[" :suffix "]")
+            (write-string "D " stream)
+            (inravina:pprint-newline *client* stream :mandatory)
+            (write-string "E
+F" stream))))))
diff --git a/inravina.asd b/inravina.asd
@@ -26,9 +26,9 @@
   :description "Test suite for Inravina"
   :author "Tarn W. Burton"
   :license "MIT"
-  :depends-on
-  ("alexandria"
-   "parachute")
+  :depends-on ("alexandria"
+               "inravina"
+               "parachute")
   :perform (asdf:test-op (op c) (uiop:symbol-call :parachute :test :inravina/test))
   :components ((:module code
                 :components ((:module test