/[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.9 by pfdietz, Fri Feb 14 05:10:36 2003 UTC revision 1.10 by pfdietz, Thu Feb 20 23:57:53 2003 UTC
# Line 82  Line 82 
82    4)    4)
83    
84  (deftest find-list.14  (deftest find-list.14
85    (find 'a '(a a b a c e d a f a) :test (complement #'eq))    (find 'a '(a a b a c e d a f a) :test (complement #'eql))
86    b)    b)
87    
88  (deftest find-list.15  (deftest find-list.15
89    (find 'a '(a a b a c e d a f a) :test (complement #'eq)    (find 'a '(a a b a c e d a f a) :test (complement #'eql)
90              :from-end t)              :from-end t)
91    f)    f)
92    
93  (deftest find-list.16  (deftest find-list.16
94    (find 'a '(a a b a c e d a f a) :test-not #'eq)    (find 'a '(a a b a c e d a f a) :test-not #'eql)
95    b)    b)
96    
97  (deftest find-list.17  (deftest find-list.17
98    (find 'a '(a a b a c e d a f a) :test-not 'eq    (find 'a '(a a b a c e d a f a) :test-not 'eql
99              :from-end t)              :from-end t)
100    f)    f)
101    
102  (deftest find-list.18  (deftest find-list.18
103    (find 'a '(a a b a c e d a f a) :test-not 'eq)    (find 'a '(a a b a c e d a f a) :test-not 'eql)
104    b)    b)
105    
106  (deftest find-list.19  (deftest find-list.19
107    (find 'a '(a a b a c e d a f a) :test-not #'eq    (find 'a '(a a b a c e d a f a) :test-not #'eql
108              :from-end t)              :from-end t)
109    f)    f)
110    
111  (deftest find-list.20  (deftest find-list.20
112    (find 'a '(a a b a c e d a f a) :test-not #'eq)    (find 'a '(a a b a c e d a f a) :test-not #'eql)
113    b)    b)
114    
115  (deftest find-list.21  (deftest find-list.21
116    (find 'a '(a a b a c e d a f a) :test #'eq    (find 'a '(a a b a c e d a f a) :test #'eql
117              :start 2)              :start 2)
118    a)    a)
119    
120  (deftest find-list.22  (deftest find-list.22
121    (find 'a '(a a b a c e d a f a) :test #'eq    (find 'a '(a a b a c e d a f a) :test #'eql
122              :start 2 :end nil)              :start 2 :end nil)
123    a)    a)
124    
125  (deftest find-list.23  (deftest find-list.23
126    (find 'a '(a a b a c e d a f a) :test-not #'eq    (find 'a '(a a b a c e d a f a) :test-not #'eql
127              :start 0 :end 5)              :start 0 :end 5)
128    b)    b)
129    
130  (deftest find-list.24  (deftest find-list.24
131    (find 'a '(a a b a c e d a f a) :test-not #'eq    (find 'a '(a a b a c e d a f a) :test-not #'eql
132              :start 0 :end 5 :from-end t)              :start 0 :end 5 :from-end t)
133    c)    c)
134    
# Line 237  Line 237 
237    4)    4)
238    
239  (deftest find-vector.14  (deftest find-vector.14
240    (find 'a #(a a b a c e d a f a) :test (complement #'eq))    (find 'a #(a a b a c e d a f a) :test (complement #'eql))
241    b)    b)
242    
243  (deftest find-vector.15  (deftest find-vector.15
244    (find 'a #(a a b a c e d a f a) :test (complement #'eq)    (find 'a #(a a b a c e d a f a) :test (complement #'eql)
245              :from-end t)              :from-end t)
246    f)    f)
247    
248  (deftest find-vector.16  (deftest find-vector.16
249    (find 'a #(a a b a c e d a f a) :test-not #'eq)    (find 'a #(a a b a c e d a f a) :test-not #'eql)
250    b)    b)
251    
252  (deftest find-vector.17  (deftest find-vector.17
253    (find 'a #(a a b a c e d a f a) :test-not 'eq    (find 'a #(a a b a c e d a f a) :test-not 'eql
254              :from-end t)              :from-end t)
255    f)    f)
256    
257  (deftest find-vector.18  (deftest find-vector.18
258    (find 'a #(a a b a c e d a f a) :test-not 'eq)    (find 'a #(a a b a c e d a f a) :test-not 'eql)
259    b)    b)
260    
261  (deftest find-vector.19  (deftest find-vector.19
262    (find 'a #(a a b a c e d a f a) :test-not #'eq    (find 'a #(a a b a c e d a f a) :test-not #'eql
263              :from-end t)              :from-end t)
264    f)    f)
265    
266  (deftest find-vector.20  (deftest find-vector.20
267    (find 'a #(a a b a c e d a f a) :test-not #'eq)    (find 'a #(a a b a c e d a f a) :test-not #'eql)
268    b)    b)
269    
270  (deftest find-vector.21  (deftest find-vector.21
271    (find 'a #(a a b a c e d a f a) :test #'eq    (find 'a #(a a b a c e d a f a) :test #'eql
272              :start 2)              :start 2)
273    a)    a)
274    
275  (deftest find-vector.22  (deftest find-vector.22
276    (find 'a #(a a b a c e d a f a) :test #'eq    (find 'a #(a a b a c e d a f a) :test #'eql
277              :start 2 :end nil)              :start 2 :end nil)
278    a)    a)
279    
280  (deftest find-vector.23  (deftest find-vector.23
281    (find 'a #(a a b a c e d a f a) :test-not #'eq    (find 'a #(a a b a c e d a f a) :test-not #'eql
282              :start 0 :end 5)              :start 0 :end 5)
283    b)    b)
284    
285  (deftest find-vector.24  (deftest find-vector.24
286    (find 'a #(a a b a c e d a f a) :test-not #'eq    (find 'a #(a a b a c e d a f a) :test-not #'eql
287              :start 0 :end 5 :from-end t)              :start 0 :end 5 :from-end t)
288    c)    c)
289    
# Line 435  Line 435 
435    1)    1)
436    
437  (deftest find-bit-vector.14  (deftest find-bit-vector.14
438    (find 0 #*0010111010 :test (complement #'eq))    (find 0 #*0010111010 :test (complement #'eql))
439    1)    1)
440    
441  (deftest find-bit-vector.15  (deftest find-bit-vector.15
442    (find 0 #*0010111010 :test (complement #'eq)    (find 0 #*0010111010 :test (complement #'eql)
443              :from-end t)              :from-end t)
444    1)    1)
445    
446  (deftest find-bit-vector.16  (deftest find-bit-vector.16
447    (find 0 #*0010111010 :test-not #'eq)    (find 0 #*0010111010 :test-not #'eql)
448    1)    1)
449    
450  (deftest find-bit-vector.16a  (deftest find-bit-vector.16a
451    (find 1 #*111111111111 :test-not #'eq)    (find 1 #*111111111111 :test-not #'eql)
452    nil)    nil)
453    
454  (deftest find-bit-vector.16b  (deftest find-bit-vector.16b
455    (find 0 #*0000000 :test-not #'eq)    (find 0 #*0000000 :test-not #'eql)
456    nil)    nil)
457    
458  (deftest find-bit-vector.17  (deftest find-bit-vector.17
459    (find 0 #*001011101 :test-not 'eq    (find 0 #*001011101 :test-not 'eql
460          :from-end t)          :from-end t)
461    1)    1)
462    
463  (deftest find-bit-vector.17a  (deftest find-bit-vector.17a
464    (find 0 #*0000000 :test-not 'eq    (find 0 #*0000000 :test-not 'eql
465          :from-end t)          :from-end t)
466    nil)    nil)
467    
468  (deftest find-bit-vector.17b  (deftest find-bit-vector.17b
469    (find 1 #*111111111111 :test-not 'eq    (find 1 #*111111111111 :test-not 'eql
470          :from-end t)          :from-end t)
471    nil)    nil)
472    
473  (deftest find-bit-vector.18  (deftest find-bit-vector.18
474    (find 0 #*00101110 :test-not 'eq)    (find 0 #*00101110 :test-not 'eql)
475    1)    1)
476    
477  (deftest find-bit-vector.18a  (deftest find-bit-vector.18a
478    (find 0 #*00000000 :test-not 'eq)    (find 0 #*00000000 :test-not 'eql)
479    nil)    nil)
480    
481  (deftest find-bit-vector.19  (deftest find-bit-vector.19
482    (find 0 #*00101110 :test-not #'eq    (find 0 #*00101110 :test-not #'eql
483              :from-end t)              :from-end t)
484    1)    1)
485    
486  (deftest find-bit-vector.19a  (deftest find-bit-vector.19a
487    (find 0 #*00000000 :test-not #'eq    (find 0 #*00000000 :test-not #'eql
488          :from-end t)          :from-end t)
489    nil)    nil)
490    
491  (deftest find-bit-vector.20  (deftest find-bit-vector.20
492    (find 0 #*00101110 :test-not #'eq)    (find 0 #*00101110 :test-not #'eql)
493    1)    1)
494    
495  (deftest find-bit-vector.21  (deftest find-bit-vector.21
496    (find 0 #*00101110 :test #'eq    (find 0 #*00101110 :test #'eql
497          :start 2)          :start 2)
498    0)    0)
499    
500  (deftest find-bit-vector.21a  (deftest find-bit-vector.21a
501    (find 0 #*00111111 :test #'eq    (find 0 #*00111111 :test #'eql
502          :start 2)          :start 2)
503    nil)    nil)
504    
505  (deftest find-bit-vector.21b  (deftest find-bit-vector.21b
506    (find 1 #*00111111 :test #'eq    (find 1 #*00111111 :test #'eql
507          :start 2)          :start 2)
508    1)    1)
509    
510  (deftest find-bit-vector.22  (deftest find-bit-vector.22
511    (find 0 #*00101110 :test #'eq    (find 0 #*00101110 :test #'eql
512          :start 2 :end nil)          :start 2 :end nil)
513    0)    0)
514    
515  (deftest find-bit-vector.22a  (deftest find-bit-vector.22a
516    (find 0 #*001111111 :test #'eq    (find 0 #*001111111 :test #'eql
517          :start 2 :end nil)          :start 2 :end nil)
518    nil)    nil)
519    
520  (deftest find-bit-vector.22b  (deftest find-bit-vector.22b
521    (find 1 #*001111111 :test #'eq    (find 1 #*001111111 :test #'eql
522          :start 2 :end nil)          :start 2 :end nil)
523    1)    1)
524    
525  (deftest find-bit-vector.23  (deftest find-bit-vector.23
526    (find 0 #*00101110 :test-not #'eq    (find 0 #*00101110 :test-not #'eql
527          :start 0 :end 5)          :start 0 :end 5)
528    1)    1)
529    
530  (deftest find-bit-vector.23a  (deftest find-bit-vector.23a
531    (find 0 #*00000111 :test-not #'eq    (find 0 #*00000111 :test-not #'eql
532          :start 0 :end 5)          :start 0 :end 5)
533    nil)    nil)
534    
535  (deftest find-bit-vector.23b  (deftest find-bit-vector.23b
536    (find 0 #*00001000 :test-not #'eq    (find 0 #*00001000 :test-not #'eql
537          :start 0 :end 5)          :start 0 :end 5)
538    1)    1)
539    
540  (deftest find-bit-vector.24  (deftest find-bit-vector.24
541    (find 0 #*00101110 :test-not #'eq    (find 0 #*00101110 :test-not #'eql
542              :start 0 :end 5 :from-end t)              :start 0 :end 5 :from-end t)
543    1)    1)
544    
545  (deftest find-bit-vector.24a  (deftest find-bit-vector.24a
546    (find 0 #*0000001111 :test-not #'eq    (find 0 #*0000001111 :test-not #'eql
547              :start 0 :end 5 :from-end t)              :start 0 :end 5 :from-end t)
548    nil)    nil)
549    
550  (deftest find-bit-vector.24b  (deftest find-bit-vector.24b
551    (find 0 #*0000100 :test-not #'eq    (find 0 #*0000100 :test-not #'eql
552              :start 0 :end 5 :from-end t)              :start 0 :end 5 :from-end t)
553    1)    1)
554    
# Line 679  Line 679 
679    #\4)    #\4)
680    
681  (deftest find-string.14  (deftest find-string.14
682    (find #\a "aabacedafa" :test (complement #'eq))    (find #\a "aabacedafa" :test (complement #'eql))
683    #\b)    #\b)
684    
685  (deftest find-string.15  (deftest find-string.15
686    (find #\a "aabacedafa" :test (complement #'eq)    (find #\a "aabacedafa" :test (complement #'eql)
687              :from-end t)              :from-end t)
688    #\f)    #\f)
689    
690  (deftest find-string.16  (deftest find-string.16
691    (find #\a "aabacedafa" :test-not #'eq)    (find #\a "aabacedafa" :test-not #'eql)
692    #\b)    #\b)
693    
694  (deftest find-string.17  (deftest find-string.17
695    (find #\a "aabacedafa" :test-not 'eq    (find #\a "aabacedafa" :test-not 'eql
696              :from-end t)              :from-end t)
697    #\f)    #\f)
698    
699  (deftest find-string.18  (deftest find-string.18
700    (find #\a "aabacedafa" :test-not 'eq)    (find #\a "aabacedafa" :test-not 'eql)
701    #\b)    #\b)
702    
703  (deftest find-string.19  (deftest find-string.19
704    (find #\a "aabacedafa" :test-not #'eq    (find #\a "aabacedafa" :test-not #'eql
705              :from-end t)              :from-end t)
706    #\f)    #\f)
707    
708  (deftest find-string.20  (deftest find-string.20
709    (find #\a "aabacedafa" :test-not #'eq)    (find #\a "aabacedafa" :test-not #'eql)
710    #\b)    #\b)
711    
712  (deftest find-string.21  (deftest find-string.21

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

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