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

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

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

revision 1.10 by pfdietz, Mon Feb 17 04:22:04 2003 UTC revision 1.11 by pfdietz, Thu Feb 20 23:57:53 2003 UTC
# Line 10  Line 10 
10    2)    2)
11    
12  (deftest count-list.2  (deftest count-list.2
13    (count 'a '(a b c d e a e f) :test #'eq)    (count 'a '(a b c d e a e f) :test #'eql)
14    2)    2)
15    
16  (deftest count-list.3  (deftest count-list.3
17    (count 'a '(a b c d e a e f) :test 'eq)    (count 'a '(a b c d e a e f) :test 'eql)
18    2)    2)
19    
20  (deftest count-list.4  (deftest count-list.4
# Line 71  Line 71 
71    7)    7)
72    
73  (deftest count-list.15  (deftest count-list.15
74    (count 1 '(1 1 1 1 1 2 1 1)  :test-not #'eq)    (count 1 '(1 1 1 1 1 2 1 1)  :test-not #'eql)
75    1)    1)
76    
77  (deftest count-list.16  (deftest count-list.16
# Line 86  Line 86 
86    2)    2)
87    
88  (deftest count-vector.2  (deftest count-vector.2
89    (count 'a #(a b c d e a e f) :test #'eq)    (count 'a #(a b c d e a e f) :test #'eql)
90    2)    2)
91    
92  (deftest count-vector.3  (deftest count-vector.3
93    (count 'a #(a b c d e a e f) :test 'eq)    (count 'a #(a b c d e a e f) :test 'eql)
94    2)    2)
95    
96  (deftest count-vector.4  (deftest count-vector.4
# Line 147  Line 147 
147    7)    7)
148    
149  (deftest count-vector.15  (deftest count-vector.15
150    (count 1 #(1 1 1 1 1 2 1 1)  :test-not #'eq)    (count 1 #(1 1 1 1 1 2 1 1)  :test-not #'eql)
151    1)    1)
152    
153  (deftest count-vector16  (deftest count-vector16
# Line 165  Line 165 
165  (deftest count-filled-vector.2  (deftest count-filled-vector.2
166    (count 'a (make-array 8 :initial-contents '(a b c d e a e f)    (count 'a (make-array 8 :initial-contents '(a b c d e a e f)
167                          :fill-pointer t)                          :fill-pointer t)
168           :test #'eq)           :test #'eql)
169    2)    2)
170    
171  (deftest count-filled-vector.3  (deftest count-filled-vector.3
172    (count 'a (make-array 8 :initial-contents '(a b c d e a e f)    (count 'a (make-array 8 :initial-contents '(a b c d e a e f)
173                          :fill-pointer t)                          :fill-pointer t)
174           :test 'eq)           :test 'eql)
175    2)    2)
176    
177  (deftest count-filled-vector.4  (deftest count-filled-vector.4
# Line 250  Line 250 
250  (deftest count-filled-vector.15  (deftest count-filled-vector.15
251    (count 1 (make-array 8 :initial-contents '(1 1 1 1 1 2 1 1)    (count 1 (make-array 8 :initial-contents '(1 1 1 1 1 2 1 1)
252                         :fill-pointer t)                         :fill-pointer t)
253           :test-not #'eq)           :test-not #'eql)
254    1)    1)
255    
256  (deftest count-filled-vector.16  (deftest count-filled-vector.16
# Line 291  Line 291 
291    7)    7)
292    
293  (deftest count-bit-vector.2  (deftest count-bit-vector.2
294    (count 1 #*00101100011011000 :test #'eq)    (count 1 #*00101100011011000 :test #'eql)
295    7)    7)
296    
297  (deftest count-bit-vector.3  (deftest count-bit-vector.3
298    (count 1 #*00101100011011000 :test 'eq)    (count 1 #*00101100011011000 :test 'eql)
299    7)    7)
300    
301  (deftest count-bit-vector.4  (deftest count-bit-vector.4
# Line 348  Line 348 
348    7)    7)
349    
350  (deftest count-bit-vector.15  (deftest count-bit-vector.15
351    (count 1 #*11111011  :test-not #'eq)    (count 1 #*11111011  :test-not #'eql)
352    1)    1)
353    
354  (deftest count-bit-vector.16  (deftest count-bit-vector.16
# Line 392  Line 392 
392    7)    7)
393    
394  (deftest count-string.2  (deftest count-string.2
395    (count #\1 "00101100011011000" :test #'eq)    (count #\1 "00101100011011000" :test #'eql)
396    7)    7)
397    
398  (deftest count-string.3  (deftest count-string.3
399    (count #\1 "00101100011011000" :test 'eq)    (count #\1 "00101100011011000" :test 'eql)
400    7)    7)
401    
402  (deftest count-string.4  (deftest count-string.4
# Line 451  Line 451 
451    7)    7)
452    
453  (deftest count-string.15  (deftest count-string.15
454    (count #\1 "11111011"  :test-not #'eq)    (count #\1 "11111011"  :test-not #'eql)
455    1)    1)
456    
457  (deftest count-string.16  (deftest count-string.16

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

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