source:
tags/1.7.0/t/pathname.lisp
| Last change on this file was 15130, checked in by , 6 years ago | |
|---|---|
| File size: 231 bytes | |
| Line | |
|---|---|
| 1 | (in-package :cl-user) |
| 2 | |
| 3 | (prove:plan 1) |
| 4 | (let* ((uri #p"http://example.org/directory/name.version") |
| 5 | (p (make-pathname :host nil :defaults uri))) |
| 6 | (prove:like (namestring p) "^/directory/name.version$")) |
| 7 | |
| 8 | (prove:finalize) |
| 9 | |
| 10 |
Note: See TracBrowser
for help on using the repository browser.
