79 |
:test #'(lambda (x y) (declare (ignore x y)) t)) |
:test #'(lambda (x y) (declare (ignore x y)) t)) |
80 |
5) |
5) |
81 |
|
|
82 |
|
(deftest count-list.17 |
83 |
|
(count 10 '(1 11 2 4 14 5 18 6 7) :test #'<) |
84 |
|
3) |
85 |
|
|
86 |
|
(deftest count-list.18 |
87 |
|
(count 10 '(1 11 2 4 14 5 18 6 7) :test-not #'>=) |
88 |
|
3) |
89 |
|
|
90 |
;;; On vectors |
;;; On vectors |
91 |
|
|
92 |
(deftest count-vector.1 |
(deftest count-vector.1 |
158 |
(count 1 #(1 1 1 1 1 2 1 1) :test-not #'eql) |
(count 1 #(1 1 1 1 1 2 1 1) :test-not #'eql) |
159 |
1) |
1) |
160 |
|
|
161 |
(deftest count-vector16 |
(deftest count-vector.16 |
162 |
(count 1 #(1 1 1 3 1 2 1 1) :start 2 :end 7 |
(count 1 #(1 1 1 3 1 2 1 1) :start 2 :end 7 |
163 |
:test #'(lambda (x y) (declare (ignore x y)) t)) |
:test #'(lambda (x y) (declare (ignore x y)) t)) |
164 |
5) |
5) |
165 |
|
|
166 |
|
(deftest count-vector.17 |
167 |
|
(count 10 #(1 11 2 4 14 5 18 6 7) :test #'<) |
168 |
|
3) |
169 |
|
|
170 |
|
(deftest count-vector.18 |
171 |
|
(count 10 #(1 11 2 4 14 5 18 6 7) :test-not #'>=) |
172 |
|
3) |
173 |
|
|
174 |
;;; Non-simple vectors |
;;; Non-simple vectors |
175 |
|
|
176 |
(deftest count-filled-vector.1 |
(deftest count-filled-vector.1 |
400 |
:end 4) |
:end 4) |
401 |
3) |
3) |
402 |
|
|
403 |
|
(deftest count-bit-vector.21 |
404 |
|
(count 1 #*00001100100 :test #'<=) |
405 |
|
3) |
406 |
|
|
407 |
|
(deftest count-bit-vector.22 |
408 |
|
(count 1 #*00001100100 :test-not #'>) |
409 |
|
3) |
410 |
|
|
411 |
;;; Tests on strings |
;;; Tests on strings |
412 |
|
|
509 |
:start 2 :end 5) |
:start 2 :end 5) |
510 |
3) |
3) |
511 |
|
|
512 |
|
(deftest count-string.21 |
513 |
|
(count #\1 "00001100100" :test #'char<=) |
514 |
|
3) |
515 |
|
|
516 |
|
(deftest count-string.22 |
517 |
|
(count #\1 "00001100100" :test-not #'char>) |
518 |
|
3) |
519 |
|
|
520 |
;;; Argument order tests |
;;; Argument order tests |
521 |
|
|
522 |
(deftest count.order.1 |
(deftest count.order.1 |