From fbefd4d6a92a715625397679f5af5b58d7da1285 Mon Sep 17 00:00:00 2001
From: ehuelsmann <ehuelsmann@localhost>
Date: Thu, 8 Jan 2009 19:48:02 +0000
Subject: [PATCH] Remove 2 tests which fail when executed from a loading file.

Note these are removed from the test set in DOIT.LSP too.
---
 ansi-tests/compileit.lsp | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/ansi-tests/compileit.lsp b/ansi-tests/compileit.lsp
index 167cbbed..1facfe0b 100644
--- a/ansi-tests/compileit.lsp
+++ b/ansi-tests/compileit.lsp
@@ -21,6 +21,12 @@
   (rt:disable-note :assume-no-gray-streams))
 
 (in-package :cl-test)
+
+;;; These two tests will misbehave if the tests are being
+;;; invoked from a file that is being loaded, so remove them
+(when *load-pathname*
+  (mapc #'regression-test:rem-test '(load-pathname.1 load-truename.1)))
+
 (time (regression-test:do-tests))
 
 #+allegro :exit
-- 
GitLab