Changeset 13459 for trunk/abcl/test/lisp/abcl/pathname-tests.lisp

Timestamp:

08/11/11 15:44:20 (11 years ago)

Author:

Mark Evenson

Message:

TRANSLATE-PATHNAME.5 is no longer failing.

File:

• trunk/abcl/test/lisp/abcl/pathname-tests.lisp (modified) (1 diff)

trunk/abcl/test/lisp/abcl/pathname-tests.lisp

@@ -897 +897 @@
 
 (deftest translate-pathname.5
-  #-abcl
   (equal (translate-pathname "foobar" "foo*" "")
          #+(or allegro clisp) #p"bar"
-         #+(or cmu sbcl lispworks) #p"foobar")
-  #+abcl
-  ;; ABCL doesn't implement this translation. Verify that it signals an error.
-  (signals-error (translate-pathname "foobar" "foo*" "") 'error)
+         #+(or cmu sbcl lispworks abcl) #p"foobar")
   t)