From f94013fac59b468f78fae646441fe3b475bcf5e6 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Sat, 23 Apr 2005 14:33:35 +0000
Subject: [PATCH] FIND-SYMBOL tests should be insensitive to ordering with
 other tests

---
 ansi-tests/find-symbol.lsp | 38 +++++++++++++++++++-------------------
 ansi-tests/packages-00.lsp | 11 +++++++++++
 2 files changed, 30 insertions(+), 19 deletions(-)

diff --git a/ansi-tests/find-symbol.lsp b/ansi-tests/find-symbol.lsp
index 20d25ece..29400f57 100644
--- a/ansi-tests/find-symbol.lsp
+++ b/ansi-tests/find-symbol.lsp
@@ -71,32 +71,32 @@
   A::FOO :inherited)
 
 (deftest find-symbol.15
-  (find-symbol "FOO" "B")
-  A::FOO :inherited)
+  (find-symbol "FOO" "FS-B")
+  FS-A::FOO :inherited)
 
 (deftest find-symbol.16
-  (find-symbol "FOO" (find-package "B"))
-  A::FOO :inherited)
+  (find-symbol "FOO" (find-package "FS-B"))
+  FS-A::FOO :inherited)
 
 (deftest find-symbol.17
   (let ((name (make-array '(3) :initial-contents "FOO"
 			  :element-type 'base-char)))
-    (find-symbol name "B"))
-  A::FOO :inherited)
+    (find-symbol name "FS-B"))
+  FS-A::FOO :inherited)
 
 (deftest find-symbol.18
   (let ((name (make-array '(4) :initial-contents "FOOD"
 			  :element-type 'character
 			  :fill-pointer 3)))
-    (find-symbol name "B"))
-  A::FOO :inherited)
+    (find-symbol name "FS-B"))
+  FS-A::FOO :inherited)
 
 (deftest find-symbol.19
   (let ((name (make-array '(4) :initial-contents "FOOD"
 			  :element-type 'base-char
 			  :fill-pointer 3)))
-    (find-symbol name "B"))
-  A::FOO :inherited)
+    (find-symbol name "FS-B"))
+  FS-A::FOO :inherited)
 
 (deftest find-symbol.20
   (let* ((name0 (make-array '(5) :initial-contents "XFOOY"
@@ -104,8 +104,8 @@
 	 (name (make-array '(3) :element-type 'character
 			   :displaced-to name0
 			   :displaced-index-offset 1)))
-    (find-symbol name "B"))
-  A::FOO :inherited)
+    (find-symbol name "FS-B"))
+  FS-A::FOO :inherited)
 
 (deftest find-symbol.21
   (let* ((name0 (make-array '(5) :initial-contents "XFOOY"
@@ -113,18 +113,18 @@
 	 (name (make-array '(3) :element-type 'base-char
 			   :displaced-to name0
 			   :displaced-index-offset 1)))
-    (find-symbol name "B"))
-  A::FOO :inherited)
+    (find-symbol name "FS-B"))
+  FS-A::FOO :inherited)
 
 (deftest find-symbol.22
-  (find-symbol "FOO" (make-array '(1) :initial-element #\B :element-type 'base-char))
-  A::FOO :inherited)
+  (find-symbol "FOO" (make-array '(4) :initial-contents "FS-B" :element-type 'base-char))
+  FS-A::FOO :inherited)
 
 (deftest find-symbol.23
-  (find-symbol "FOO" (make-array '(2) :initial-element #\B
-				 :fill-pointer 1
+  (find-symbol "FOO" (make-array '(5) :initial-contents "FS-BX"
+				 :fill-pointer 4
 				 :element-type 'base-char))
-  A::FOO :inherited)
+  FS-A::FOO :inherited)
 
 
 
diff --git a/ansi-tests/packages-00.lsp b/ansi-tests/packages-00.lsp
index fc4b7775..6ade2022 100644
--- a/ansi-tests/packages-00.lsp
+++ b/ansi-tests/packages-00.lsp
@@ -17,6 +17,17 @@
     (:use "A")
     (:export "BAR")))
 
+(report-and-ignore-errors
+  (defpackage "FS-A"
+    (:use)
+    (:nicknames "FS-Q")
+    (:export "FOO")))
+
+(report-and-ignore-errors
+  (defpackage "FS-B"
+    (:use "FS-A")
+    (:export "BAR")))
+
 (report-and-ignore-errors
   (defpackage "DS1"
     (:use)
-- 
GitLab