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