Skip to content
Snippets Groups Projects
Commit 0342cfe2 authored by pfdietz's avatar pfdietz
Browse files

in-package tests are now less sensitive to test ordering

parent f94013fa
No related branches found
No related tags found
No related merge requests found
...@@ -11,29 +11,37 @@ ...@@ -11,29 +11,37 @@
(deftest in-package.1 (deftest in-package.1
(let ((*package* *package*)) (let ((*package* *package*))
(let ((p2 (in-package "A"))) (safely-delete-package "H")
(and (eqt p2 (find-package "A")) (make-package "H" :use ())
(let ((p2 (in-package "H")))
(and (eqt p2 (find-package "H"))
(eqt *package* p2)))) (eqt *package* p2))))
t) t)
(deftest in-package.2 (deftest in-package.2
(let ((*package* *package*)) (let ((*package* *package*))
(let ((p2 (in-package |A|))) (safely-delete-package "H")
(and (eqt p2 (find-package "A")) (make-package "H" :use ())
(let ((p2 (in-package |H|)))
(and (eqt p2 (find-package "H"))
(eqt *package* p2)))) (eqt *package* p2))))
t) t)
(deftest in-package.3 (deftest in-package.3
(let ((*package* *package*)) (let ((*package* *package*))
(let ((p2 (in-package :|A|))) (safely-delete-package "H")
(and (eqt p2 (find-package "A")) (make-package "H" :use ())
(let ((p2 (in-package :|H|)))
(and (eqt p2 (find-package "H"))
(eqt *package* p2)))) (eqt *package* p2))))
t) t)
(deftest in-package.4 (deftest in-package.4
(let ((*package* *package*)) (let ((*package* *package*))
(let ((p2 (in-package #\A))) (safely-delete-package "H")
(and (eqt p2 (find-package "A")) (make-package "H" :use ())
(let ((p2 (in-package #\H)))
(and (eqt p2 (find-package "H"))
(eqt *package* p2)))) (eqt *package* p2))))
t) t)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment