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

[mevenson at common-lisp.net]

Author: mevenson
Date: Thu Aug 11 08:44:20 2011
New Revision: 13459

Log:
TRANSLATE-PATHNAME.5 is no longer failing.

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

Modified: trunk/abcl/test/lisp/abcl/pathname-tests.lisp
==============================================================================
--- trunk/abcl/test/lisp/abcl/pathname-tests.lisp	Thu Aug 11 08:21:54 2011	(r13458)
+++ trunk/abcl/test/lisp/abcl/pathname-tests.lisp	Thu Aug 11 08:44:20 2011	(r13459)
@@ -896,13 +896,9 @@
   t)
 
 (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)
 
 (deftest translate-pathname.6