/[gcl]/gcl/ansi-tests/char-compare.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/char-compare.lsp

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

revision 1.5 by pfdietz, Fri Jan 24 02:12:45 2003 UTC revision 1.6 by pfdietz, Sat Feb 8 06:23:02 2003 UTC
# Line 35  Line 35 
35                   #'(lambda (c1 c2) (not (char= c1 c2))))                   #'(lambda (c1 c2) (not (char= c1 c2))))
36    t)    t)
37    
38    (deftest char=.5
39      (let ((i 0) a b c)
40        (values
41         (char= (progn (setq a (incf i)) #\a)
42                (progn (setq b (incf i)) #\a)
43                (progn (setq c (incf i)) #\b))
44         i a b c))
45      nil 3 1 2 3)
46    
47  (deftest char/=.1  (deftest char/=.1
48    (is-ordered-by +code-chars+ #'char/=)    (is-ordered-by +code-chars+ #'char/=)
49    t)    t)
# Line 52  Line 61 
61    (is-ordered-by +rev-code-chars+ #'char/=)    (is-ordered-by +rev-code-chars+ #'char/=)
62    t)    t)
63    
64    (deftest char/=.5
65      (let ((i 0) a b c)
66        (values
67         (char/= (progn (setq a (incf i)) #\a)
68                 (progn (setq b (incf i)) #\b)
69                 (progn (setq c (incf i)) #\b))
70         i a b c))
71      nil 3 1 2 3)
72    
73  (deftest char<=.1  (deftest char<=.1
74    (loop for c across +code-chars+    (loop for c across +code-chars+
75          always (char<= c c))          always (char<= c c))
# Line 85  Line 103 
103    (notnot-mv (or (char<= #\9 #\a) (char<= #\z #\0)))    (notnot-mv (or (char<= #\9 #\a) (char<= #\z #\0)))
104    t)    t)
105    
106    (deftest char<=.9
107      (let ((i 0) a b c)
108        (values
109         (char<= (progn (setq a (incf i)) #\a)
110                 (progn (setq b (incf i)) #\b)
111                 (progn (setq c (incf i)) #\a))
112         i a b c))
113      nil 3 1 2 3)
114    
115  (deftest char<.1  (deftest char<.1
116    (loop for c across +code-chars+    (loop for c across +code-chars+
117          never (char< c c))          never (char< c c))
# Line 118  Line 145 
145    (notnot-mv (or (char< #\9 #\a) (char< #\z #\0)))    (notnot-mv (or (char< #\9 #\a) (char< #\z #\0)))
146    t)    t)
147        
148    (deftest char<.9
149      (let ((i 0) a b c)
150        (values
151         (char< (progn (setq a (incf i)) #\a)
152                (progn (setq b (incf i)) #\b)
153                (progn (setq c (incf i)) #\a))
154         i a b c))
155      nil 3 1 2 3)
156    
157  (deftest char>=.1  (deftest char>=.1
158    (loop for c across +code-chars+    (loop for c across +code-chars+
# Line 152  Line 187 
187    (notnot-mv (or (char>= #\a #\9) (char>= #\0 #\z)))    (notnot-mv (or (char>= #\a #\9) (char>= #\0 #\z)))
188    t)    t)
189    
190    (deftest char>=.9
191      (let ((i 0) a b c)
192        (values
193         (char>= (progn (setq a (incf i)) #\b)
194                 (progn (setq b (incf i)) #\a)
195                 (progn (setq c (incf i)) #\b))
196         i a b c))
197      nil 3 1 2 3)
198    
199  (deftest char>.1  (deftest char>.1
200    (loop for c across +code-chars+    (loop for c across +code-chars+
201          never (char> c c))          never (char> c c))
# Line 185  Line 229 
229    (notnot-mv (or (char> #\a #\9) (char> #\0 #\z)))    (notnot-mv (or (char> #\a #\9) (char> #\0 #\z)))
230    t)    t)
231    
232    (deftest char>.9
233      (let ((i 0) a b c)
234        (values
235         (char> (progn (setq a (incf i)) #\b)
236                (progn (setq b (incf i)) #\a)
237                (progn (setq c (incf i)) #\b))
238         i a b c))
239      nil 3 1 2 3)
240    
241  ;;; Case-insensitive comparisons  ;;; Case-insensitive comparisons
242    
243  (deftest char-equal.1  (deftest char-equal.1
# Line 213  Line 266 
266                           (not (char-equal c1 c2)))))                           (not (char-equal c1 c2)))))
267    t)    t)
268    
269    (deftest char-equal.5
270      (let ((i 0) a b c)
271        (values
272         (char-equal (progn (setq a (incf i)) #\a)
273                     (progn (setq b (incf i)) #\a)
274                     (progn (setq c (incf i)) #\b))
275         i a b c))
276      nil 3 1 2 3)
277    
278  (deftest char-not-equal.1  (deftest char-not-equal.1
279    (is-ordered-by +code-chars+ #'(lambda (c1 c2)    (is-ordered-by +code-chars+ #'(lambda (c1 c2)
280                                    (or (char= (char-downcase c1)                                    (or (char= (char-downcase c1)
# Line 236  Line 298 
298                                            (char-not-equal c1 c2))))                                            (char-not-equal c1 c2))))
299    t)    t)
300    
301    (deftest char-not-equal.5
302      (let ((i 0) a b c)
303        (values
304         (char-not-equal (progn (setq a (incf i)) #\a)
305                         (progn (setq b (incf i)) #\b)
306                         (progn (setq c (incf i)) #\b))
307         i a b c))
308      nil 3 1 2 3)
309    
310  (deftest char-not-greaterp.1  (deftest char-not-greaterp.1
311    (loop for c across +code-chars+    (loop for c across +code-chars+
312          always (char-not-greaterp c c))          always (char-not-greaterp c c))
# Line 269  Line 340 
340    (notnot-mv (or (char-not-greaterp #\9 #\a) (char-not-greaterp #\z #\0)))    (notnot-mv (or (char-not-greaterp #\9 #\a) (char-not-greaterp #\z #\0)))
341    t)    t)
342    
343    (deftest char-not-greaterp.9
344      (let ((i 0) a b c)
345        (values
346         (char-not-greaterp (progn (setq a (incf i)) #\a)
347                            (progn (setq b (incf i)) #\b)
348                            (progn (setq c (incf i)) #\a))
349         i a b c))
350      nil 3 1 2 3)
351    
352  (deftest char-lessp.1  (deftest char-lessp.1
353    (loop for c across +code-chars+    (loop for c across +code-chars+
354          never (char-lessp c c))          never (char-lessp c c))
# Line 302  Line 382 
382    (notnot-mv (or (char-lessp #\9 #\a) (char-lessp #\z #\0)))    (notnot-mv (or (char-lessp #\9 #\a) (char-lessp #\z #\0)))
383    t)    t)
384    
385    (deftest char-lessp.9
386      (let ((i 0) a b c)
387        (values
388         (char-lessp (progn (setq a (incf i)) #\a)
389                     (progn (setq b (incf i)) #\b)
390                     (progn (setq c (incf i)) #\a))
391         i a b c))
392      nil 3 1 2 3)
393    
394  (deftest char-not-lessp.1  (deftest char-not-lessp.1
395    (loop for c across +code-chars+    (loop for c across +code-chars+
396          always (char-not-lessp c c))          always (char-not-lessp c c))
# Line 336  Line 425 
425    (notnot-mv (or (char-not-lessp #\a #\9) (char-not-lessp #\0 #\z)))    (notnot-mv (or (char-not-lessp #\a #\9) (char-not-lessp #\0 #\z)))
426    t)    t)
427    
428    (deftest char-not-lessp.9
429      (let ((i 0) a b c)
430        (values
431         (char-not-lessp (progn (setq a (incf i)) #\b)
432                         (progn (setq b (incf i)) #\a)
433                         (progn (setq c (incf i)) #\b))
434         i a b c))
435      nil 3 1 2 3)
436    
437  (deftest char-greaterp.1  (deftest char-greaterp.1
438    (loop for c across +code-chars+    (loop for c across +code-chars+
439          never (char-greaterp c c))          never (char-greaterp c c))
# Line 369  Line 467 
467  (deftest char-greaterp.8  (deftest char-greaterp.8
468    (notnot-mv (or (char-greaterp #\a #\9) (char-greaterp #\0 #\z)))    (notnot-mv (or (char-greaterp #\a #\9) (char-greaterp #\0 #\z)))
469    t)    t)
470    
471    (deftest char-greaterp.9
472      (let ((i 0) a b c)
473        (values
474         (char-greaterp (progn (setq a (incf i)) #\b)
475                        (progn (setq b (incf i)) #\a)
476                        (progn (setq c (incf i)) #\b))
477         i a b c))
478      nil 3 1 2 3)

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

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