Commit 8dbeadbf authored by pfdietz's avatar pfdietz
Browse files

More test ordering fixes

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