Changeset 15462


Ignore:
Timestamp:
10/29/20 16:55:06 (2 years ago)
Author:
Mark Evenson
Message:

Reflect current behavior in URI encoding tests

Location:
trunk/abcl/test/lisp/abcl
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/test/lisp/abcl/pathname-tests.lisp

    r15332 r15462  
    16801680  t)
    16811681
    1682 (deftest pathname.uri-encoding.1
    1683     (signals-error
    1684      (let ((s "file:/path with /spaces"))
    1685        (equal s
    1686               (namestring (pathname s))))
    1687      'error)
    1688   t)
    1689 
    1690 (deftest pathname.uri-encoding.2
    1691     (string-equal "/path with/uri-escaped/?characters/"
    1692                   (namestring (pathname "file:/path%20with/uri-escaped/%3fcharacters/")))
    1693   t)
    1694 
    16951682(deftest pathname.load.1
    16961683    (let ((dir (merge-pathnames "dir+with+plus/"
  • trunk/abcl/test/lisp/abcl/url-pathname.lisp

    r12617 r15462  
    4343  "query=this" 
    4444  "that-fragment")
     45
     46(deftest url-pathname.file.1
     47    (signals-error
     48     (let ((s "file:///path with /spaces"))
     49       (equal s
     50              (namestring (pathname s))))
     51     'error)
     52  t)
     53
     54(deftest url-pathname.file.2
     55    (let ((p "file:///path%20with/uri-escaped/%3fcharacters/"))
     56      (pathname-directory p))
     57  (:ABSOLUTE "path with" "uri-escaped" "?characters"))
     58
Note: See TracChangeset for help on using the changeset viewer.