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