23 |
(assert (string= (namestring ns) ns)))) |
(assert (string= (namestring ns) ns)))) |
24 |
nil) |
nil) |
25 |
|
|
26 |
|
(deftest namestring.3 |
27 |
|
(let* ((name "namestring.lsp") |
28 |
|
(pn (merge-pathnames (pathname name))) |
29 |
|
(name2 (namestring pn)) |
30 |
|
(pn2 (pathname name2))) |
31 |
|
(or (equalt pn pn2) (list pn pn2))) |
32 |
|
t) |
33 |
|
|
34 |
|
(deftest namestring.4 |
35 |
|
(let* ((name "namestring.lsp") |
36 |
|
(pn (merge-pathnames (pathname name))) |
37 |
|
(name2 (with-open-file (s pn :direction :input) (namestring s))) |
38 |
|
(pn2 (pathname name2))) |
39 |
|
(or (equalt pn pn2) (list pn pn2))) |
40 |
|
t) |
41 |
|
|
42 |
|
;;; Error tests |
43 |
|
|
44 |
|
(deftest namestring.error.1 |
45 |
|
(signals-error (namestring) program-error) |
46 |
|
t) |
47 |
|
|
48 |
|
(deftest namestring.error.2 |
49 |
|
(signals-error (namestring "namestring.lsp" nil) program-error) |
50 |
|
t) |