Commit 0342cfe2 authored by pfdietz's avatar pfdietz

in-package tests are now less sensitive to test ordering

parent f94013fa
......@@ -11,29 +11,37 @@
(deftest in-package.1
(let ((*package* *package*))
(let ((p2 (in-package "A")))
(and (eqt p2 (find-package "A"))
(safely-delete-package "H")
(make-package "H" :use ())
(let ((p2 (in-package "H")))
(and (eqt p2 (find-package "H"))
(eqt *package* p2))))
t)
(deftest in-package.2
(let ((*package* *package*))
(let ((p2 (in-package |A|)))
(and (eqt p2 (find-package "A"))
(safely-delete-package "H")
(make-package "H" :use ())
(let ((p2 (in-package |H|)))
(and (eqt p2 (find-package "H"))
(eqt *package* p2))))
t)
(deftest in-package.3
(let ((*package* *package*))
(let ((p2 (in-package :|A|)))
(and (eqt p2 (find-package "A"))
(safely-delete-package "H")
(make-package "H" :use ())
(let ((p2 (in-package :|H|)))
(and (eqt p2 (find-package "H"))
(eqt *package* p2))))
t)
(deftest in-package.4
(let ((*package* *package*))
(let ((p2 (in-package #\A)))
(and (eqt p2 (find-package "A"))
(safely-delete-package "H")
(make-package "H" :use ())
(let ((p2 (in-package #\H)))
(and (eqt p2 (find-package "H"))
(eqt *package* p2))))
t)
......
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