From 0c177417ad893bf340e8f69b7110f7086b6fbc76 Mon Sep 17 00:00:00 2001 From: pfdietz Date: Sun, 22 Feb 2004 13:33:59 +0000 Subject: [PATCH] Moved package tests to files following the naming conventions used elsewhere. Added some missing tests. --- ansi-tests/TODO | 2 + .../{packages-16.lsp => defpackage.lsp} | 2 +- .../{packages-08.lsp => delete-package.lsp} | 2 +- ansi-tests/do-all-symbols.lsp | 11 + ansi-tests/do-external-symbols.lsp | 75 ++++++ .../{packages-17.lsp => do-symbols.lsp} | 73 +----- ansi-tests/{packages-05.lsp => export.lsp} | 2 +- ansi-tests/find-all-symbols.lsp | 50 ++++ .../{packages-02.lsp => find-package.lsp} | 2 +- .../{packages-01.lsp => find-symbol.lsp} | 2 +- ansi-tests/gclload2.lsp | 2 +- .../{packages-13.lsp => in-package.lsp} | 2 +- ansi-tests/{packages-04.lsp => intern.lsp} | 2 +- ansi-tests/keyword.lsp | 32 +++ ansi-tests/list-all-packages.lsp | 45 ++++ ansi-tests/load-packages.lsp | 37 +++ .../{packages-09.lsp => make-package.lsp} | 2 +- ansi-tests/package-error-package.lsp | 47 ++++ ansi-tests/package-error.lsp | 31 +++ ansi-tests/package-name.lsp | 114 +++++++++ ansi-tests/package-nicknames.lsp | 92 +++++++ ansi-tests/package-shadowing-symbols.lsp | 17 ++ ansi-tests/package-use-list.lsp | 16 ++ ansi-tests/package-used-by-list.lsp | 17 ++ ansi-tests/packagep.lsp | 31 +++ ansi-tests/packages-03.lsp | 238 ------------------ ansi-tests/packages-18.lsp | 108 -------- ansi-tests/packages-19.lsp | 60 ----- ansi-tests/packages.lsp | 28 --- .../{packages-06.lsp => rename-package.lsp} | 2 +- ansi-tests/{packages-07.lsp => shadow.lsp} | 2 +- ansi-tests/{packages-11.lsp => unexport.lsp} | 2 +- ansi-tests/{packages-12.lsp => unintern.lsp} | 3 +- .../{packages-14.lsp => unuse-package.lsp} | 3 +- .../{packages-15.lsp => use-package.lsp} | 3 +- ...kages-10.lsp => with-package-iterator.lsp} | 2 +- 36 files changed, 637 insertions(+), 522 deletions(-) rename ansi-tests/{packages-16.lsp => defpackage.lsp} (99%) rename ansi-tests/{packages-08.lsp => delete-package.lsp} (98%) create mode 100644 ansi-tests/do-all-symbols.lsp create mode 100644 ansi-tests/do-external-symbols.lsp rename ansi-tests/{packages-17.lsp => do-symbols.lsp} (51%) rename ansi-tests/{packages-05.lsp => export.lsp} (98%) create mode 100644 ansi-tests/find-all-symbols.lsp rename ansi-tests/{packages-02.lsp => find-package.lsp} (97%) rename ansi-tests/{packages-01.lsp => find-symbol.lsp} (97%) rename ansi-tests/{packages-13.lsp => in-package.lsp} (96%) rename ansi-tests/{packages-04.lsp => intern.lsp} (97%) create mode 100644 ansi-tests/keyword.lsp create mode 100644 ansi-tests/list-all-packages.lsp create mode 100644 ansi-tests/load-packages.lsp rename ansi-tests/{packages-09.lsp => make-package.lsp} (99%) create mode 100644 ansi-tests/package-error-package.lsp create mode 100644 ansi-tests/package-error.lsp create mode 100644 ansi-tests/package-name.lsp create mode 100644 ansi-tests/package-nicknames.lsp create mode 100644 ansi-tests/package-shadowing-symbols.lsp create mode 100644 ansi-tests/package-use-list.lsp create mode 100644 ansi-tests/package-used-by-list.lsp create mode 100644 ansi-tests/packagep.lsp delete mode 100644 ansi-tests/packages-03.lsp delete mode 100644 ansi-tests/packages-18.lsp delete mode 100644 ansi-tests/packages-19.lsp delete mode 100644 ansi-tests/packages.lsp rename ansi-tests/{packages-06.lsp => rename-package.lsp} (99%) rename ansi-tests/{packages-07.lsp => shadow.lsp} (99%) rename ansi-tests/{packages-11.lsp => unexport.lsp} (98%) rename ansi-tests/{packages-12.lsp => unintern.lsp} (99%) rename ansi-tests/{packages-14.lsp => unuse-package.lsp} (99%) rename ansi-tests/{packages-15.lsp => use-package.lsp} (99%) rename ansi-tests/{packages-10.lsp => with-package-iterator.lsp} (98%) diff --git a/ansi-tests/TODO b/ansi-tests/TODO index b182289..5461db0 100644 --- a/ansi-tests/TODO +++ b/ansi-tests/TODO @@ -28,3 +28,5 @@ Things to do to the test suite (not a complete list) 12. Make sure all string operators work on displaced character vectors. 14. Finish testing DEFSETF + +15. All tests for DO-ALL-SYMBOLS \ No newline at end of file diff --git a/ansi-tests/packages-16.lsp b/ansi-tests/defpackage.lsp similarity index 99% rename from ansi-tests/packages-16.lsp rename to ansi-tests/defpackage.lsp index 0f95a8c..7fd58b8 100644 --- a/ansi-tests/packages-16.lsp +++ b/ansi-tests/defpackage.lsp @@ -1,7 +1,7 @@ ;-*- Mode: Lisp -*- ;;;; Author: Paul Dietz ;;;; Created: Sat Apr 25 08:09:18 1998 -;;;; Contains: Package test code, part 16 +;;;; Contains: Tests of DEFPACKAGE (in-package :cl-test) (declaim (optimize (safety 3))) diff --git a/ansi-tests/packages-08.lsp b/ansi-tests/delete-package.lsp similarity index 98% rename from ansi-tests/packages-08.lsp rename to ansi-tests/delete-package.lsp index 14c49dc..4b64561 100644 --- a/ansi-tests/packages-08.lsp +++ b/ansi-tests/delete-package.lsp @@ -1,7 +1,7 @@ ;-*- Mode: Lisp -*- ;;;; Author: Paul Dietz ;;;; Created: Sat Apr 25 08:01:58 1998 -;;;; Contains: Package test code, part 08 +;;;; Contains: Tests of DELETE-PACKAGE (in-package :cl-test) (declaim (optimize (safety 3))) diff --git a/ansi-tests/do-all-symbols.lsp b/ansi-tests/do-all-symbols.lsp new file mode 100644 index 0000000..0b43aa3 --- /dev/null +++ b/ansi-tests/do-all-symbols.lsp @@ -0,0 +1,11 @@ +;-*- Mode: Lisp -*- +;;;; Author: Paul Dietz +;;;; Created: Sat Feb 21 18:27:22 2004 +;;;; Contains: Tests of DO-ALL-SYMBOLS + +(in-package :cl-test) + +(def-macro-test do-all-symbols.error.1 + (do-all-symbols (x))) + +;;; FIXME Add tests for non-error cases diff --git a/ansi-tests/do-external-symbols.lsp b/ansi-tests/do-external-symbols.lsp new file mode 100644 index 0000000..d9327ec --- /dev/null +++ b/ansi-tests/do-external-symbols.lsp @@ -0,0 +1,75 @@ +;-*- Mode: Lisp -*- +;;;; Author: Paul Dietz +;;;; Created: Sat Feb 21 18:26:08 2004 +;;;; Contains: Tests of DO-EXTERNAL-SYMBOLS + +(in-package :cl-test) +(declaim (optimize (safety 3))) + +(defun collect-external-symbols (pkg) + (remove-duplicates + (sort-symbols + (let ((all nil)) + (do-external-symbols (x pkg all) (push x all)))))) + +(deftest do-external-symbols.1 + (collect-external-symbols "DS1") + (DS1:A DS1:B)) + +(deftest do-external-symbols.2 + (collect-external-symbols "DS2") + (DS2:A DS2:G DS2:H)) + +(deftest do-external-symbols.3 + (collect-external-symbols "DS3") + (DS1:A DS3:B DS2:G DS3:I DS3:J DS3:K)) + +(deftest do-external-symbols.4 + (collect-external-symbols "DS4") + ()) + +(deftest do-external-symbols.5 + (equalt (collect-external-symbols "KEYWORD") + (collect-symbols "KEYWORD")) + t) + +;; Test that do-external-symbols works without +;; a return value (and that the default return value is nil) + +(deftest do-external-symbols.6 + (do-external-symbols (s "DS1") (declare (ignore s)) t) + nil) + +;; Test that do-external-symbols works without +;; a package being specified + +(deftest do-external-symbols.7 + (let ((x nil) + (*package* (find-package "DS1"))) + (declare (special *package*)) + (list + (do-external-symbols (s) (push s x)) + (sort-symbols x))) + (nil (DS1:A DS1:B))) + +;; Test that the tags work in the tagbody, +;; and that multiple statements work + +(deftest do-external-symbols.8 + (handler-case + (let ((x nil)) + (list + (do-external-symbols + (s "DS1") + (when (equalt (symbol-name s) "A") (go bar)) + (push s x) + (go foo) + bar + (push t x) + foo) + (sort-symbols x))) + (error (c) c)) + (NIL (DS1:B T))) + +(def-macro-test do-external-symbols.error.1 + (do-external-symbols (x "CL"))) diff --git a/ansi-tests/packages-17.lsp b/ansi-tests/do-symbols.lsp similarity index 51% rename from ansi-tests/packages-17.lsp rename to ansi-tests/do-symbols.lsp index 70f7946..9ea140d 100644 --- a/ansi-tests/packages-17.lsp +++ b/ansi-tests/do-symbols.lsp @@ -1,7 +1,7 @@ ;-*- Mode: Lisp -*- ;;;; Author: Paul Dietz -;;;; Created: Sat Apr 25 19:20:29 1998 -;;;; Contains: Package test code, part 17 +;;;; Created: Sat Feb 21 18:24:59 2004 +;;;; Contains: Tests of DO-SYMBOLS (in-package :cl-test) (declaim (optimize (safety 3))) @@ -25,12 +25,6 @@ (let ((all nil)) (do-symbols (x pkg all) (push x all)))))) -(defun collect-external-symbols (pkg) - (remove-duplicates - (sort-symbols - (let ((all nil)) - (do-external-symbols (x pkg all) (push x all)))))) - (deftest do-symbols.2 (collect-symbols "DS1") (DS1:A DS1:B DS1::C DS1::D)) @@ -52,40 +46,14 @@ (DS1:A DS1:B DS2::F DS3:G DS3:I DS3:J DS3:K DS4::X DS4::Y DS4::Z)) -(deftest do-external-symbols.1 - (collect-external-symbols "DS1") - (DS1:A DS1:B)) - -(deftest do-external-symbols.2 - (collect-external-symbols "DS2") - (DS2:A DS2:G DS2:H)) - -(deftest do-external-symbols.3 - (collect-external-symbols "DS3") - (DS1:A DS3:B DS2:G DS3:I DS3:J DS3:K)) - -(deftest do-external-symbols.4 - (collect-external-symbols "DS4") - ()) - -(deftest do-external-symbols.5 - (equalt (collect-external-symbols "KEYWORD") - (collect-symbols "KEYWORD")) - t) - -;; Test that do-symbols, do-external-symbols work without +;; Test that do-symbols works without ;; a return value (and that the default return value is nil) (deftest do-symbols.6 (do-symbols (s "DS1") (declare (ignore s)) t) nil) -(deftest do-external-symbols.6 - (do-external-symbols (s "DS1") (declare (ignore s)) t) - nil) - -;; Test that do-symbols, do-external-symbols work without -;; a package being specified +;; Test that do-symbols works without a package being specified (deftest do-symbols.7 (let ((x nil) @@ -96,15 +64,6 @@ (sort-symbols x))) (nil (DS1:A DS1:B DS1::C DS1::D))) -(deftest do-external-symbols.7 - (let ((x nil) - (*package* (find-package "DS1"))) - (declare (special *package*)) - (list - (do-external-symbols (s) (push s x)) - (sort-symbols x))) - (nil (DS1:A DS1:B))) - ;; Test that the tags work in the tagbody, ;; and that multiple statements work @@ -124,30 +83,6 @@ (error (c) c)) (NIL (DS1:A DS1:B DS1::D T))) -(deftest do-external-symbols.8 - (handler-case - (let ((x nil)) - (list - (do-external-symbols - (s "DS1") - (when (equalt (symbol-name s) "A") (go bar)) - (push s x) - (go foo) - bar - (push t x) - foo) - (sort-symbols x))) - (error (c) c)) - (NIL (DS1:B T))) - (def-macro-test do-symbols.error.1 (do-symbols (x "CL"))) -(def-macro-test do-external-symbols.error.1 - (do-external-symbols (x "CL"))) - -(def-macro-test do-all-symbols.error.1 - (do-all-symbols (x))) - -;;; Need to add DO-ALL-SYMBOLS tests - diff --git a/ansi-tests/packages-05.lsp b/ansi-tests/export.lsp similarity index 98% rename from ansi-tests/packages-05.lsp rename to ansi-tests/export.lsp index 3f434c3..6fd60cb 100644 --- a/ansi-tests/packages-05.lsp +++ b/ansi-tests/export.lsp @@ -1,7 +1,7 @@ ;-*- Mode: Lisp -*- ;;;; Author: Paul Dietz ;;;; Created: Sat Apr 25 07:59:45 1998 -;;;; Contains: Package test code, part 05 +;;;; Contains: Tests of EXPORT (in-package :cl-test) (declaim (optimize (safety 3))) diff --git a/ansi-tests/find-all-symbols.lsp b/ansi-tests/find-all-symbols.lsp new file mode 100644 index 0000000..eedd05e --- /dev/null +++ b/ansi-tests/find-all-symbols.lsp @@ -0,0 +1,50 @@ +;-*- Mode: Lisp -*- +;;;; Author: Paul Dietz +;;;; Created: Sun Feb 22 07:10:22 2004 +;;;; Contains: Tests for FIND-ALL-SYMBOLS + +(in-package :cl-test) + +(deftest find-all-symbols.1 + (let ((all-packages (list-all-packages))) + (loop + for package in all-packages + append + (let ((failures nil)) + (do-symbols (sym package failures) + (when (eql (symbol-package sym) package) + (let* ((name (symbol-name sym)) + (similar (find-all-symbols name)) + (similar2 (find-all-symbols sym))) + (unless (and (member sym similar) + (subsetp similar similar2) + (subsetp similar2 similar) + (loop for sym2 in similar + always (and (string= name (symbol-name sym2)) + (member (symbol-package sym2) + all-packages)))) + (push sym failures)))))))) + nil) + +(deftest find-all-symbols.2 + (loop for i from 0 to 255 + for c = (code-char i) + when (and (characterp c) + (loop for sym in (find-all-symbols c) + thereis (not (string= (symbol-name sym) + (string c))))) + collect c) + nil) + + +;;; Error tests + +(deftest find-all-symbols.error.1 + (signals-error (find-all-symbols) program-error) + t) + +(deftest find-all-symbols.error.2 + (signals-error (find-all-symbols "CAR" nil) program-error) + t) + + diff --git a/ansi-tests/packages-02.lsp b/ansi-tests/find-package.lsp similarity index 97% rename from ansi-tests/packages-02.lsp rename to ansi-tests/find-package.lsp index 7e927f3..ebf06d9 100644 --- a/ansi-tests/packages-02.lsp +++ b/ansi-tests/find-package.lsp @@ -1,7 +1,7 @@ ;-*- Mode: Lisp -*- ;;;; Author: Paul Dietz ;;;; Created: Sat Apr 25 07:50:39 1998 -;;;; Contains: Package test code, aprt 02 +;;;; Contains: Tests for FIND-PACKAGE (in-package :cl-test) (declaim (optimize (safety 3))) diff --git a/ansi-tests/packages-01.lsp b/ansi-tests/find-symbol.lsp similarity index 97% rename from ansi-tests/packages-01.lsp rename to ansi-tests/find-symbol.lsp index a4fb4bb..f3541a7 100644 --- a/ansi-tests/packages-01.lsp +++ b/ansi-tests/find-symbol.lsp @@ -1,7 +1,7 @@ ;-*- Mode: Lisp -*- ;;;; Author: Paul Dietz ;;;; Created: Sat Apr 25 07:49:34 1998 -;;;; Contains: Package test code, part 01 +;;;; Contains: Tests for FIND-SYMBOL (in-package :cl-test) (declaim (optimize (safety 3))) diff --git a/ansi-tests/gclload2.lsp b/ansi-tests/gclload2.lsp index 16a177d..3ba06d0 100644 --- a/ansi-tests/gclload2.lsp +++ b/ansi-tests/gclload2.lsp @@ -29,7 +29,7 @@ ;;; Tests of packages -(load "packages.lsp") +(load "load-packages.lsp") ;;; Tests of numbers (section 12) (load "load-numbers.lsp") diff --git a/ansi-tests/packages-13.lsp b/ansi-tests/in-package.lsp similarity index 96% rename from ansi-tests/packages-13.lsp rename to ansi-tests/in-package.lsp index 4cba332..226baeb 100644 --- a/ansi-tests/packages-13.lsp +++ b/ansi-tests/in-package.lsp @@ -1,7 +1,7 @@ ;-*- Mode: Lisp -*- ;;;; Author: Paul Dietz ;;;; Created: Sat Apr 25 08:06:03 1998 -;;;; Contains: Package test code, part 13 +;;;; Contains: Tests of IN-PACKAGE (in-package :cl-test) (declaim (optimize (safety 3))) diff --git a/ansi-tests/packages-04.lsp b/ansi-tests/intern.lsp similarity index 97% rename from ansi-tests/packages-04.lsp rename to ansi-tests/intern.lsp index b4929a4..c3f35b5 100644 --- a/ansi-tests/packages-04.lsp +++ b/ansi-tests/intern.lsp @@ -1,7 +1,7 @@ ;-*- Mode: Lisp -*- ;;;; Author: Paul Dietz ;;;; Created: Sat Apr 25 07:59:10 1998 -;;;; Contains: Package test code, part 04 +;;;; Contains: Tests of INTERN (in-package :cl-test) (declaim (optimize (safety 3))) diff --git a/ansi-tests/keyword.lsp b/ansi-tests/keyword.lsp new file mode 100644 index 0000000..b464c27 --- /dev/null +++ b/ansi-tests/keyword.lsp @@ -0,0 +1,32 @@ +;-*- Mode: Lisp -*- +;;;; Author: Paul Dietz +;;;; Created: Sun Feb 22 06:53:55 2004 +;;;; Contains: Tests of the KEYWORD package + +(in-package :cl-test) + +;; Check that each keyword satisfies keywordp + +(deftest keyword.1 + (do-symbols (s "KEYWORD" t) + (unless (keywordp s) + (return (list s nil)))) + t) + +;; Every keyword is external +(deftest keyword.2 + (do-symbols (s "KEYWORD" t) + (multiple-value-bind (s2 access) + (find-symbol (symbol-name s) "KEYWORD") + (unless (and (eqt s s2) + (eqt access :external)) + (return (list s2 access))))) + t) + +;; Every keyword evaluates to itself +(deftest keyword.3 + (do-symbols (s "KEYWORD" t) + (unless (eqt s (eval s)) + (return (list s (eval s))))) + t) + diff --git a/ansi-tests/list-all-packages.lsp b/ansi-tests/list-all-packages.lsp new file mode 100644 index 0000000..8084830 --- /dev/null +++ b/ansi-tests/list-all-packages.lsp @@ -0,0 +1,45 @@ +;-*- Mode: Lisp -*- +;;;; Author: Paul Dietz +;;;; Created: Sat Feb 21 17:47:37 2004 +;;;; Contains: Tests of LIST-ALL-PACKAGES + +(in-package :cl-test) +(declaim (optimize (safety 3))) + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; list-all-packages + +;; list-all-packages returns a list +(deftest list-all-packages.1 + (numberp (ignore-errors (list-length (list-all-packages)))) + t) + +;; The required packages are present +(deftest list-all-packages.2 + (subsetp + (list (find-package "CL") + (find-package "CL-USER") + (find-package "KEYWORD") + (find-package "A") + (find-package "REGRESSION-TEST") + (find-package "CL-TEST") + (find-package "B")) + (list-all-packages)) + t) + +;; The list returned has only packages in it +(deftest list-all-packages.3 + (notnot-mv (every #'packagep (list-all-packages))) + t) + +;; It returns a list of the same packages each time it is called +(deftest list-all-packages.4 + (let ((p1 (list-all-packages)) + (p2 (list-all-packages))) + (and (subsetp p1 p2) + (subsetp p2 p1))) + t) + +(deftest list-all-packages.error.1 + (signals-error (list-all-packages nil) program-error) + t) diff --git a/ansi-tests/load-packages.lsp b/ansi-tests/load-packages.lsp new file mode 100644 index 0000000..86c0fc4 --- /dev/null +++ b/ansi-tests/load-packages.lsp @@ -0,0 +1,37 @@ +;-*- Mode: Lisp -*- +;;;; Author: Paul Dietz +;;;; Created: Sun Oct 6 00:32:56 2002 +;;;; Contains: Loader for files containing package tests + + +(load "packages-00.lsp") +(load "find-symbol.lsp") +(load "find-all-symbols.lsp") +(load "find-package.lsp") +(load "list-all-packages.lsp") +(load "package-name.lsp") +(load "package-nicknames.lsp") +(load "intern.lsp") +(load "export.lsp") +(load "rename-package.lsp") +(load "shadow.lsp") +(load "delete-package.lsp") +(load "make-package.lsp") +(load "with-package-iterator.lsp") +(load "unexport.lsp") +(load "unintern.lsp") +(load "in-package.lsp") +(load "unuse-package.lsp") +(load "use-package.lsp") +(load "defpackage.lsp") +(load "do-symbols.lsp") +(load "do-external-symbols.lsp") +(load "do-all-symbols.lsp") +(load "packagep.lsp") +(load "package-error.lsp") +(load "package-error-package.lsp") +(load "keyword.lsp") +(load "package-shadowing-symbols.lsp") +(load "package-use-list.lsp") +(load "package-used-by-list.lsp") +(load "import.lsp") diff --git a/ansi-tests/packages-09.lsp b/ansi-tests/make-package.lsp similarity index 99% rename from ansi-tests/packages-09.lsp rename to ansi-tests/make-package.lsp index 5d18549..f88e8ec 100644 --- a/ansi-tests/packages-09.lsp +++ b/ansi-tests/make-package.lsp @@ -1,7 +1,7 @@ ;-*- Mode: Lisp -*- ;;;; Author: Paul Dietz ;;;; Created: Sat Apr 25 08:02:43 1998 -;;;; Contains: Package test code, part 09 +;;;; Contains: Tests of MAKE-PACKAGE (in-package :cl-test) (declaim (optimize (safety 3))) diff --git a/ansi-tests/package-error-package.lsp b/ansi-tests/package-error-package.lsp new file mode 100644 index 0000000..cde6dc6 --- /dev/null +++ b/ansi-tests/package-error-package.lsp @@ -0,0 +1,47 @@ +;-*- Mode: Lisp -*- +;;;; Author: Paul Dietz +;;;; Created: Sun Feb 22 06:52:56 2004 +;;;; Contains: Tests of PACKAGE-ERROR-PACKAGE + +(in-package :cl-test) + +(deftest package-error-package.1 + (eqt (find-package (package-error-package + (make-condition 'package-error + :package "CL"))) + (find-package "CL")) + t) + +(deftest package-error-package.2 + (eqt (find-package (package-error-package + (make-condition 'package-error + :package (find-package "CL")))) + (find-package "CL")) + t) + +(deftest package-error-package.3 + (eqt (find-package (package-error-package + (make-condition 'package-error + :package '#:|CL|))) + (find-package "CL")) + t) + +(deftest package-error-package.4 + (eqt (find-package (package-error-package + (make-condition 'package-error + :package #\A))) + (find-package "A")) + t) + +(deftest package-error-package.error.1 + (signals-error (package-error-package) program-error) + t) + +(deftest package-error-package.error.2 + (signals-error + (package-error-package + (make-condition 'package-error :package #\A) + nil) + program-error) + t) + diff --git a/ansi-tests/package-error.lsp b/ansi-tests/package-error.lsp new file mode 100644 index 0000000..3f89645 --- /dev/null +++ b/ansi-tests/package-error.lsp @@ -0,0 +1,31 @@ +;-*- Mode: Lisp -*- +;;;; Author: Paul Dietz +;;;; Created: Sun Feb 22 06:52:21 2004 +;;;; Contains: Tests of the condition PACKAGE-ERROR + +(in-package :cl-test) + +(deftest package-error.1 + (not + (typep (make-condition 'package-error :package "CL") + 'package-error)) + nil) + +(deftest package-error.2 + (not + (typep (make-condition 'package-error + :package (find-package "CL")) + 'package-error)) + nil) + +(deftest package-error.3 + (subtypep* 'package-error 'error) + t t) + +(deftest package-error.4 + (not + (typep (make-condition 'package-error + :package (find-package '#:|CL|)) + 'package-error)) + nil) + diff --git a/ansi-tests/package-name.lsp b/ansi-tests/package-name.lsp new file mode 100644 index 0000000..78ed41c --- /dev/null +++ b/ansi-tests/package-name.lsp @@ -0,0 +1,114 @@ +;-*- Mode: Lisp -*- +;;;; Author: Paul Dietz +;;;; Created: Sat Feb 21 17:48:05 2004 +;;;; Contains: Tests of PACKAGE-NAME + +(in-package :cl-test) +(declaim (optimize (safety 3))) + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; package-name + +(deftest package-name.1 + (let () (ignore-errors (package-name "A"))) + "A") + +(deftest package-name.2 + (let () (ignore-errors (package-name #\A))) + "A") + +(deftest package-name.3 + (let () (ignore-errors (package-name "Q"))) + "A") + +(deftest package-name.4 + (let () (ignore-errors (package-name #\Q))) + "A") + +(deftest package-name.5 + (handler-case + (locally (declare (optimize safety)) + (eval '(package-name "NOT-THERE")) + nil) + (type-error () t) + (package-error () t)) + t) + +(deftest package-name.6 + (handler-case + (locally (declare (optimize safety)) + (eval '(package-name #\*)) + nil) + (type-error () t) + (package-error () t)) + t) + +(deftest package-name.6a + (handler-case + (locally (declare (optimize safety)) + (eval '(locally (package-name #\*) t)) + nil) + (type-error () t) + (package-error () t)) + t) + +(deftest package-name.7 + (package-name "CL") + #.(string '#:common-lisp)) + +(deftest package-name.8 + (package-name "COMMON-LISP") + #.(string '#:common-lisp)) + +(deftest package-name.9 + (package-name "COMMON-LISP-USER") + #.(string '#:common-lisp-user)) + +(deftest package-name.10 + (package-name "CL-USER") + #.(string '#:common-lisp-user)) + +(deftest package-name.11 + (package-name "KEYWORD") + #.(string '#:keyword)) + +(deftest package-name.12 + (package-name (find-package "CL")) + #.(string '#:common-lisp)) + +(deftest package-name.13 + (let* ((p (make-package "TEMP1")) + (pname1 (package-name p))) + (rename-package "TEMP1" "TEMP2") + (let ((pname2 (package-name p))) + (safely-delete-package p) + (list pname1 pname2 (package-name p)))) + ("TEMP1" "TEMP2" nil)) + +;; (find-package (package-name p)) == p for any package p +(deftest package-name.14 + (loop + for p in (list-all-packages) count + (not + (let ((name (package-name p))) + (and (stringp name) + (eqt (find-package name) p))))) + 0) + +;; package-name applied to a package's name +;; should return an equal string +(deftest package-name.15 + (loop + for p in (list-all-packages) count + (not (equal (package-name p) + (ignore-errors (package-name (package-name p)))))) + 0) + +(deftest package-name.error.1 + (signals-error (package-name) program-error) + t) + +(deftest package-name.error.2 + (signals-error (package-name "CL" nil) program-error) + t) + diff --git a/ansi-tests/package-nicknames.lsp b/ansi-tests/package-nicknames.lsp new file mode 100644 index 0000000..39f23e2 --- /dev/null +++ b/ansi-tests/package-nicknames.lsp @@ -0,0 +1,92 @@ +;-*- Mode: Lisp -*- +;;;; Author: Paul Dietz +;;;; Created: Sat Apr 25 07:51:26 1998 +;;;; Contains: Tests of PACKAGE-NICKNAMES + +(in-package :cl-test) +(declaim (optimize (safety 3))) + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; package-nicknames + +(deftest package-nicknames.1 + (let () (ignore-errors (package-nicknames "A"))) + ("Q")) + +(deftest package-nicknames.2 + (let () (ignore-errors (package-nicknames #\A))) + ("Q")) + +(deftest package-nicknames.3 + (let () (ignore-errors (package-nicknames ':|A|))) + ("Q")) + +(deftest package-nicknames.4 + (let () (ignore-errors (package-nicknames "B"))) + nil) + +(deftest package-nicknames.5 + (let () (ignore-errors (package-nicknames #\B))) + nil) + +(deftest package-nicknames.6 + (let () (ignore-errors (package-nicknames '#:|B|))) + nil) + +(deftest package-nicknames.7 + (let () + (ignore-errors + (subsetp '(#.(string '#:cl)) + (package-nicknames "COMMON-LISP") + :test #'string=))) + t) + +(deftest package-nicknames.8 + (let () + (ignore-errors + (notnot + (subsetp '(#.(string '#:cl-user)) + (package-nicknames "COMMON-LISP-USER") + :test #'string=)))) + t) + +(deftest package-nicknames.9 + (signals-error (package-nicknames 10) type-error) + t) + +(deftest package-nicknames.9a + (signals-error (locally (package-nicknames 10) t) type-error) + t) + +(deftest package-nicknames.10 + (let () (ignore-errors (package-nicknames (find-package "A")))) + ("Q")) + +(deftest package-nicknames.11 + (handler-case + (locally (declare (optimize safety)) + (eval '(package-nicknames "NOT-A-PACKAGE-NAME")) + nil) + (type-error () t) + (package-error () t)) + t) + +;; (find-package n) == p for each n in (package-nicknames p), +;; for any package p +(deftest package-nicknames.12 + (loop + for p in (list-all-packages) sum + (loop + for nk in (package-nicknames p) count + (not + (and (stringp nk) + (eqt p (find-package nk)))))) + 0) + +(deftest package-nicknames.error.1 + (signals-error (package-nicknames) program-error) + t) + +(deftest package-nicknames.error.2 + (signals-error (package-nicknames "CL" nil) program-error) + t) diff --git a/ansi-tests/package-shadowing-symbols.lsp b/ansi-tests/package-shadowing-symbols.lsp new file mode 100644 index 0000000..633ee11 --- /dev/null +++ b/ansi-tests/package-shadowing-symbols.lsp @@ -0,0 +1,17 @@ +;-*- Mode: Lisp -*- +;;;; Author: Paul Dietz +;;;; Created: Sun Feb 22 06:55:17 2004 +;;;; Contains: Tests of PACKAGE-SHADOWING-SYMBOLS + +(in-package :cl-test) + +;;; Most tests of this function are in files for other package-related operators + +(deftest package-shadowing-symbols.error.1 + (signals-error (package-shadowing-symbols) program-error) + t) + +(deftest package-shadowing-symbols.error.2 + (signals-error (package-shadowing-symbols "CL" nil) program-error) + t) + diff --git a/ansi-tests/package-use-list.lsp b/ansi-tests/package-use-list.lsp new file mode 100644 index 0000000..0e5f1de --- /dev/null +++ b/ansi-tests/package-use-list.lsp @@ -0,0 +1,16 @@ +;-*- Mode: Lisp -*- +;;;; Author: Paul Dietz +;;;; Created: Sun Feb 22 06:55:56 2004 +;;;; Contains: Tests of PACKAGE-USE-LIST + +(in-package :cl-test) + +;;; Most tests of this function are in files for other package-related operators + +(deftest package-use-list.error.1 + (signals-error (package-use-list) program-error) + t) + +(deftest package-use-list.error.2 + (signals-error (package-use-list "CL" nil) program-error) + t) diff --git a/ansi-tests/package-used-by-list.lsp b/ansi-tests/package-used-by-list.lsp new file mode 100644 index 0000000..4217812 --- /dev/null +++ b/ansi-tests/package-used-by-list.lsp @@ -0,0 +1,17 @@ +;-*- Mode: Lisp -*- +;;;; Author: Paul Dietz +;;;; Created: Sun Feb 22 06:56:28 2004 +;;;; Contains: Tests of PACKAGE-USED-BY-LIST + +(in-package :cl-test) + +;;; Most tests of this function are in files for other package-related operators + +(deftest package-used-by-list.error.1 + (signals-error (package-used-by-list) program-error) + t) + +(deftest package-used-by-list.error.2 + (signals-error (package-used-by-list "CL" nil) program-error) + t) + diff --git a/ansi-tests/packagep.lsp b/ansi-tests/packagep.lsp new file mode 100644 index 0000000..7779350 --- /dev/null +++ b/ansi-tests/packagep.lsp @@ -0,0 +1,31 @@ +;-*- Mode: Lisp -*- +;;;; Author: Paul Dietz +;;;; Created: Sun Feb 22 06:51:38 2004 +;;;; Contains: Tests of PACKAGEP + +(in-package :cl-test) + +(deftest packagep.1 + (loop + for x in *universe* count + (unless (eqt (not (packagep x)) + (not (typep x 'package))) + (format t + "(packagep ~S) = ~S, (typep x 'package) = ~S~%" + x (packagep x) x (typep x 'package)) + t)) + 0) + +;;; *package* is always a package + +(deftest packagep.2 + (not-mv (packagep *package*)) + nil) + +(deftest packagep.error.1 + (signals-error (packagep) program-error) + t) + +(deftest packagep.error.2 + (signals-error (packagep nil nil) program-error) + t) diff --git a/ansi-tests/packages-03.lsp b/ansi-tests/packages-03.lsp deleted file mode 100644 index b89b262..0000000 --- a/ansi-tests/packages-03.lsp +++ /dev/null @@ -1,238 +0,0 @@ -;-*- Mode: Lisp -*- -;;;; Author: Paul Dietz -;;;; Created: Sat Apr 25 07:51:26 1998 -;;;; Contains: Package test code, part 03 - -(in-package :cl-test) -(declaim (optimize (safety 3))) - -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;;; list-all-packages - -;; list-all-packages returns a list -(deftest list-all-packages.1 - (numberp (ignore-errors (list-length (list-all-packages)))) - t) - -;; The required packages are present -(deftest list-all-packages.2 - (subsetp - (list (find-package "CL") - (find-package "CL-USER") - (find-package "KEYWORD") - (find-package "A") - (find-package "REGRESSION-TEST") - (find-package "CL-TEST") - (find-package "B")) - (list-all-packages)) - t) - -;; The list returned has only packages in it -(deftest list-all-packages.3 - (notnot-mv (every #'packagep (list-all-packages))) - t) - -;; It returns a list of the same packages each time it is called -(deftest list-all-packages.4 - (let ((p1 (list-all-packages)) - (p2 (list-all-packages))) - (and (subsetp p1 p2) - (subsetp p2 p1))) - t) - -(deftest list-all-packages.error.1 - (signals-error (list-all-packages nil) program-error) - t) - - -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;;; package-name - -(deftest package-name.1 - (let () (ignore-errors (package-name "A"))) - "A") - -(deftest package-name.2 - (let () (ignore-errors (package-name #\A))) - "A") - -(deftest package-name.3 - (let () (ignore-errors (package-name "Q"))) - "A") - -(deftest package-name.4 - (let () (ignore-errors (package-name #\Q))) - "A") - -(deftest package-name.5 - (handler-case - (locally (declare (optimize safety)) - (eval '(package-name "NOT-THERE")) - nil) - (type-error () t) - (package-error () t)) - t) - -(deftest package-name.6 - (handler-case - (locally (declare (optimize safety)) - (eval '(package-name #\*)) - nil) - (type-error () t) - (package-error () t)) - t) - -(deftest package-name.6a - (handler-case - (locally (declare (optimize safety)) - (eval '(locally (package-name #\*) t)) - nil) - (type-error () t) - (package-error () t)) - t) - -(deftest package-name.7 - (package-name "CL") - #.(string '#:common-lisp)) - -(deftest package-name.8 - (package-name "COMMON-LISP") - #.(string '#:common-lisp)) - -(deftest package-name.9 - (package-name "COMMON-LISP-USER") - #.(string '#:common-lisp-user)) - -(deftest package-name.10 - (package-name "CL-USER") - #.(string '#:common-lisp-user)) - -(deftest package-name.11 - (package-name "KEYWORD") - #.(string '#:keyword)) - -(deftest package-name.12 - (package-name (find-package "CL")) - #.(string '#:common-lisp)) - -(deftest package-name.13 - (let* ((p (make-package "TEMP1")) - (pname1 (package-name p))) - (rename-package "TEMP1" "TEMP2") - (let ((pname2 (package-name p))) - (safely-delete-package p) - (list pname1 pname2 (package-name p)))) - ("TEMP1" "TEMP2" nil)) - -;; (find-package (package-name p)) == p for any package p -(deftest package-name.14 - (loop - for p in (list-all-packages) count - (not - (let ((name (package-name p))) - (and (stringp name) - (eqt (find-package name) p))))) - 0) - -;; package-name applied to a package's name -;; should return an equal string -(deftest package-name.15 - (loop - for p in (list-all-packages) count - (not (equal (package-name p) - (ignore-errors (package-name (package-name p)))))) - 0) - -(deftest package-name.error.1 - (signals-error (package-name) program-error) - t) - -(deftest package-name.error.2 - (signals-error (package-name "CL" nil) program-error) - t) - -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;;; package-nicknames - -(deftest package-nicknames.1 - (let () (ignore-errors (package-nicknames "A"))) - ("Q")) - -(deftest package-nicknames.2 - (let () (ignore-errors (package-nicknames #\A))) - ("Q")) - -(deftest package-nicknames.3 - (let () (ignore-errors (package-nicknames ':|A|))) - ("Q")) - -(deftest package-nicknames.4 - (let () (ignore-errors (package-nicknames "B"))) - nil) - -(deftest package-nicknames.5 - (let () (ignore-errors (package-nicknames #\B))) - nil) - -(deftest package-nicknames.6 - (let () (ignore-errors (package-nicknames '#:|B|))) - nil) - -(deftest package-nicknames.7 - (let () - (ignore-errors - (subsetp '(#.(string '#:cl)) - (package-nicknames "COMMON-LISP") - :test #'string=))) - t) - -(deftest package-nicknames.8 - (let () - (ignore-errors - (notnot - (subsetp '(#.(string '#:cl-user)) - (package-nicknames "COMMON-LISP-USER") - :test #'string=)))) - t) - -(deftest package-nicknames.9 - (signals-error (package-nicknames 10) type-error) - t) - -(deftest package-nicknames.9a - (signals-error (locally (package-nicknames 10) t) type-error) - t) - -(deftest package-nicknames.10 - (let () (ignore-errors (package-nicknames (find-package "A")))) - ("Q")) - -(deftest package-nicknames.11 - (handler-case - (locally (declare (optimize safety)) - (eval '(package-nicknames "NOT-A-PACKAGE-NAME")) - nil) - (type-error () t) - (package-error () t)) - t) - - -;; (find-package n) == p for each n in (package-nicknames p), -;; for any package p -(deftest package-nicknames.12 - (loop - for p in (list-all-packages) sum - (loop - for nk in (package-nicknames p) count - (not - (and (stringp nk) - (eqt p (find-package nk)))))) - 0) - -(deftest package-nicknames.error.1 - (signals-error (package-nicknames) program-error) - t) - -(deftest package-nicknames.error.2 - (signals-error (package-nicknames "CL" nil) program-error) - t) diff --git a/ansi-tests/packages-18.lsp b/ansi-tests/packages-18.lsp deleted file mode 100644 index a962686..0000000 --- a/ansi-tests/packages-18.lsp +++ /dev/null @@ -1,108 +0,0 @@ -;-*- Mode: Lisp -*- -;;;; Author: Paul Dietz -;;;; Created: Sat Apr 25 08:07:31 1998 -;;;; Contains: Package test code, part 18 - -(in-package :cl-test) -(declaim (optimize (safety 3))) - -(declaim (special *universe*)) - -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;;; packagep, typep * 'package - -(deftest packagep.1 - (loop - for x in *universe* count - (unless (eqt (not (packagep x)) - (not (typep x 'package))) - (format t - "(packagep ~S) = ~S, (typep x 'package) = ~S~%" - x (packagep x) x (typep x 'package)) - t)) - 0) - -;;; *package* is always a package - -(deftest packagep.2 - (not-mv (packagep *package*)) - nil) - -(deftest packagep.error.1 - (signals-error (packagep) program-error) - t) - -(deftest packagep.error.2 - (signals-error (packagep nil nil) program-error) - t) - -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;;; package-error - -(deftest package-error.1 - (not - (typep (make-condition 'package-error :package "CL") - 'package-error)) - nil) - -(deftest package-error.2 - (not - (typep (make-condition 'package-error - :package (find-package "CL")) - 'package-error)) - nil) - -(deftest package-error.3 - (subtypep* 'package-error 'error) - t t) - -(deftest package-error.4 - (not - (typep (make-condition 'package-error - :package (find-package '#:|CL|)) - 'package-error)) - nil) - -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;;; package-error-package - -(deftest package-error-package.1 - (eqt (find-package (package-error-package - (make-condition 'package-error - :package "CL"))) - (find-package "CL")) - t) - -(deftest package-error-package.2 - (eqt (find-package (package-error-package - (make-condition 'package-error - :package (find-package "CL")))) - (find-package "CL")) - t) - -(deftest package-error-package.3 - (eqt (find-package (package-error-package - (make-condition 'package-error - :package '#:|CL|))) - (find-package "CL")) - t) - -(deftest package-error-package.4 - (eqt (find-package (package-error-package - (make-condition 'package-error - :package #\A))) - (find-package "A")) - t) - -(deftest package-error-package.error.1 - (signals-error (package-error-package) program-error) - t) - -(deftest package-error-package.error.2 - (signals-error - (package-error-package - (make-condition 'package-error :package #\A) - nil) - program-error) - t) - diff --git a/ansi-tests/packages-19.lsp b/ansi-tests/packages-19.lsp deleted file mode 100644 index 90d3ecc..0000000 --- a/ansi-tests/packages-19.lsp +++ /dev/null @@ -1,60 +0,0 @@ -;-*- Mode: Lisp -*- -;;;; Author: Paul Dietz -;;;; Created: Tue May 5 17:22:49 1998 -;;;; Contains: Packages test code, part 19. Tests of the keyword package. -;;;; See also cl-symbols.lsp (for keywordp test cases) - -(in-package :cl-test) -(declaim (optimize (safety 3))) - -;; Check that each keyword satisfies keywordp - -(deftest keyword.1 - (do-symbols (s "KEYWORD" t) - (unless (keywordp s) - (return (list s nil)))) - t) - -;; Every keyword is external -(deftest keyword.2 - (do-symbols (s "KEYWORD" t) - (multiple-value-bind (s2 access) - (find-symbol (symbol-name s) "KEYWORD") - (unless (and (eqt s s2) - (eqt access :external)) - (return (list s2 access))))) - t) - -;; Every keyword evaluates to itself -(deftest keyword.3 - (do-symbols (s "KEYWORD" t) - (unless (eqt s (eval s)) - (return (list s (eval s))))) - t) - - -;;; Other error tests - -(deftest package-shadowing-symbols.error.1 - (signals-error (package-shadowing-symbols) program-error) - t) - -(deftest package-shadowing-symbols.error.2 - (signals-error (package-shadowing-symbols "CL" nil) program-error) - t) - -(deftest package-use-list.error.1 - (signals-error (package-use-list) program-error) - t) - -(deftest package-use-list.error.2 - (signals-error (package-use-list "CL" nil) program-error) - t) - -(deftest package-used-by-list.error.1 - (signals-error (package-used-by-list) program-error) - t) - -(deftest package-used-by-list.error.2 - (signals-error (package-used-by-list "CL" nil) program-error) - t) diff --git a/ansi-tests/packages.lsp b/ansi-tests/packages.lsp deleted file mode 100644 index 113ea83..0000000 --- a/ansi-tests/packages.lsp +++ /dev/null @@ -1,28 +0,0 @@ -;-*- Mode: Lisp -*- -;;;; Author: Paul Dietz -;;;; Created: Sun Oct 6 00:32:56 2002 -;;;; Contains: Loader for files containing package tests - - -(load "packages-00.lsp") -(load "packages-01.lsp") -(load "packages-02.lsp") -(load "packages-03.lsp") -(load "packages-04.lsp") -(load "packages-05.lsp") -(load "packages-06.lsp") -(load "packages-07.lsp") -(load "packages-08.lsp") -(load "packages-09.lsp") -(load "packages-10.lsp") -(load "packages-11.lsp") -(load "packages-12.lsp") -(load "packages-13.lsp") -(load "packages-14.lsp") -(load "packages-15.lsp") -(load "packages-16.lsp") -(load "packages-17.lsp") -(load "packages-18.lsp") -(load "packages-19.lsp") - -(load "import.lsp") diff --git a/ansi-tests/packages-06.lsp b/ansi-tests/rename-package.lsp similarity index 99% rename from ansi-tests/packages-06.lsp rename to ansi-tests/rename-package.lsp index 50ff97d..e00425c 100644 --- a/ansi-tests/packages-06.lsp +++ b/ansi-tests/rename-package.lsp @@ -1,7 +1,7 @@ ;-*- Mode: Lisp -*- ;;;; Author: Paul Dietz ;;;; Created: Sat Apr 25 08:00:28 1998 -;;;; Contains: Package test code, part 06 +;;;; Contains: Tests of RENAME-PACKAGE (in-package :cl-test) (declaim (optimize (safety 3))) diff --git a/ansi-tests/packages-07.lsp b/ansi-tests/shadow.lsp similarity index 99% rename from ansi-tests/packages-07.lsp rename to ansi-tests/shadow.lsp index 7650481..d55b80a 100644 --- a/ansi-tests/packages-07.lsp +++ b/ansi-tests/shadow.lsp @@ -1,7 +1,7 @@ ;-*- Mode: Lisp -*- ;;;; Author: Paul Dietz ;;;; Created: Sat Apr 25 08:01:20 1998 -;;;; Contains: Package test code, part 07 +;;;; Contains: Tests of SHADOW (in-package :cl-test) (declaim (optimize (safety 3))) diff --git a/ansi-tests/packages-11.lsp b/ansi-tests/unexport.lsp similarity index 98% rename from ansi-tests/packages-11.lsp rename to ansi-tests/unexport.lsp index cb70203..b1daec4 100644 --- a/ansi-tests/packages-11.lsp +++ b/ansi-tests/unexport.lsp @@ -1,7 +1,7 @@ ;-*- Mode: Lisp -*- ;;;; Author: Paul Dietz ;;;; Created: Sat Apr 25 08:04:19 1998 -;;;; Contains: Package test code, part 11 +;;;; Contains: Tests of UNEXPORT (in-package :cl-test) (declaim (optimize (safety 3))) diff --git a/ansi-tests/packages-12.lsp b/ansi-tests/unintern.lsp similarity index 99% rename from ansi-tests/packages-12.lsp rename to ansi-tests/unintern.lsp index 3809c5f..5f4ea61 100644 --- a/ansi-tests/packages-12.lsp +++ b/ansi-tests/unintern.lsp @@ -1,12 +1,11 @@ ();-*- Mode: Lisp -*- ;;;; Author: Paul Dietz ;;;; Created: Sat Apr 25 08:04:56 1998 -;;;; Contains: Package test code, part 12 +;;;; Contains: Tests of UNINTERN (in-package :cl-test) (declaim (optimize (safety 3))) - ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; unintern diff --git a/ansi-tests/packages-14.lsp b/ansi-tests/unuse-package.lsp similarity index 99% rename from ansi-tests/packages-14.lsp rename to ansi-tests/unuse-package.lsp index 33c2783..43c7005 100644 --- a/ansi-tests/packages-14.lsp +++ b/ansi-tests/unuse-package.lsp @@ -1,12 +1,11 @@ ;-*- Mode: Lisp -*- ;;;; Author: Paul Dietz ;;;; Created: Sat Apr 25 08:06:48 1998 -;;;; Contains: Package test code, part 14 +;;;; Contains: Tests of UNUSE-PACKAGE (in-package :cl-test) (declaim (optimize (safety 3))) - ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; unuse-package diff --git a/ansi-tests/packages-15.lsp b/ansi-tests/use-package.lsp similarity index 99% rename from ansi-tests/packages-15.lsp rename to ansi-tests/use-package.lsp index c4ce7da..3e4fdb2 100644 --- a/ansi-tests/packages-15.lsp +++ b/ansi-tests/use-package.lsp @@ -1,7 +1,7 @@ ;-*- Mode: Lisp -*- ;;;; Author: Paul Dietz ;;;; Created: Sat Apr 25 08:08:41 1998 -;;;; Contains: Package test code, part 15 +;;;; Contains: Tests of USE-PACKAGE (in-package :cl-test) (declaim (optimize (safety 3))) @@ -208,4 +208,3 @@ (make-package "UPE2A" :use ()) (signals-error (use-package "UPE2" "UPE2A" nil) program-error)) t) - diff --git a/ansi-tests/packages-10.lsp b/ansi-tests/with-package-iterator.lsp similarity index 98% rename from ansi-tests/packages-10.lsp rename to ansi-tests/with-package-iterator.lsp index 1e8686d..ac241b3 100644 --- a/ansi-tests/packages-10.lsp +++ b/ansi-tests/with-package-iterator.lsp @@ -1,7 +1,7 @@ ;-*- Mode: Lisp -*- ;;;; Author: Paul Dietz ;;;; Created: Sat Apr 25 08:03:36 1998 -;;;; Contains: Package test code, part 10 +;;;; Contains: Tests of WITH-PACKAGE-ITERATOR (in-package :cl-test) (declaim (optimize (safety 3))) -- GitLab