From 7bd93dbe666b0f202377f867bace1f2e9d6c917e Mon Sep 17 00:00:00 2001 From: "Andre A. Gomes" Date: Thu, 23 Nov 2023 17:56:03 +0200 Subject: [PATCH] test test failure. --- .github/workflows/tests.yml | 4 ++-- nsymbols.lisp | 2 +- tests/tests.lisp | 2 +- 3 files changed, 4 insertions(+), 4 deletions(-) diff --git a/.github/workflows/tests.yml b/.github/workflows/tests.yml index b876301..5f6b303 100644 --- a/.github/workflows/tests.yml +++ b/.github/workflows/tests.yml @@ -32,9 +32,9 @@ jobs: # - name: Load the system # shell: bash # run: | - # ros -e '(push (uiop:getcwd) ql:*local-project-directories*)' -e '(handler-case (ql:quickload :nsymbols) (error (a) (format t "caught error ~s~%~a~%" a a) (uiop:quit 17)))' + # ros -e '(push (uiop:getcwd) ql:*local-project-directories*)' -e '(handler-case (ql:quickload :nsymbols) (error (a) (format t "caught error ~s~%~a~%" a a) (uiop:quit 17)))' - name: Run tests - run: | + run: >- ros -e '(ql:quickload :lisp-unit2)' \ -e '(handler-case (asdf:test-system :nsymbols) (error (c) (uiop:quit 1)))' diff --git a/nsymbols.lisp b/nsymbols.lisp index 9d1af6e..037556c 100644 --- a/nsymbols.lisp +++ b/nsymbols.lisp @@ -14,7 +14,7 @@ (dolist (result (results condition)) (terpri stream) (prin1 result stream)))) - (:documentation "Raised when `resolve-symbol' finds multiple symbols with `error-p' set to T.") + (:documentation "Raised when `resolve-symbol' finds multiple symbols with `error-p' set to T.")) (export 'multiple-resolved-symbols-error) (deftype symbol-visibility () diff --git a/tests/tests.lisp b/tests/tests.lisp index aa3cd9d..8b9ccf1 100644 --- a/tests/tests.lisp +++ b/tests/tests.lisp @@ -34,7 +34,7 @@ (assert-eql 0 (length (nsymbols:package-structures :nsymbols))) (assert-eql 3 (length (nsymbols:package-variables :nsymbols))) (assert-eql 2 (length (nsymbols:package-variables :nsymbols :external))) - (assert-eql 1 (length (nsymbols:package-variables :nsymbols :internal)))) + (assert-eql 10 (length (nsymbols:package-variables :nsymbols :internal)))) (defun hello () nil)