source: tags/1.5.0/t/pathname.lisp

Last change on this file was 14987, checked in by Mark Evenson, 8 years ago

Fix CL:MAKE-PATHNAME for explicit NIL host

File size: 214 bytes
Line 
1(in-package abcl/test)
2
3(plan 1)
4(let* ((uri #p"http://example.org/directory/name.version")
5       (p (make-pathname :host nil :defaults uri)))
6  (like (namestring p) "^/directory/name.version$"))
7
8(finalize)
9
10   
Note: See TracBrowser for help on using the repository browser.