/[gcl]/gcl/ansi-tests/character.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/character.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by pfdietz, Wed Nov 27 04:22:36 2002 UTC revision 1.7 by pfdietz, Mon Jan 13 14:11:49 2003 UTC
# Line 63  Line 63 
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)
# Line 75  Line 83 
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
# Line 90  Line 107 
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
# Line 114  Line 139 
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)
# Line 125  Line 158 
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)
# Line 154  Line 195 
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)
# Line 172  Line 222 
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)
# Line 188  Line 246 
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)
# Line 202  Line 269 
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)
# Line 220  Line 295 
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)
# Line 236  Line 319 
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)
# Line 248  Line 339 
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)
# Line 260  Line 359 
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)
# Line 268  Line 375 
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)))
# Line 282  Line 405 
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)
# Line 316  Line 447 
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)
# Line 330  Line 469 
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)

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26