[ansi-test-cvs] r2141 - trunk/ansi-tests

[Erik Huelsmann]

Author: ehuelsmann
Date: Thu Jan  8 19:48:02 2009
New Revision: 2141

Log:
Remove 2 tests which fail when executed from a loading file.

Note these are removed from the test set in DOIT.LSP too.

Modified:
   trunk/ansi-tests/compileit.lsp

Modified: trunk/ansi-tests/compileit.lsp
==============================================================================
--- trunk/ansi-tests/compileit.lsp	(original)
+++ trunk/ansi-tests/compileit.lsp	Thu Jan  8 19:48:02 2009
@@ -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