/[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.13 by pfdietz, Sat Jun 14 15:10:40 2003 UTC revision 1.14 by pfdietz, Mon Jun 16 11:38:15 2003 UTC
# Line 87  Line 87 
87    (count 10 '(1 11 2 4 14 5 18 6 7) :test-not #'>=)    (count 10 '(1 11 2 4 14 5 18 6 7) :test-not #'>=)
88    3)    3)
89    
90    (defharmless count-list.test-and-test-not.1
91      (count 0 '(0 1 2 0 1 2 3 0 1) :test #'eql :test-not #'eql))
92    
93    (defharmless count-list.test-and-test-not.2
94      (count 0 '(0 1 2 0 1 2 3 0 1) :test-not #'eql :test #'eql))
95    
96  ;;; On vectors  ;;; On vectors
97    
98  (deftest count-vector.1  (deftest count-vector.1
# Line 171  Line 177 
177    (count 10 #(1 11 2 4 14 5 18 6 7) :test-not #'>=)    (count 10 #(1 11 2 4 14 5 18 6 7) :test-not #'>=)
178    3)    3)
179    
180    (defharmless count-vector.test-and-test-not.1
181      (count 0 #(0 1 2 0 1 2 3 0 1) :test #'eql :test-not #'eql))
182    
183    (defharmless count-vector.test-and-test-not.2
184      (count 0 #(0 1 2 0 1 2 3 0 1) :test-not #'eql :test #'eql))
185    
186  ;;; Non-simple vectors  ;;; Non-simple vectors
187    
188  (deftest count-filled-vector.1  (deftest count-filled-vector.1
# Line 408  Line 420 
420    (count 1 #*00001100100 :test-not #'>)    (count 1 #*00001100100 :test-not #'>)
421    3)    3)
422    
423    (defharmless count-bit-vector.test-and-test-not.1
424      (count 0 #*0011010101100010000 :test #'eql :test-not #'eql))
425    
426    (defharmless count-bit-vector.test-and-test-not.2
427      (count 0 #*0011010101100010000 :test-not #'eql :test #'eql))
428    
429  ;;; Tests on strings  ;;; Tests on strings
430    
431  (deftest count-string.1  (deftest count-string.1
# Line 517  Line 535 
535    (count #\1 "00001100100" :test-not #'char>)    (count #\1 "00001100100" :test-not #'char>)
536    3)    3)
537    
538    (defharmless count-string.test-and-test-not.1
539      (count #\0 "0011010101100010000" :test #'eql :test-not #'eql))
540    
541    (defharmless count-string.test-and-test-not.2
542      (count #\0 "0011010101100010000" :test-not #'eql :test #'eql))
543    
544  ;;; Argument order tests  ;;; Argument order tests
545    
546  (deftest count.order.1  (deftest count.order.1

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

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