51 |
(probe-file pn)))) |
(probe-file pn)))) |
52 |
t (t) nil) |
t (t) nil) |
53 |
|
|
54 |
;;; |
;;; Specialized string tests |
55 |
|
|
56 |
|
(deftest delete-file.5 |
57 |
|
(do-special-strings |
58 |
|
(pn "scratchfile.txt" nil) |
59 |
|
(unless (probe-file pn) |
60 |
|
(with-open-file (s pn :direction :output) |
61 |
|
(format s "Contents~%"))) |
62 |
|
(assert (probe-file pn)) |
63 |
|
(assert (equal (multiple-value-list (delete-file pn)) '(t))) |
64 |
|
(assert (not (probe-file pn)))) |
65 |
|
nil) |
66 |
|
|
67 |
|
;;; Error tests |
68 |
|
|
69 |
(deftest delete-file.error.1 |
(deftest delete-file.error.1 |
70 |
(signals-error (delete-file) program-error) |
(signals-error (delete-file) program-error) |