From 0342cfe2cdb6b4ad412a38d6869ff79397e5a3b1 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Sat, 23 Apr 2005 14:35:53 +0000
Subject: [PATCH] in-package tests are now less sensitive to test ordering

---
 ansi-tests/in-package.lsp | 24 ++++++++++++++++--------
 1 file changed, 16 insertions(+), 8 deletions(-)

diff --git a/ansi-tests/in-package.lsp b/ansi-tests/in-package.lsp
index 079f5f5f..52fc375b 100644
--- a/ansi-tests/in-package.lsp
+++ b/ansi-tests/in-package.lsp
@@ -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)
 
-- 
GitLab