/[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.12 by pfdietz, Sat Feb 22 01:15:59 2003 UTC revision 1.13 by pfdietz, Sat Jun 14 15:10:40 2003 UTC
# Line 79  Line 79 
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
# Line 150  Line 158 
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
# Line 384  Line 400 
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    
# Line 486  Line 509 
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

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

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