Export test name

s-expressionists · Jan 17, 2024 · 7bc4a8b · 7bc4a8b
1 parent 8e32ca8
commit 7bc4a8b
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 3 deletions.
diff --git a/.github/workflows/test.yml b/.github/workflows/test.yml
@@ -43,5 +43,5 @@ jobs:
         asdf-add
     - name: Run Shim Tests
       run: |
-        lisp -i ${{ matrix.lisp }} -e "(ql:quickload :inravina-extrinsic/test)" -e "(inravina-extrinsic/test:test :exit t)"
+        lisp -i ${{ matrix.lisp }} -e "(ql:quickload :inravina-extrinsic/test)" -e "(inravina-extrinsic/test:ansi-test :exit t)"
 
diff --git a/code/extrinsic/test/ansi-test.lisp b/code/extrinsic/test/ansi-test.lisp
@@ -31,7 +31,7 @@
     "PPRINT"
     "SET-PPRINT-DISPATCH."))
 
-(defun test ()
+(defun ansi-test ()
   (let ((system (asdf:find-system :inravina-extrinsic/test)))
     (apply #'ansi-test-harness:ansi-test
            :directory (merge-pathnames

diff --git a/code/extrinsic/test/packages.lisp b/code/extrinsic/test/packages.lisp
@@ -1,4 +1,5 @@
 (cl:in-package #:common-lisp-user)
 
 (defpackage #:inravina-extrinsic/test
-  (:use #:common-lisp))
+  (:use #:common-lisp)
+  (:export #:ansi-test))