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

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

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

revision 1.11 by pfdietz, Sat Feb 22 01:15:59 2003 UTC revision 1.12 by pfdietz, Sat Jun 14 15:10:40 2003 UTC
# Line 150  Line 150 
150              :start 2 :from-end t)              :start 2 :from-end t)
151    (a b))    (a b))
152    
153    (deftest find-list.29
154      (find 10 '(1 2 3 8 20 3 1 21 3) :test #'<)
155      20)
156    
157    (deftest find-list.30
158      (find 10 '(1 2 3 8 20 3 1 21 3) :test-not #'>=)
159      20)
160    
161  ;;; Tests on vectors  ;;; Tests on vectors
162    
163  (deftest find-vector.1  (deftest find-vector.1
# Line 320  Line 328 
328      (loop for i from 1 to 5 collect (find i a :from-end t :key #'car)))      (loop for i from 1 to 5 collect (find i a :from-end t :key #'car)))
329    ((1 1) (2 2) (3 3) (4 4) (5 5)))    ((1 1) (2 2) (3 3) (4 4) (5 5)))
330    
331    (deftest find-vector.31
332      (find 10 #(1 2 3 8 20 3 1 21 3) :test #'<)
333      20)
334    
335    (deftest find-vector.32
336      (find 10 #(1 2 3 8 20 3 1 21 3) :test-not #'>=)
337      20)
338    
339  ;;; tests on bit vectors  ;;; tests on bit vectors
340    
341  (deftest find-bit-vector.1  (deftest find-bit-vector.1
# Line 593  Line 609 
609      (values (find 0 a) (find 0 a :from-end t)))      (values (find 0 a) (find 0 a :from-end t)))
610    0 0)    0 0)
611    
612    (deftest find-bit-vector.31
613      (find 2 #*00011010010 :test #'<)
614      nil)
615    
616    (deftest find-bit-vector.32
617      (find 2 #*0010101101 :test-not #'>=)
618      nil)
619    
620    (deftest find-bit-vector.33
621      (find 0 #*00011010010 :test #'<)
622      1)
623    
624    (deftest find-bit-vector.34
625      (find 0 #*0010101101 :test-not #'>=)
626      1)
627    
628  ;;; strings  ;;; strings
629    
630  (deftest find-string.1  (deftest find-string.1
# Line 741  Line 773 
773    (#\a #\b #\c #\d #\e nil nil nil nil nil)    (#\a #\b #\c #\d #\e nil nil nil nil nil)
774    (#\a #\b #\c #\d #\e nil nil nil nil nil))    (#\a #\b #\c #\d #\e nil nil nil nil nil))
775    
776    (deftest find-string.26
777      (find #\k "abcdmnop" :test #'char<)
778      #\m)
779    
780    (deftest find-string.27
781      (find #\k "abcdmnop" :test-not #'char>=)
782      #\m)
783    
784  ;;; Keyword tests  ;;; Keyword tests
785    
786  (deftest find.allow-other-keys.1  (deftest find.allow-other-keys.1

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

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