/[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.4 by pfdietz, Wed Oct 23 03:10:23 2002 UTC revision 1.5 by pfdietz, Tue Nov 5 13:51:27 2002 UTC
# Line 297  Line 297 
297              :start 2 :from-end t)              :start 2 :from-end t)
298    4)    4)
299    
300    (deftest position-vector.29
301      (position 'a (make-array '(10) :initial-contents '(b b b b b a a a a a)
302                               :fill-pointer 5))
303      nil)
304    
305    (deftest position-vector.30
306      (position 'a (make-array '(10) :initial-contents '(b b b b a a a a a a)
307                               :fill-pointer 5))
308      4)
309    
310    (deftest position-vector.31
311      (position 'a (make-array '(10) :initial-contents '(b a b b a a a a a a)
312                               :fill-pointer 5)
313                :from-end t)
314      4)
315    
316  ;;; tests on bit vectors  ;;; tests on bit vectors
317    
318  (deftest position-bit-vector.1  (deftest position-bit-vector.1
# Line 436  Line 452 
452              :start 2 :from-end t)              :start 2 :from-end t)
453    8)    8)
454    
455    (deftest position-bit-vector.28
456      (position 0 (make-array '(10) :initial-contents '(1 1 1 1 1 0 0 0 0 0)
457                              :element-type 'bit
458                              :fill-pointer 5))
459      nil)
460    
461    (deftest position-bit-vector.29
462      (position 0 (make-array '(10) :initial-contents '(1 1 1 1 1 0 0 0 0 0)
463                              :element-type 'bit
464                              :fill-pointer 5)
465                :from-end t)
466      nil)
467    
468    (deftest position-bit-vector.30
469      (position 0 (make-array '(10) :initial-contents '(1 1 1 1 0 0 0 0 0 0)
470                              :element-type 'bit
471                              :fill-pointer 5))
472      4)
473    
474    (deftest position-bit-vector.31
475      (position 0 (make-array '(10) :initial-contents '(0 1 0 1 0 0 0 0 0 0)
476                              :element-type 'bit
477                              :fill-pointer 5)
478                :from-end t)
479      4)
480    
481    (deftest position-bit-vector.32
482      (position 0 (make-array '(10) :initial-contents '(1 0 1 1 0 0 0 0 0 0)
483                              :element-type 'bit
484                              :fill-pointer 5))
485      1)
486    
487  ;;; strings  ;;; strings
488    
489  (deftest position-string.1  (deftest position-string.1
# Line 564  Line 612 
612              :start 0 :end 5 :from-end t)              :start 0 :end 5 :from-end t)
613    4)    4)
614    
615    (deftest position-string.25
616      (position #\a (make-array '(10) :initial-contents (coerce "bbbbbaaaaa" 'list)
617                                :element-type 'character
618                                :fill-pointer 5))
619      nil)
620    
621    (deftest position-string.26
622      (position #\a (make-array '(10) :initial-contents (coerce "bbbbbaaaaa" 'list)
623                                :element-type 'character
624                                :fill-pointer 5)
625                :from-end t)
626      nil)
627    
628    (deftest position-string.27
629      (position #\a (make-array '(10) :initial-contents (coerce "bbbbaaaaaa" 'list)
630                                :element-type 'character
631                                :fill-pointer 5))
632      4)
633    
634    (deftest position-string.28
635      (position #\a (make-array '(10) :initial-contents (coerce "babbaaaaaa" 'list)
636                                :element-type 'character
637                                :fill-pointer 5)
638                :from-end t)
639      4)
640    
641  ;;; Error tests  ;;; Error tests
642    
643  (deftest position-error.1  (deftest position-error.1

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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