[armedbear-cvs] r14248 - trunk/abcl/test/lisp/abcl

[mevenson at common-lisp.net]

Author: mevenson
Date: Thu Nov 15 16:34:00 2012
New Revision: 14248

Log:
abcl-test: mark BUGS.PATHNAME.MAKE-PATHNAME.1 as an expected failure.

Modified:
   trunk/abcl/test/lisp/abcl/bugs.lisp

Modified: trunk/abcl/test/lisp/abcl/bugs.lisp
==============================================================================
--- trunk/abcl/test/lisp/abcl/bugs.lisp	Thu Nov 15 16:27:44 2012	(r14247)
+++ trunk/abcl/test/lisp/abcl/bugs.lisp	Thu Nov 15 16:34:00 2012	(r14248)
@@ -116,7 +116,10 @@
     (signals-error 
      (make-pathname :device (list "foo"))
      'error)
-t)
+  t)
+;; Dunno about this one.  Maybe we should signal an error when
+;; constructed a pathname that we *know* can never refer to any resource.
+(push 'bugs.pathname.make-pathname.1 *expected-failures*)
 
 
 (deftest bugs.pathname.make-pathname.2