120 |
(write-string "-=|!" nil)) |
(write-string "-=|!" nil)) |
121 |
"-=|!") |
"-=|!") |
122 |
|
|
123 |
|
;;; Specialized string tests |
124 |
|
|
125 |
|
(deftest write-string.13 |
126 |
|
(let (result) |
127 |
|
(do-special-strings |
128 |
|
(s "abcde" nil) |
129 |
|
(assert (equal |
130 |
|
(with-output-to-string |
131 |
|
(*standard-output*) |
132 |
|
(setq result (multiple-value-list (write-string "abcde")))) |
133 |
|
"abcde")) |
134 |
|
(assert (equal result '("abcde"))))) |
135 |
|
nil) |
136 |
|
|
137 |
;;; Error tests |
;;; Error tests |
138 |
|
|
139 |
(deftest write-string.error.1 |
(deftest write-string.error.1 |