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

[mevenson at common-lisp.net]

Author: mevenson
Date: Mon Jul  4 07:03:33 2011
New Revision: 13373

Log:
PATHNAME.URI-ENCODING.1 is not actually failing.

But PATHNAME.URI-ENCODING.2 definitely is, which should be addressed.

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	Mon Jul  4 02:02:18 2011	(r13372)
+++ trunk/abcl/test/lisp/abcl/pathname-tests.lisp	Mon Jul  4 07:03:33 2011	(r13373)
@@ -1686,12 +1686,12 @@
      (let ((s "file:/path with /spaces"))
        (equal s
               (namestring (pathname s))))
-     'file-error)
+     'error)
   t)
 
 (deftest pathname.uri-encoding.2
-    (equal "/path with/uri-escaped/?characters/"
-           (namestring (pathname "file:/path%20with/uri-escaped/%3fcharacters/")))
+    (string-equal "/path with/uri-escaped/?characters/"
+                  (namestring (pathname "file:/path%20with/uri-escaped/%3fcharacters/")))
   t)
 
 (deftest pathname.load.1