23 |
(assert (string= (namestring ns) ns)))) |
(assert (string= (namestring ns) ns)))) |
24 |
nil) |
nil) |
25 |
|
|
26 |
|
;;; I'm not convinced these tested required behavior, so I'm commenting |
27 |
|
;;; them out for now. FIXME: determine if they are bogus |
28 |
|
#| |
29 |
(deftest namestring.3 |
(deftest namestring.3 |
30 |
(let* ((name "namestring.lsp") |
(let* ((name "namestring.lsp") |
31 |
(pn (merge-pathnames (pathname name))) |
(pn (merge-pathnames (pathname name))) |
32 |
(name2 (namestring pn)) |
(name2 (namestring pn)) |
33 |
(pn2 (pathname name2))) |
(pn2 (pathname name2))) |
34 |
(or (equalt pn pn2) (list pn pn2))) |
(or (equalt pn pn2) (list (list pn (pathname-host pn) (pathname-device pn) |
35 |
|
(pathname-directory pn) (pathname-name pn) |
36 |
|
(pathname-type pn) (pathname-version pn)) |
37 |
|
(list pn2 (pathname-host pn2) (pathname-device pn2) |
38 |
|
(pathname-directory pn2) (pathname-name pn2) |
39 |
|
(pathname-type pn2) (pathname-version pn2))))) |
40 |
t) |
t) |
41 |
|
|
42 |
(deftest namestring.4 |
(deftest namestring.4 |
44 |
(pn (merge-pathnames (pathname name))) |
(pn (merge-pathnames (pathname name))) |
45 |
(name2 (with-open-file (s pn :direction :input) (namestring s))) |
(name2 (with-open-file (s pn :direction :input) (namestring s))) |
46 |
(pn2 (pathname name2))) |
(pn2 (pathname name2))) |
47 |
(or (equalt pn pn2) (list pn pn2))) |
(or (equalt pn pn2) (list (list pn (pathname-host pn) (pathname-device pn) |
48 |
|
(pathname-directory pn) (pathname-name pn) |
49 |
|
(pathname-type pn) (pathname-version pn)) |
50 |
|
(list pn2 (pathname-host pn2) (pathname-device pn2) |
51 |
|
(pathname-directory pn2) (pathname-name pn2) |
52 |
|
(pathname-type pn2) (pathname-version pn2))))) |
53 |
t) |
t) |
54 |
|
|# |
55 |
|
|
56 |
;;; Error tests |
;;; Error tests |
57 |
|
|