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

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

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

revision 1.10 by pfdietz, Sat Feb 15 05:11:11 2003 UTC revision 1.11 by pfdietz, Thu Feb 20 23:57:54 2003 UTC
# Line 82  Line 82 
82    6)    6)
83    
84  (deftest position-list.14  (deftest position-list.14
85    (position 'a '(a a b a c e d a f a) :test (complement #'eq))    (position 'a '(a a b a c e d a f a) :test (complement #'eql))
86    2)    2)
87    
88  (deftest position-list.15  (deftest position-list.15
89    (position 'a '(a a b a c e d a f a) :test (complement #'eq)    (position 'a '(a a b a c e d a f a) :test (complement #'eql)
90              :from-end t)              :from-end t)
91    8)    8)
92    
93  (deftest position-list.16  (deftest position-list.16
94    (position 'a '(a a b a c e d a f a) :test-not #'eq)    (position 'a '(a a b a c e d a f a) :test-not #'eql)
95    2)    2)
96    
97  (deftest position-list.17  (deftest position-list.17
98    (position 'a '(a a b a c e d a f a) :test-not 'eq    (position 'a '(a a b a c e d a f a) :test-not 'eql
99              :from-end t)              :from-end t)
100    8)    8)
101    
102  (deftest position-list.18  (deftest position-list.18
103    (position 'a '(a a b a c e d a f a) :test-not 'eq)    (position 'a '(a a b a c e d a f a) :test-not 'eql)
104    2)    2)
105    
106  (deftest position-list.19  (deftest position-list.19
107    (position 'a '(a a b a c e d a f a) :test-not #'eq    (position 'a '(a a b a c e d a f a) :test-not #'eql
108              :from-end t)              :from-end t)
109    8)    8)
110    
111  (deftest position-list.20  (deftest position-list.20
112    (position 'a '(a a b a c e d a f a) :test-not #'eq)    (position 'a '(a a b a c e d a f a) :test-not #'eql)
113    2)    2)
114    
115  (deftest position-list.21  (deftest position-list.21
116    (position 'a '(a a b a c e d a f a) :test #'eq    (position 'a '(a a b a c e d a f a) :test #'eql
117              :start 2)              :start 2)
118    3)    3)
119    
120  (deftest position-list.22  (deftest position-list.22
121    (position 'a '(a a b a c e d a f a) :test #'eq    (position 'a '(a a b a c e d a f a) :test #'eql
122              :start 2 :end nil)              :start 2 :end nil)
123    3)    3)
124    
125  (deftest position-list.23  (deftest position-list.23
126    (position 'a '(a a b a c e d a f a) :test-not #'eq    (position 'a '(a a b a c e d a f a) :test-not #'eql
127              :start 0 :end 5)              :start 0 :end 5)
128    2)    2)
129    
130  (deftest position-list.24  (deftest position-list.24
131    (position 'a '(a a b a c e d a f a) :test-not #'eq    (position '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    4)    4)
134    
# Line 229  Line 229 
229    6)    6)
230    
231  (deftest position-vector.14  (deftest position-vector.14
232    (position 'a #(a a b a c e d a f a) :test (complement #'eq))    (position 'a #(a a b a c e d a f a) :test (complement #'eql))
233    2)    2)
234    
235  (deftest position-vector.15  (deftest position-vector.15
236    (position 'a #(a a b a c e d a f a) :test (complement #'eq)    (position 'a #(a a b a c e d a f a) :test (complement #'eql)
237              :from-end t)              :from-end t)
238    8)    8)
239    
240  (deftest position-vector.16  (deftest position-vector.16
241    (position 'a #(a a b a c e d a f a) :test-not #'eq)    (position 'a #(a a b a c e d a f a) :test-not #'eql)
242    2)    2)
243    
244  (deftest position-vector.17  (deftest position-vector.17
245    (position 'a #(a a b a c e d a f a) :test-not 'eq    (position 'a #(a a b a c e d a f a) :test-not 'eql
246              :from-end t)              :from-end t)
247    8)    8)
248    
249  (deftest position-vector.18  (deftest position-vector.18
250    (position 'a #(a a b a c e d a f a) :test-not 'eq)    (position 'a #(a a b a c e d a f a) :test-not 'eql)
251    2)    2)
252    
253  (deftest position-vector.19  (deftest position-vector.19
254    (position 'a #(a a b a c e d a f a) :test-not #'eq    (position 'a #(a a b a c e d a f a) :test-not #'eql
255              :from-end t)              :from-end t)
256    8)    8)
257    
258  (deftest position-vector.20  (deftest position-vector.20
259    (position 'a #(a a b a c e d a f a) :test-not #'eq)    (position 'a #(a a b a c e d a f a) :test-not #'eql)
260    2)    2)
261    
262  (deftest position-vector.21  (deftest position-vector.21
263    (position 'a #(a a b a c e d a f a) :test #'eq    (position 'a #(a a b a c e d a f a) :test #'eql
264              :start 2)              :start 2)
265    3)    3)
266    
267  (deftest position-vector.22  (deftest position-vector.22
268    (position 'a #(a a b a c e d a f a) :test #'eq    (position 'a #(a a b a c e d a f a) :test #'eql
269              :start 2 :end nil)              :start 2 :end nil)
270    3)    3)
271    
272  (deftest position-vector.23  (deftest position-vector.23
273    (position 'a #(a a b a c e d a f a) :test-not #'eq    (position 'a #(a a b a c e d a f a) :test-not #'eql
274              :start 0 :end 5)              :start 0 :end 5)
275    2)    2)
276    
277  (deftest position-vector.24  (deftest position-vector.24
278    (position 'a #(a a b a c e d a f a) :test-not #'eq    (position 'a #(a a b a c e d a f a) :test-not #'eql
279              :start 0 :end 5 :from-end t)              :start 0 :end 5 :from-end t)
280    4)    4)
281    
# Line 392  Line 392 
392    6)    6)
393    
394  (deftest position-bit-vector.14  (deftest position-bit-vector.14
395    (position 0 #*0010111010 :test (complement #'eq))    (position 0 #*0010111010 :test (complement #'eql))
396    2)    2)
397    
398  (deftest position-bit-vector.15  (deftest position-bit-vector.15
399    (position 0 #*0010111010 :test (complement #'eq)    (position 0 #*0010111010 :test (complement #'eql)
400              :from-end t)              :from-end t)
401    8)    8)
402    
403  (deftest position-bit-vector.16  (deftest position-bit-vector.16
404    (position 0 #*0010111010 :test-not #'eq)    (position 0 #*0010111010 :test-not #'eql)
405    2)    2)
406    
407  (deftest position-bit-vector.17  (deftest position-bit-vector.17
408    (position 0 #*001011101 :test-not 'eq    (position 0 #*001011101 :test-not 'eql
409              :from-end t)              :from-end t)
410    8)    8)
411    
412  (deftest position-bit-vector.18  (deftest position-bit-vector.18
413    (position 0 #*00101110 :test-not 'eq)    (position 0 #*00101110 :test-not 'eql)
414    2)    2)
415    
416  (deftest position-bit-vector.19  (deftest position-bit-vector.19
417    (position 0 #*00101110 :test-not #'eq    (position 0 #*00101110 :test-not #'eql
418              :from-end t)              :from-end t)
419    6)    6)
420    
421  (deftest position-bit-vector.20  (deftest position-bit-vector.20
422    (position 0 #*00101110 :test-not #'eq)    (position 0 #*00101110 :test-not #'eql)
423    2)    2)
424    
425  (deftest position-bit-vector.21  (deftest position-bit-vector.21
426    (position 0 #*00101110 :test #'eq    (position 0 #*00101110 :test #'eql
427              :start 2)              :start 2)
428    3)    3)
429    
430  (deftest position-bit-vector.22  (deftest position-bit-vector.22
431    (position 0 #*00101110 :test #'eq    (position 0 #*00101110 :test #'eql
432              :start 2 :end nil)              :start 2 :end nil)
433    3)    3)
434    
435  (deftest position-bit-vector.23  (deftest position-bit-vector.23
436    (position 0 #*00101110 :test-not #'eq    (position 0 #*00101110 :test-not #'eql
437              :start 0 :end 5)              :start 0 :end 5)
438    2)    2)
439    
440  (deftest position-bit-vector.24  (deftest position-bit-vector.24
441    (position 0 #*00101110 :test-not #'eq    (position 0 #*00101110 :test-not #'eql
442              :start 0 :end 5 :from-end t)              :start 0 :end 5 :from-end t)
443    4)    4)
444    
# Line 562  Line 562 
562    6)    6)
563    
564  (deftest position-string.14  (deftest position-string.14
565    (position #\a "aabacedafa" :test (complement #'eq))    (position #\a "aabacedafa" :test (complement #'eql))
566    2)    2)
567    
568  (deftest position-string.15  (deftest position-string.15
569    (position #\a "aabacedafa" :test (complement #'eq)    (position #\a "aabacedafa" :test (complement #'eql)
570              :from-end t)              :from-end t)
571    8)    8)
572    
573  (deftest position-string.16  (deftest position-string.16
574    (position #\a "aabacedafa" :test-not #'eq)    (position #\a "aabacedafa" :test-not #'eql)
575    2)    2)
576    
577  (deftest position-string.17  (deftest position-string.17
578    (position #\a "aabacedafa" :test-not 'eq    (position #\a "aabacedafa" :test-not 'eql
579              :from-end t)              :from-end t)
580    8)    8)
581    
582  (deftest position-string.18  (deftest position-string.18
583    (position #\a "aabacedafa" :test-not 'eq)    (position #\a "aabacedafa" :test-not 'eql)
584    2)    2)
585    
586  (deftest position-string.19  (deftest position-string.19
587    (position #\a "aabacedafa" :test-not #'eq    (position #\a "aabacedafa" :test-not #'eql
588              :from-end t)              :from-end t)
589    8)    8)
590    
591  (deftest position-string.20  (deftest position-string.20
592    (position #\a "aabacedafa" :test-not #'eq)    (position #\a "aabacedafa" :test-not #'eql)
593    2)    2)
594    
595  (deftest position-string.21  (deftest position-string.21
596    (position #\a "aabacedafa" :test #'eq    (position #\a "aabacedafa" :test #'eql
597              :start 2)              :start 2)
598    3)    3)
599    
600  (deftest position-string.22  (deftest position-string.22
601    (position #\a "aabacedafa" :test #'eq    (position #\a "aabacedafa" :test #'eql
602              :start 2 :end nil)              :start 2 :end nil)
603    3)    3)
604    
605  (deftest position-string.23  (deftest position-string.23
606    (position #\a "aabacedafa" :test-not #'eq    (position #\a "aabacedafa" :test-not #'eql
607              :start 0 :end 5)              :start 0 :end 5)
608    2)    2)
609    
610  (deftest position-string.24  (deftest position-string.24
611    (position #\a "aabacedafa" :test-not #'eq    (position #\a "aabacedafa" :test-not #'eql
612              :start 0 :end 5 :from-end t)              :start 0 :end 5 :from-end t)
613    4)    4)
614    

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

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