Commit 8dbeadbf authored by pfdietz's avatar pfdietz

More test ordering fixes

parent ebb96415
......@@ -1066,8 +1066,3 @@ the condition to go uncaught if it cannot be classified."
(let ((eps 1.0d-4))
(<= (abs (- x y))
(* eps (max (abs x) (abs y))))))
\ No newline at end of file
......@@ -5,7 +5,7 @@
(in-package :cl-test)
(compile-and-load "packages-00.lsp")
(load "packages-00.lsp")
;;(declaim (optimize (safety 3)))
......
......@@ -467,7 +467,7 @@
(deftest make-package.error.4
(handle-non-abort-restart
(safely-delete-package "TEST1")
(safely-delete-package "Q")
(set-up-packages)
(make-package "TEST1" :nicknames '("Q")))
success)
......
......@@ -10,19 +10,27 @@
;;; package-name
(deftest package-name.1
(let () (ignore-errors (package-name "A")))
(progn
(set-up-packages)
(package-name "A"))
"A")
(deftest package-name.2
(let () (ignore-errors (package-name #\A)))
(progn
(set-up-packages)
(package-name #\A))
"A")
(deftest package-name.3
(let () (ignore-errors (package-name "Q")))
(progn
(set-up-packages)
(package-name "Q"))
"A")
(deftest package-name.4
(let () (ignore-errors (package-name #\Q)))
(progn
(set-up-packages)
(package-name #\Q))
"A")
(deftest package-name.5
......@@ -101,7 +109,7 @@
(loop
for p in (list-all-packages) count
(not (equal (package-name p)
(ignore-errors (package-name (package-name p))))))
(package-name (package-name p)))))
0)
;;; Specialized sequence tests
......
......@@ -10,44 +10,52 @@
;;; package-nicknames
(deftest package-nicknames.1
(let () (ignore-errors (package-nicknames "A")))
(progn
(set-up-packages)
(package-nicknames "A"))
("Q"))
(deftest package-nicknames.2
(let () (ignore-errors (package-nicknames #\A)))
(progn
(set-up-packages)
(package-nicknames #\A))
("Q"))
(deftest package-nicknames.3
(let () (ignore-errors (package-nicknames ':|A|)))
(progn
(set-up-packages)
(package-nicknames ':|A|))
("Q"))
(deftest package-nicknames.4
(let () (ignore-errors (package-nicknames "B")))
(progn
(set-up-packages)
(package-nicknames "B"))
nil)
(deftest package-nicknames.5
(let () (ignore-errors (package-nicknames #\B)))
(progn
(set-up-packages)
(package-nicknames #\B))
nil)
(deftest package-nicknames.6
(let () (ignore-errors (package-nicknames '#:|B|)))
(progn
(set-up-packages)
(package-nicknames '#:|B|))
nil)
(deftest package-nicknames.7
(let ()
(ignore-errors
(subsetp '(#.(string '#:cl))
(package-nicknames "COMMON-LISP")
:test #'string=)))
(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=))))
(notnot
(subsetp '(#.(string '#:cl-user))
(package-nicknames "COMMON-LISP-USER")
:test #'string=))
t)
(deftest package-nicknames.9
......@@ -59,7 +67,9 @@
t)
(deftest package-nicknames.10
(let () (ignore-errors (package-nicknames (find-package "A"))))
(progn
(set-up-packages)
(package-nicknames (find-package "A")))
("Q"))
(deftest package-nicknames.11
......
......@@ -6,7 +6,7 @@
(in-package :cl-test)
(declaim (optimize (safety 3)))
(compile-and-load "package-aux.lsp")
(load "package-aux.lsp")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; with-package-iterator
......@@ -31,27 +31,39 @@
;;; multiple inheritance
(deftest with-package-iterator.5
(with-package-iterator-all '("A"))
(progn
(set-up-packages)
(with-package-iterator-all '("A")))
t)
(deftest with-package-iterator.6
(with-package-iterator-all '(#:|A|))
(progn
(set-up-packages)
(with-package-iterator-all '(#:|A|)))
t)
(deftest with-package-iterator.7
(with-package-iterator-all '(#\A))
(progn
(set-up-packages)
(with-package-iterator-all '(#\A)))
t)
(deftest with-package-iterator.8
(with-package-iterator-internal (list (find-package "A")))
(progn
(set-up-packages)
(with-package-iterator-internal (list (find-package "A"))))
t)
(deftest with-package-iterator.9
(with-package-iterator-external (list (find-package "A")))
(progn
(set-up-packages)
(with-package-iterator-external (list (find-package "A"))))
t)
(deftest with-package-iterator.10
(with-package-iterator-inherited (list (find-package "A")))
(progn
(set-up-packages)
(with-package-iterator-inherited (list (find-package "A"))))
t)
(deftest with-package-iterator.11
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment