Changeset 14248

Timestamp:

11/16/12 00:34:00 (8 years ago)

Author:

Mark Evenson

Message:

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

File:

• trunk/abcl/test/lisp/abcl/bugs.lisp (modified) (1 diff)

trunk/abcl/test/lisp/abcl/bugs.lisp

@@ -117 +117 @@
      (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*)