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