50 |
(length (multiple-value-list (file-write-date "file-write-date.lsp"))) |
(length (multiple-value-list (file-write-date "file-write-date.lsp"))) |
51 |
1) |
1) |
52 |
|
|
53 |
|
;;; Specialized string tests |
54 |
|
|
55 |
|
(deftest file-write-date.6 |
56 |
|
(let* ((str "file-write-date.lsp") |
57 |
|
(date (file-write-date str))) |
58 |
|
(do-special-strings |
59 |
|
(s str nil) |
60 |
|
(assert (equal (file-write-date s) date)))) |
61 |
|
nil) |
62 |
|
|
63 |
;;; FIXME |
;;; FIXME |
64 |
;;; Add LPN test |
;;; Add LPN test |
65 |
|
|
66 |
;;; |
;;; Error tests |
67 |
|
|
68 |
(deftest file-write-date.error.1 |
(deftest file-write-date.error.1 |
69 |
(signals-error (file-write-date) program-error) |
(signals-error (file-write-date) program-error) |