63 |
(character.2.body) |
(character.2.body) |
64 |
nil) |
nil) |
65 |
|
|
66 |
|
(deftest character.3 |
67 |
|
(classify-error (character)) |
68 |
|
program-error) |
69 |
|
|
70 |
|
(deftest character.4 |
71 |
|
(classify-error (character #\a #\a)) |
72 |
|
program-error) |
73 |
|
|
74 |
(deftest characterp.1 |
(deftest characterp.1 |
75 |
(every #'characterp +standard-chars+) |
(every #'characterp +standard-chars+) |
76 |
t) |
t) |
83 |
(characterp.3.body) |
(characterp.3.body) |
84 |
t) |
t) |
85 |
|
|
86 |
|
(deftest characterp.error.1 |
87 |
|
(classify-error (characterp)) |
88 |
|
program-error) |
89 |
|
|
90 |
|
(deftest characterp.error.2 |
91 |
|
(classify-error (characterp #\a #\b)) |
92 |
|
program-error) |
93 |
|
|
94 |
|
|
95 |
(deftest alpha-char-p.1 |
(deftest alpha-char-p.1 |
96 |
(loop for c across +standard-chars+ |
(loop for c across +standard-chars+ |
97 |
always |
always |
107 |
(char-type-error-check #'alpha-char-p) |
(char-type-error-check #'alpha-char-p) |
108 |
t) |
t) |
109 |
|
|
110 |
|
(deftest alpha-char-p.error.1 |
111 |
|
(classify-error (alpha-char-p)) |
112 |
|
program-error) |
113 |
|
|
114 |
|
(deftest alpha-char-p.error.2 |
115 |
|
(classify-error (alpha-char-p #\a #\b)) |
116 |
|
program-error) |
117 |
|
|
118 |
(deftest alphanumericp.1 |
(deftest alphanumericp.1 |
119 |
(loop for c across +standard-chars+ |
(loop for c across +standard-chars+ |
120 |
always |
always |
139 |
(alphanumericp.5.body) |
(alphanumericp.5.body) |
140 |
t) |
t) |
141 |
|
|
142 |
|
(deftest alphanumericp.error.1 |
143 |
|
(classify-error (alphanumericp)) |
144 |
|
program-error) |
145 |
|
|
146 |
|
(deftest alphanumericp.error.2 |
147 |
|
(classify-error (alphanumericp #\a #\b)) |
148 |
|
program-error) |
149 |
|
|
150 |
(deftest digit-char.1 |
(deftest digit-char.1 |
151 |
(digit-char.1.body) |
(digit-char.1.body) |
152 |
t) |
t) |
158 |
nil nil nil nil nil nil nil nil nil nil |
nil nil nil nil nil nil nil nil nil nil |
159 |
nil nil nil nil nil nil nil nil nil nil)) |
nil nil nil nil nil nil nil nil nil nil)) |
160 |
|
|
161 |
|
(deftest digit-char.error.1 |
162 |
|
(classify-error (digit-char)) |
163 |
|
program-error) |
164 |
|
|
165 |
|
(deftest digit-char.error.2 |
166 |
|
(classify-error (digit-char 0 10 'foo)) |
167 |
|
program-error) |
168 |
|
|
169 |
(deftest digit-char-p.1 |
(deftest digit-char-p.1 |
170 |
(digit-char-p.1.body) |
(digit-char-p.1.body) |
171 |
t) |
t) |
195 |
always (eqlt (digit-char-p c) i)) |
always (eqlt (digit-char-p c) i)) |
196 |
t) |
t) |
197 |
|
|
198 |
|
(deftest digit-char-p.error.1 |
199 |
|
(classify-error (digit-char-p)) |
200 |
|
program-error) |
201 |
|
|
202 |
|
(deftest digit-char-p.error.2 |
203 |
|
(classify-error (digit-char-p #\1 10 'foo)) |
204 |
|
program-error) |
205 |
|
|
206 |
|
|
207 |
(deftest graphic-char-p.1 |
(deftest graphic-char-p.1 |
208 |
(loop for c across +standard-chars+ |
(loop for c across +standard-chars+ |
209 |
always (if (eqlt c #\Newline) |
always (if (eqlt c #\Newline) |
222 |
(char-type-error-check #'graphic-char-p) |
(char-type-error-check #'graphic-char-p) |
223 |
t) |
t) |
224 |
|
|
225 |
|
(deftest graphic-char-p.error.1 |
226 |
|
(classify-error (graphic-char-p)) |
227 |
|
program-error) |
228 |
|
|
229 |
|
(deftest graphic-char-p.error.2 |
230 |
|
(classify-error (graphic-char-p #\a #\a)) |
231 |
|
program-error) |
232 |
|
|
233 |
(deftest standard-char-p.1 |
(deftest standard-char-p.1 |
234 |
(every #'standard-char-p +standard-chars+) |
(every #'standard-char-p +standard-chars+) |
235 |
t) |
t) |
246 |
(char-type-error-check #'standard-char-p) |
(char-type-error-check #'standard-char-p) |
247 |
t) |
t) |
248 |
|
|
249 |
|
(deftest standard-char-p.error.1 |
250 |
|
(classify-error (standard-char-p)) |
251 |
|
program-error) |
252 |
|
|
253 |
|
(deftest standard-char-p.error.2 |
254 |
|
(classify-error (standard-char-p #\a #\a)) |
255 |
|
program-error) |
256 |
|
|
257 |
|
|
258 |
(deftest char-upcase.1 |
(deftest char-upcase.1 |
259 |
(char-upcase.1.body) |
(char-upcase.1.body) |
260 |
t) |
t) |
269 |
|
|
270 |
(deftest char-upcase.4 |
(deftest char-upcase.4 |
271 |
(char-type-error-check #'char-upcase) |
(char-type-error-check #'char-upcase) |
272 |
t) |
t) |
273 |
|
|
274 |
|
(deftest char-upcase.error.1 |
275 |
|
(classify-error (char-upcase)) |
276 |
|
program-error) |
277 |
|
|
278 |
|
(deftest char-upcase.error.2 |
279 |
|
(classify-error (char-upcase #\a #\a)) |
280 |
|
program-error) |
281 |
|
|
282 |
(deftest char-downcase.1 |
(deftest char-downcase.1 |
283 |
(char-downcase.1.body) |
(char-downcase.1.body) |
295 |
(char-type-error-check #'char-downcase) |
(char-type-error-check #'char-downcase) |
296 |
t) |
t) |
297 |
|
|
298 |
|
(deftest char-downcase.error.1 |
299 |
|
(classify-error (char-downcase)) |
300 |
|
program-error) |
301 |
|
|
302 |
|
(deftest char-downcase.error.2 |
303 |
|
(classify-error (char-downcase #\A #\A)) |
304 |
|
program-error) |
305 |
|
|
306 |
(deftest upper-case-p.1 |
(deftest upper-case-p.1 |
307 |
(find-if-not #'upper-case-p +standard-chars+ :start 26 :end 52) |
(find-if-not #'upper-case-p +standard-chars+ :start 26 :end 52) |
308 |
nil) |
nil) |
319 |
(char-type-error-check #'upper-case-p) |
(char-type-error-check #'upper-case-p) |
320 |
t) |
t) |
321 |
|
|
322 |
|
(deftest upper-case-p.error.1 |
323 |
|
(classify-error (upper-case-p)) |
324 |
|
program-error) |
325 |
|
|
326 |
|
(deftest upper-case-p.error.2 |
327 |
|
(classify-error (upper-case-p #\a #\A)) |
328 |
|
program-error) |
329 |
|
|
330 |
(deftest lower-case-p.1 |
(deftest lower-case-p.1 |
331 |
(find-if-not #'lower-case-p +standard-chars+ :end 26) |
(find-if-not #'lower-case-p +standard-chars+ :end 26) |
332 |
nil) |
nil) |
339 |
(char-type-error-check #'lower-case-p) |
(char-type-error-check #'lower-case-p) |
340 |
t) |
t) |
341 |
|
|
342 |
|
(deftest lower-case-p.error.1 |
343 |
|
(classify-error (lower-case-p)) |
344 |
|
program-error) |
345 |
|
|
346 |
|
(deftest lower-case-p.error.2 |
347 |
|
(classify-error (lower-case-p #\a #\a)) |
348 |
|
program-error) |
349 |
|
|
350 |
(deftest both-case-p.1 |
(deftest both-case-p.1 |
351 |
(both-case-p.1.body) |
(both-case-p.1.body) |
352 |
t) |
t) |
359 |
(char-type-error-check #'both-case-p) |
(char-type-error-check #'both-case-p) |
360 |
t) |
t) |
361 |
|
|
362 |
|
(deftest both-case-p.error.1 |
363 |
|
(classify-error (both-case-p)) |
364 |
|
program-error) |
365 |
|
|
366 |
|
(deftest both-case-p.error.2 |
367 |
|
(classify-error (both-case-p #\a #\a)) |
368 |
|
program-error) |
369 |
|
|
370 |
(deftest char-code.1 |
(deftest char-code.1 |
371 |
(char-type-error-check #'char-code) |
(char-type-error-check #'char-code) |
372 |
t) |
t) |
375 |
(char-code.2.body) |
(char-code.2.body) |
376 |
t) |
t) |
377 |
|
|
378 |
|
(deftest char-code.error.1 |
379 |
|
(classify-error (char-code)) |
380 |
|
program-error) |
381 |
|
|
382 |
|
(deftest char-code.error.2 |
383 |
|
(classify-error (char-code #\a #\a)) |
384 |
|
program-error) |
385 |
|
|
386 |
(deftest code-char.1 |
(deftest code-char.1 |
387 |
(loop for x across +standard-chars+ |
(loop for x across +standard-chars+ |
388 |
always (eqlt (code-char (char-code x)) x)) |
always (eqlt (code-char (char-code x)) x)) |
389 |
t) |
t) |
390 |
|
|
391 |
|
(deftest code-char.error.1 |
392 |
|
(classify-error (code-char)) |
393 |
|
program-error) |
394 |
|
|
395 |
|
(deftest code-char.error.2 |
396 |
|
(classify-error (code-char 1 1)) |
397 |
|
program-error) |
398 |
|
|
399 |
(deftest char-int.1 |
(deftest char-int.1 |
400 |
(loop for x across +standard-chars+ |
(loop for x across +standard-chars+ |
401 |
always (eqlt (char-int x) (char-code x))) |
always (eqlt (char-int x) (char-code x))) |
405 |
(char-int.2.fn) |
(char-int.2.fn) |
406 |
t) |
t) |
407 |
|
|
408 |
|
(deftest char-int.error.1 |
409 |
|
(classify-error (char-int)) |
410 |
|
program-error) |
411 |
|
|
412 |
|
(deftest char-int.error.2 |
413 |
|
(classify-error (char-int #\a #\a)) |
414 |
|
program-error) |
415 |
|
|
416 |
(deftest char-name.1 |
(deftest char-name.1 |
417 |
(char-name.1.fn) |
(char-name.1.fn) |
418 |
t) |
t) |
447 |
(char-type-error-check #'char-name) |
(char-type-error-check #'char-name) |
448 |
t) |
t) |
449 |
|
|
450 |
|
(deftest char-name.error.1 |
451 |
|
(classify-error (char-name)) |
452 |
|
program-error) |
453 |
|
|
454 |
|
(deftest char-name.error.2 |
455 |
|
(classify-error (char-name #\a #\a)) |
456 |
|
program-error) |
457 |
|
|
458 |
(deftest name-char.1 |
(deftest name-char.1 |
459 |
(name-char.1.body) |
(name-char.1.body) |
460 |
t) |
t) |
469 |
(c4 (name-char s))) |
(c4 (name-char s))) |
470 |
(and (eqlt c1 c2) (eqlt c2 c3) (eqlt c3 c4)))) |
(and (eqlt c1 c2) (eqlt c2 c3) (eqlt c3 c4)))) |
471 |
t) |
t) |
472 |
|
|
473 |
|
(deftest name-char.error.1 |
474 |
|
(classify-error (name-char)) |
475 |
|
program-error) |
476 |
|
|
477 |
|
(deftest name-char.error.2 |
478 |
|
(classify-error (name-char "space" "space")) |
479 |
|
program-error) |