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

FIND-SYMBOL tests should be insensitive to ordering with other tests

parent 8c81e771
No related branches found
No related tags found
No related merge requests found
...@@ -71,32 +71,32 @@ ...@@ -71,32 +71,32 @@
A::FOO :inherited) A::FOO :inherited)
(deftest find-symbol.15 (deftest find-symbol.15
(find-symbol "FOO" "B") (find-symbol "FOO" "FS-B")
A::FOO :inherited) FS-A::FOO :inherited)
(deftest find-symbol.16 (deftest find-symbol.16
(find-symbol "FOO" (find-package "B")) (find-symbol "FOO" (find-package "FS-B"))
A::FOO :inherited) FS-A::FOO :inherited)
(deftest find-symbol.17 (deftest find-symbol.17
(let ((name (make-array '(3) :initial-contents "FOO" (let ((name (make-array '(3) :initial-contents "FOO"
:element-type 'base-char))) :element-type 'base-char)))
(find-symbol name "B")) (find-symbol name "FS-B"))
A::FOO :inherited) FS-A::FOO :inherited)
(deftest find-symbol.18 (deftest find-symbol.18
(let ((name (make-array '(4) :initial-contents "FOOD" (let ((name (make-array '(4) :initial-contents "FOOD"
:element-type 'character :element-type 'character
:fill-pointer 3))) :fill-pointer 3)))
(find-symbol name "B")) (find-symbol name "FS-B"))
A::FOO :inherited) FS-A::FOO :inherited)
(deftest find-symbol.19 (deftest find-symbol.19
(let ((name (make-array '(4) :initial-contents "FOOD" (let ((name (make-array '(4) :initial-contents "FOOD"
:element-type 'base-char :element-type 'base-char
:fill-pointer 3))) :fill-pointer 3)))
(find-symbol name "B")) (find-symbol name "FS-B"))
A::FOO :inherited) FS-A::FOO :inherited)
(deftest find-symbol.20 (deftest find-symbol.20
(let* ((name0 (make-array '(5) :initial-contents "XFOOY" (let* ((name0 (make-array '(5) :initial-contents "XFOOY"
...@@ -104,8 +104,8 @@ ...@@ -104,8 +104,8 @@
(name (make-array '(3) :element-type 'character (name (make-array '(3) :element-type 'character
:displaced-to name0 :displaced-to name0
:displaced-index-offset 1))) :displaced-index-offset 1)))
(find-symbol name "B")) (find-symbol name "FS-B"))
A::FOO :inherited) FS-A::FOO :inherited)
(deftest find-symbol.21 (deftest find-symbol.21
(let* ((name0 (make-array '(5) :initial-contents "XFOOY" (let* ((name0 (make-array '(5) :initial-contents "XFOOY"
...@@ -113,18 +113,18 @@ ...@@ -113,18 +113,18 @@
(name (make-array '(3) :element-type 'base-char (name (make-array '(3) :element-type 'base-char
:displaced-to name0 :displaced-to name0
:displaced-index-offset 1))) :displaced-index-offset 1)))
(find-symbol name "B")) (find-symbol name "FS-B"))
A::FOO :inherited) FS-A::FOO :inherited)
(deftest find-symbol.22 (deftest find-symbol.22
(find-symbol "FOO" (make-array '(1) :initial-element #\B :element-type 'base-char)) (find-symbol "FOO" (make-array '(4) :initial-contents "FS-B" :element-type 'base-char))
A::FOO :inherited) FS-A::FOO :inherited)
(deftest find-symbol.23 (deftest find-symbol.23
(find-symbol "FOO" (make-array '(2) :initial-element #\B (find-symbol "FOO" (make-array '(5) :initial-contents "FS-BX"
:fill-pointer 1 :fill-pointer 4
:element-type 'base-char)) :element-type 'base-char))
A::FOO :inherited) FS-A::FOO :inherited)
......
...@@ -17,6 +17,17 @@ ...@@ -17,6 +17,17 @@
(:use "A") (:use "A")
(:export "BAR"))) (: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 (report-and-ignore-errors
(defpackage "DS1" (defpackage "DS1"
(:use) (:use)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment