(define-library (srfi 132 test)
  (import (scheme base) (srfi 132) (chibi test))
  (export run-tests)
  (begin
    (define (run-tests)
      (test-begin "srfi-132: sorting")
      (test '()
          (list-sort > (list)))
      (test '(987)
          (list-sort > (list 987)))
      (test '(987 654)
          (list-sort > (list 987 654)))
      (test '(9 8 7 6 5 4 3 2 1 0)
          (list-sort > (list 9 8 6 3 0 4 2 5 7 1)))
      (test '()
          (list-stable-sort > (list)))
      (test '(987)
          (list-stable-sort > (list 987)))
      (test '(987 654)
          (list-stable-sort > (list 987 654)))
      (test '(9 8 7 6 5 4 3 2 1 0)
          (list-stable-sort > (list 9 8 6 3 0 4 2 5 7 1)))
      (test '(9 8 6 7 4 5 3 2 0 1)
          (list-stable-sort (lambda (x y)
                              (> (quotient x 2)
                                 (quotient y 2)))
                            (list 9 8 6 3 0 4 2 5 7 1)))
      (test '#()
          (let ((v (vector)))
            (vector-sort > v)))
      (test '#(987)
          (let ((v (vector 987)))
            (vector-sort > (vector 987))))
      (test '#(987 654)
          (let ((v (vector 987 654)))
            (vector-sort > v)))
      (test '#(9 8 7 6 5 4 3 2 1 0)
          (let ((v (vector 9 8 6 3 0 4 2 5 7 1)))
            (vector-sort > v)))
      (test '#()
          (let ((v (vector)))
            (vector-stable-sort > v)))
      (test '#(987)
          (let ((v (vector 987)))
            (vector-stable-sort > (vector 987))))
      (test '#(987 654)
          (let ((v (vector 987 654)))
            (vector-stable-sort > v)))
      (test '#(9 8 7 6 5 4 3 2 1 0)
          (let ((v (vector 9 8 6 3 0 4 2 5 7 1)))
            (vector-stable-sort > v)))
      (test '#(9 8 6 7 4 5 3 2 0 1)
          (let ((v (vector 9 8 6 3 0 4 2 5 7 1)))
            (vector-stable-sort (lambda (x y)
                                  (> (quotient x 2)
                                     (quotient y 2)))
                                v)))
      (test '#()
          (let ((v (vector)))
            (vector-sort > v 0)))
      (test '#()
          (let ((v (vector 987)))
            (vector-sort > (vector 987) 1)))
      (test '#(654)
          (let ((v (vector 987 654)))
            (vector-sort > v 1)))
      (test '#(7 5 4 3 2 1 0)
          (let ((v (vector 9 8 6 3 0 4 2 5 7 1)))
            (vector-sort > v 3)))
      (test '#()
          (let ((v (vector)))
            (vector-stable-sort > v 0)))
      (test '#()
          (let ((v (vector 987)))
            (vector-stable-sort > (vector 987) 1)))
      (test '#(654 987)
          (let ((v (vector 987 654)))
            (vector-stable-sort < v 0 2)))
      (test '#(7 5 4 3 2 1 0)
          (let ((v (vector 9 8 6 3 0 4 2 5 7 1)))
            (vector-stable-sort > v 3)))
      (test '#(7 4 5 3 2 0 1)
          (let ((v (vector 9 8 6 3 0 4 2 5 7 1)))
            (vector-stable-sort (lambda (x y)
                                  (> (quotient x 2)
                                     (quotient y 2)))
                                v
                                3)))
      (test '#()
          (let ((v (vector)))
            (vector-sort > v 0 0)))
      (test '#()
          (let ((v (vector 987)))
            (vector-sort > (vector 987) 1 1)))
      (test '#(654)
          (let ((v (vector 987 654)))
            (vector-sort > v 1 2)))
      (test '#(5 4 2 0)
          (let ((v (vector 9 8 6 3 0 4 2 5 7 1)))
            (vector-sort > v 4 8)))
      (test '#()
          (let ((v (vector)))
            (vector-stable-sort > v 0 0)))
      (test '#()
          (let ((v (vector 987)))
            (vector-stable-sort > (vector 987) 1 1)))
      (test '#(654)
          (let ((v (vector 987 654)))
            (vector-stable-sort > v 1 2)))
      (test '#(6 4 3 0)
          (let ((v (vector 9 8 6 3 0 4 2 5 7 1)))
            (vector-stable-sort > v 2 6)))
      (test '#(8 6 4 5 3 2 0)
          (let ((v (vector 9 8 6 3 0 4 2 5 7 1)))
            (vector-stable-sort (lambda (x y)
                                  (> (quotient x 2)
                                     (quotient y 2)))
                                v
                                1
                                8)))
      (test '()
          (list-sort! > (list)))
      (test '(987)
          (list-sort! > (list 987)))
      (test '(987 654)
          (list-sort! > (list 987 654)))
      (test '(9 8 7 6 5 4 3 2 1 0)
          (list-sort! > (list 9 8 6 3 0 4 2 5 7 1)))
      (test '()
          (list-stable-sort! > (list)))
      (test '(987)
          (list-stable-sort! > (list 987)))
      (test '(987 654)
          (list-stable-sort! > (list 987 654)))
      (test '(9 8 7 6 5 4 3 2 1 0)
          (list-stable-sort! > (list 9 8 6 3 0 4 2 5 7 1)))
      (test '(9 8 6 7 4 5 3 2 0 1)
          (list-stable-sort! (lambda (x y)
                               (> (quotient x 2)
                                  (quotient y 2)))
                             (list 9 8 6 3 0 4 2 5 7 1)))
      (test '#()
          (let ((v (vector)))
            (vector-sort! > v)
            v))
      (test '#(987)
          (let ((v (vector 987)))
            (vector-sort! > (vector 987))
            v))
      (test '#(987 654)
          (let ((v (vector 987 654)))
            (vector-sort! > v)
            v))
      (test '#(9 8 7 6 5 4 3 2 1 0)
          (let ((v (vector 9 8 6 3 0 4 2 5 7 1)))
            (vector-sort! > v)
            v))
      (test '#()
          (let ((v (vector)))
            (vector-stable-sort! > v)
            v))
      (test '#(987)
          (let ((v (vector 987)))
            (vector-stable-sort! > (vector 987))
            v))
      (test '#(987 654)
          (let ((v (vector 987 654)))
            (vector-stable-sort! > v)
            v))
      (test '#(9 8 7 6 5 4 3 2 1 0)
          (let ((v (vector 9 8 6 3 0 4 2 5 7 1)))
            (vector-stable-sort! > v)
            v))
      (test '#(9 8 6 7 4 5 3 2 0 1)
          (let ((v (vector 9 8 6 3 0 4 2 5 7 1)))
            (vector-stable-sort! (lambda (x y)
                                   (> (quotient x 2)
                                      (quotient y 2)))
                                 v)
            v))
      (test '#()
          (let ((v (vector)))
            (vector-sort! > v 0)
            v))
      (test '#(987)
          (let ((v (vector 987)))
            (vector-sort! > (vector 987) 1)
            v))
      (test '#(987 654)
          (let ((v (vector 987 654)))
            (vector-sort! > v 1)
            v))
      (test '#(9 8 6 7 5 4 3 2 1 0)
          (let ((v (vector 9 8 6 3 0 4 2 5 7 1)))
            (vector-sort! > v 3)
            v))
      (test '#()
          (let ((v (vector)))
            (vector-stable-sort! > v 0)
            v))
      (test '#(987)
          (let ((v (vector 987)))
            (vector-stable-sort! > (vector 987) 1)
            v))
      (test '#(654 987)
          (let ((v (vector 987 654)))
            (vector-stable-sort! < v 0 2)
            v))
      (test '#(9 8 6 7 5 4 3 2 1 0)
          (let ((v (vector 9 8 6 3 0 4 2 5 7 1)))
            (vector-stable-sort! > v 3)
            v))
      (test '#(9 8 6 7 4 5 3 2 0 1)
          (let ((v (vector 9 8 6 3 0 4 2 5 7 1)))
            (vector-stable-sort! (lambda (x y)
                                   (> (quotient x 2)
                                      (quotient y 2)))
                                 v
                                 3)
            v))
      (test '#()
          (let ((v (vector)))
            (vector-sort! > v 0 0)
            v))
      (test '#(987)
          (let ((v (vector 987)))
            (vector-sort! > (vector 987) 1 1)
            v))
      (test '#(987 654)
          (let ((v (vector 987 654)))
            (vector-sort! > v 1 2)
            v))
      (test '#(9 8 6 3 5 4 2 0 7 1)
          (let ((v (vector 9 8 6 3 0 4 2 5 7 1)))
            (vector-sort! > v 4 8)
            v))
      (test '#()
          (let ((v (vector)))
            (vector-stable-sort! > v 0 0)
            v))
      (test '#(987)
          (let ((v (vector 987)))
            (vector-stable-sort! > (vector 987) 1 1)
            v))
      (test '#(987 654)
          (let ((v (vector 987 654)))
            (vector-stable-sort! > v 1 2)
            v))
      (test '#(9 8 6 4 3 0 2 5 7 1)
          (let ((v (vector 9 8 6 3 0 4 2 5 7 1)))
            (vector-stable-sort! > v 2 6)
            v))
      (test '#(9 8 6 4 5 3 2 0 7 1)
          (let ((v (vector 9 8 6 3 0 4 2 5 7 1)))
            (vector-stable-sort! (lambda (x y)
                                   (> (quotient x 2)
                                      (quotient y 2)))
                                 v
                                 1
                                 8)
            v))
      (test (list-merge > (list) (list))
          '())
      (test '(9 6 3 0)
          (list-merge > (list) (list 9 6 3 0)))
      (test '(9 7 5 3 1)
          (list-merge > (list 9 7 5 3 1) (list)))
      (test '(9 9 7 6 5 3 3 1 0)
          (list-merge > (list 9 7 5 3 1) (list 9 6 3 0)))
      (test '()
          (list-merge! > (list) (list)))
      (test '(9 6 3 0)
          (list-merge! > (list) (list 9 6 3 0)))
      (test '(9 7 5 3 1)
          (list-merge! > (list 9 7 5 3 1) (list)))
      (test '(9 9 7 6 5 3 3 1 0)
          (list-merge! > (list 9 7 5 3 1) (list 9 6 3 0)))
      (test '#()
          (vector-merge > (vector) (vector)))
      (test '#(9 6 3 0)
          (vector-merge > (vector) (vector 9 6 3 0)))
      (test '#(9 7 5 3 1)
          (vector-merge > (vector 9 7 5 3 1) (vector)))
      (test '#(9 9 7 6 5 3 3 1 0)
          (vector-merge > (vector 9 7 5 3 1) (vector 9 6 3 0)))
      (test '#(#f #f #f #f #f #f #f #f #f #f #f #f)
          (let ((v (make-vector 12 #f)))
            (vector-merge! > v (vector) (vector))
            v))
      (test '#( 9  6  3  0 #f #f #f #f #f #f #f #f)
          (let ((v (make-vector 12 #f)))
            (vector-merge! > v (vector) (vector 9 6 3 0))
            v))
      (test '#( 9  7  5  3  1 #f #f #f #f #f #f #f)
          (let ((v (make-vector 12 #f)))
            (vector-merge! > v (vector 9 7 5 3 1) (vector))
            v))
      (test '#( 9  9  7  6  5  3  3  1  0 #f #f #f)
          (let ((v (make-vector 12 #f)))
            (vector-merge! > v (vector 9 7 5 3 1) (vector 9 6 3 0))
            v))
      (test '#(#f #f #f #f #f #f #f #f #f #f #f #f)
          (let ((v (make-vector 12 #f)))
            (vector-merge! > v (vector) (vector) 0)
            v))
      (test '#( 9  6  3  0 #f #f #f #f #f #f #f #f)
          (let ((v (make-vector 12 #f)))
            (vector-merge! > v (vector) (vector 9 6 3 0) 0)
            v))
      (test '#( 9  7  5  3  1 #f #f #f #f #f #f #f)
          (let ((v (make-vector 12 #f)))
            (vector-merge! > v (vector 9 7 5 3 1) (vector) 0)
            v))
      (test '#( 9  9  7  6  5  3  3  1  0 #f #f #f)
          (let ((v (make-vector 12 #f)))
            (vector-merge! > v (vector 9 7 5 3 1) (vector 9 6 3 0) 0)
            v))
      (test '#(#f #f #f #f #f #f #f #f #f #f #f #f)
          (let ((v (make-vector 12 #f)))
            (vector-merge! > v (vector) (vector) 2)
            v))
      (test '#(#f #f 9  6  3  0 #f #f #f #f #f #f)
          (let ((v (make-vector 12 #f)))
            (vector-merge! > v (vector) (vector 9 6 3 0) 2)
            v))
      (test '#(#f #f  9  7  5  3  1 #f #f #f #f #f)
          (let ((v (make-vector 12 #f)))
            (vector-merge! > v (vector 9 7 5 3 1) (vector) 2)
            v))
      (test '#(#f #f 9  9  7  6  5  3  3  1  0 #f)
          (let ((v (make-vector 12 #f)))
            (vector-merge! > v (vector 9 7 5 3 1) (vector 9 6 3 0) 2)
            v))
      (test '#()
          (vector-merge > (vector) (vector) 0))
      (test '#(9 6 3 0)
          (vector-merge > (vector) (vector 9 6 3 0) 0))
      (test '#(5 3 1)
          (vector-merge > (vector 9 7 5 3 1) (vector) 2))
      (test '#(9 6 5 3 3 1 0)
          (vector-merge > (vector 9 7 5 3 1) (vector 9 6 3 0) 2))
      (test '#(#f #f #f #f #f #f #f #f #f #f #f #f)
          (let ((v (make-vector 12 #f)))
            (vector-merge! > v (vector) (vector) 2 0)
            v))
      (test '#(#f #f 9  6  3  0 #f #f #f #f #f #f)
          (let ((v (make-vector 12 #f)))
            (vector-merge! > v (vector) (vector 9 6 3 0) 2 0)
            v))
      (test '#(#f #f 5  3  1 #f #f #f #f #f #f #f)
          (let ((v (make-vector 12 #f)))
            (vector-merge! > v (vector 9 7 5 3 1) (vector) 2 2)
            v))
      (test '#(#f #f  9   6  5  3  3  1  0 #f #f #f)
          (let ((v (make-vector 12 #f)))
            (vector-merge! > v (vector 9 7 5 3 1) (vector 9 6 3 0) 2 2)
            v))
      (test '#()
          (vector-merge > (vector) (vector) 0 0))
      (test '#(9 6 3 0)
          (vector-merge > (vector) (vector 9 6 3 0) 0 0))
      (test '#(5 3 1)
          (vector-merge > (vector 9 7 5 3 1) (vector) 2 5))
      (test '#(9 6 5 3 3 1 0)
          (vector-merge > (vector 9 7 5 3 1) (vector 9 6 3 0) 2 5))
      (test '#(#f #f #f #f #f #f #f #f #f #f #f #f)
          (let ((v (make-vector 12 #f)))
            (vector-merge! > v (vector) (vector) 2 0 0)
            v))
      (test '#(#f #f 9  6  3  0 #f #f #f #f #f #f)
          (let ((v (make-vector 12 #f)))
            (vector-merge! > v (vector) (vector 9 6 3 0) 2 0 0)
            v))
      (test '#(#f #f 5  3  1 #f #f #f #f #f #f #f)
          (let ((v (make-vector 12 #f)))
            (vector-merge! > v (vector 9 7 5 3 1) (vector) 2 2 5)
            v))
      (test '#(#f #f  9  6  5  3  3  1  0 #f #f #f)
          (let ((v (make-vector 12 #f)))
            (vector-merge! > v (vector 9 7 5 3 1) (vector 9 6 3 0) 2 2 5)
            v))
      (test '#()
          (vector-merge > (vector) (vector) 0 0))
      (test '#(9 6 3 0)
          (vector-merge > (vector) (vector 9 6 3 0) 0 0))
      (test '#(5 3)
          (vector-merge > (vector 9 7 5 3 1) (vector) 2 4))
      (test '#(9 6 5 3 3 0)
          (vector-merge > (vector 9 7 5 3 1) (vector 9 6 3 0) 2 4))
      (test '#(#f #f #f #f #f #f #f #f #f #f #f #f)
          (let ((v (make-vector 12 #f)))
            (vector-merge! > v (vector) (vector) 2 0 0)
            v))
      (test '#(#f #f 9  6  3  0 #f #f #f #f #f #f)
          (let ((v (make-vector 12 #f)))
            (vector-merge! > v (vector) (vector 9 6 3 0) 2 0 0)
            v))
      (test '#(#f #f 5  3 #f #f #f #f #f #f #f #f)
          (let ((v (make-vector 12 #f)))
            (vector-merge! > v (vector 9 7 5 3 1) (vector) 2 2 4)
            v))
      (test '#(#f #f  9  6  5  3  3  0 #f #f #f #f)
          (let ((v (make-vector 12 #f)))
            (vector-merge! > v (vector 9 7 5 3 1) (vector 9 6 3 0) 2 2 4)
            v))
      (test '#()
          (vector-merge > (vector) (vector) 0 0 0))
      (test '#(9 6 3 0)
          (vector-merge > (vector) (vector 9 6 3 0) 0 0 0))
      (test '#(5 3)
          (vector-merge > (vector 9 7 5 3 1) (vector) 2 4 0))
      (test '#(9 6 5 3 3 0)
          (vector-merge > (vector 9 7 5 3 1) (vector 9 6 3 0) 2 4 0))
      (test '#(#f #f #f #f #f #f #f #f #f #f #f #f)
          (let ((v (make-vector 12 #f)))
            (vector-merge! > v (vector) (vector) 2 0 0 0)
            v))
      (test '#(#f #f  9  6  3  0 #f #f #f #f #f #f)
          (let ((v (make-vector 12 #f)))
            (vector-merge! > v (vector) (vector 9 6 3 0) 2 0 0 0)
            v))
      (test '#(#f #f  5  3 #f #f #f #f #f #f #f #f)
          (let ((v (make-vector 12 #f)))
            (vector-merge! > v (vector 9 7 5 3 1) (vector) 2 2 4 0)
            v))
      (test '#(#f #f  9  6  5  3  3  0 #f #f #f #f)
          (let ((v (make-vector 12 #f)))
            (vector-merge! > v (vector 9 7 5 3 1) (vector 9 6 3 0) 2 2 4 0)
            v))
      (test '#()
          (vector-merge > (vector) (vector) 0 0 0))
      (test '#(6 3 0)
          (vector-merge > (vector) (vector 9 6 3 0) 0 0 1))
      (test '#(5 3)
          (vector-merge > (vector 9 7 5 3 1) (vector) 2 4 0))
      (test '#(6 5 3 3 0)
          (vector-merge > (vector 9 7 5 3 1) (vector 9 6 3 0) 2 4 1))
      (test '#(#f #f #f #f #f #f #f #f #f #f #f #f)
          (let ((v (make-vector 12 #f)))
            (vector-merge! > v (vector) (vector) 2 0 0 0)
            v))
      (test '#(#f #f  6  3  0 #f #f #f #f #f #f #f)
          (let ((v (make-vector 12 #f)))
            (vector-merge! > v (vector) (vector 9 6 3 0) 2 0 0 1)
            v))
      (test '#(#f #f  5  3 #f #f #f #f #f #f #f #f)
          (let ((v (make-vector 12 #f)))
            (vector-merge! > v (vector 9 7 5 3 1) (vector) 2 2 4 0)
            v))
      (test '#(#f #f  6  5  3  3  0 #f #f #f #f #f)
          (let ((v (make-vector 12 #f)))
            (vector-merge! > v (vector 9 7 5 3 1) (vector 9 6 3 0) 2 2 4 1)
            v))
      (test '#()
          (vector-merge > (vector) (vector) 0 0 0 0))
      (test '#(6 3 0)
          (vector-merge > (vector) (vector 9 6 3 0) 0 0 1 4))
      (test '#(5 3)
          (vector-merge > (vector 9 7 5 3 1) (vector) 2 4 0 0))
      (test '#(6 5 3 3 0)
          (vector-merge > (vector 9 7 5 3 1) (vector 9 6 3 0) 2 4 1 4))
      (test '#(#f #f #f #f #f #f #f #f #f #f #f #f)
          (let ((v (make-vector 12 #f)))
            (vector-merge! > v (vector) (vector) 2 0 0 0 0)
            v))
      (test '#(#f #f  6  3  0 #f #f #f #f #f #f #f)
          (let ((v (make-vector 12 #f)))
            (vector-merge! > v (vector) (vector 9 6 3 0) 2 0 0 1 4)
            v))
      (test '#(#f #f  5  3 #f #f #f #f #f #f #f #f)
          (let ((v (make-vector 12 #f)))
            (vector-merge! > v (vector 9 7 5 3 1) (vector) 2 2 4 0 0)
            v))
      (test '#(#f #f  6  5  3  3  0 #f #f #f #f #f)
          (let ((v (make-vector 12 #f)))
            (vector-merge! > v (vector 9 7 5 3 1) (vector 9 6 3 0) 2 2 4 1 4)
            v))
      (test '#()
          (vector-merge > (vector) (vector) 0 0 0 0))
      (test '#(6)
          (vector-merge > (vector) (vector 9 6 3 0) 0 0 1 2))
      (test '#(5 3)
          (vector-merge > (vector 9 7 5 3 1) (vector) 2 4 0 0))
      (test '#(6 5 3)
          (vector-merge > (vector 9 7 5 3 1) (vector 9 6 3 0) 2 4 1 2))
      (test '#(#f #f #f #f #f #f #f #f #f #f #f #f)
          (let ((v (make-vector 12 #f)))
            (vector-merge! > v (vector) (vector) 2 0 0 0 0)
            v))
      (test '#(#f #f  6 #f #f #f #f #f #f #f #f #f)
          (let ((v (make-vector 12 #f)))
            (vector-merge! > v (vector) (vector 9 6 3 0) 2 0 0 1 2)
            v))
      (test '#(#f #f  5  3 #f #f #f #f #f #f #f #f)
          (let ((v (make-vector 12 #f)))
            (vector-merge! > v (vector 9 7 5 3 1) (vector) 2 2 4 0 0)
            v))
      (test '#(#f #f  6  5  3 #f #f #f #f #f #f #f)
          (let ((v (make-vector 12 #f)))
            (vector-merge! > v (vector 9 7 5 3 1) (vector 9 6 3 0) 2 2 4 1 2)
            v))
      (test '()
          (list-delete-neighbor-dups char=? (list)))
      (test '(#\a)
          (list-delete-neighbor-dups char=? (list #\a)))
      (test '(#\a #\b #\a)
          (list-delete-neighbor-dups char=? (list #\a #\a #\a #\b #\b #\a)))
      (test '()
          (list-delete-neighbor-dups! char=? (list)))
      (test '(#\a)
          (list-delete-neighbor-dups! char=? (list #\a)))
      (test '(#\a #\b #\a)
          (list-delete-neighbor-dups! char=? (list #\a #\a #\a #\b #\b #\a)))
      (test '#()
          (let ((v (vector)))
            (vector-delete-neighbor-dups char=? v)))
      (test '#(#\a)
          (let ((v (vector #\a)))
            (vector-delete-neighbor-dups char=? v)))
      (test '#(#\a #\b #\a)
          (let ((v (vector #\a #\a #\a #\b #\b #\a)))
            (vector-delete-neighbor-dups char=? v)))
      (test '(0 #())
          (let ((v (vector)))
            (list (vector-delete-neighbor-dups! char=? v) v)))
      (test '(1 #(#\a))
          (let ((v (vector #\a)))
            (list (vector-delete-neighbor-dups! char=? v) v)))
      (test '(3 #(#\a #\b #\a #\b #\b #\a))
          (let ((v (vector #\a #\a #\a #\b #\b #\a)))
            (list (vector-delete-neighbor-dups! char=? v) v)))
      (test '#()
          (let ((v (vector)))
            (vector-delete-neighbor-dups char=? v 0)))
      (test '#(#\a)
          (let ((v (vector #\a)))
            (vector-delete-neighbor-dups char=? v 0)))
      (test '#(#\a #\b #\a)
          (let ((v (vector #\a #\a #\a #\b #\b #\a)))
            (vector-delete-neighbor-dups char=? v 0)))
      (test '(0 #())
          (let ((v (vector)))
            (list (vector-delete-neighbor-dups! char=? v 0) v)))
      (test '(1 #(#\a))
          (let ((v (vector #\a)))
            (list (vector-delete-neighbor-dups! char=? v 0) v)))
      (test '(3 #(#\a #\b #\a #\b #\b #\a))
          (let ((v (vector #\a #\a #\a #\b #\b #\a)))
            (list (vector-delete-neighbor-dups! char=? v 0) v)))
      (test '#()
          (let ((v (vector)))
            (vector-delete-neighbor-dups char=? v 0)))
      (test '#()
          (let ((v (vector #\a)))
            (vector-delete-neighbor-dups char=? v 1)))
      (test '#(#\b #\a)
          (let ((v (vector #\a #\a #\a #\b #\b #\a)))
            (vector-delete-neighbor-dups char=? v 3)))
      (test '(0 #())
          (let ((v (vector)))
            (list (vector-delete-neighbor-dups! char=? v 0) v)))
      (test '(1 #(#\a))
          (let ((v (vector #\a)))
            (list (vector-delete-neighbor-dups! char=? v 1) v)))
      (test '(5 #(#\a #\a #\a #\b #\a #\a))
          (let ((v (vector #\a #\a #\a #\b #\b #\a)))
            (list (vector-delete-neighbor-dups! char=? v 3) v)))
      (test '#()
          (let ((v (vector)))
            (vector-delete-neighbor-dups char=? v 0 0)))
      (test '#()
          (let ((v (vector #\a)))
            (vector-delete-neighbor-dups char=? v 1 1)))
      (test '#(#\b)
          (let ((v (vector #\a #\a #\a #\b #\b #\a)))
            (vector-delete-neighbor-dups char=? v 3 5)))
      (test '(0 #())
          (let ((v (vector)))
            (list (vector-delete-neighbor-dups! char=? v 0 0) v)))
      (test '(1 #(#\a))
          (let ((v (vector #\a)))
            (list (vector-delete-neighbor-dups! char=? v 0 1) v)))
      (test '(1 #(#\a))
          (let ((v (vector #\a)))
            (list (vector-delete-neighbor-dups! char=? v 1 1) v)))
      (test '(4 #(#\a #\a #\a #\b #\b #\a))
          (let ((v (vector #\a #\a #\a #\b #\b #\a)))
            (list (vector-delete-neighbor-dups! char=? v 3 5) v)))
      (let ((v (vector 0 0 0 1 1 2 2 3 3 4 4 5 5 6 6)))
        (test '(9 . #(0 0 0 1 2 3 4 5 6 4 4 5 5 6 6))
            (cons (vector-delete-neighbor-dups! = v 3) v)))
      (test "knil" (vector-find-median < (vector) "knil"))
      (test 17 (vector-find-median < (vector 17) "knil"))
      (test 12 (vector-find-median < (vector 18 1 12 14 12 5 18 2) "knil"))
      (test 23/2 (vector-find-median < (vector 18 1 11 14 12 5 18 2) "knil"))
      (test (list 12 12)
          (vector-find-median < (vector 18 1 12 14 12 5 18 2) "knil" list))
      (test (list 11 12)
          (vector-find-median < (vector 18 1 11 14 12 5 18 2) "knil" list))
      (test 7 (vector-find-median < (vector 7 6 9 3 1 18 15 7 8) "knil"))
      (test 7 (vector-find-median < (vector 7 6 9 3 1 18 15 7 8) "knil" list))
      (test 19
          (let ((v (vector 19)))
            (vector-select! < v 0)))
      (test 3
          (let ((v (vector 8 22 19 19 13 9 21 13 3 23)))
            (vector-select! < v 0)))
      (test 9
          (let ((v (vector 8 22 19 19 13 9 21 13 3 23)))
            (vector-select! < v 2)))
      (test 22
          (let ((v (vector 8 22 19 19 13 9 21 13 3 23)))
            (vector-select! < v 8)))
      (test 23
          (let ((v (vector 8 22 19 19 13 9 21 13 3 23)))
            (vector-select! < v 9)))
      (test 19
          (let ((v (vector 19)))
            (vector-select! < v 0 0)))
      (test 3
          (let ((v (vector 8 22 19 19 13 9 21 13 3 23)))
            (vector-select! < v 0 0)))
      (test 9
          (let ((v (vector 8 22 19 19 13 9 21 13 3 23)))
            (vector-select! < v 2 0)))
      (test 22
          (let ((v (vector 8 22 19 19 13 9 21 13 3 23)))
            (vector-select! < v 8 0)))
      (test 23
          (let ((v (vector 8 22 19 19 13 9 21 13 3 23)))
            (vector-select! < v 9 0)))
      (test 19
          (let ((v (vector 19)))
            (vector-select! < v 0 0 1)))
      (test 3
          (let ((v (vector 8 22 19 19 13 9 21 13 3 23)))
            (vector-select! < v 0 0 10)))
      (test 9
          (let ((v (vector 8 22 19 19 13 9 21 13 3 23)))
            (vector-select! < v 2 0 10)))
      (test 22
          (let ((v (vector 8 22 19 19 13 9 21 13 3 23)))
            (vector-select! < v 8 0 10)))
      (test 23
          (let ((v (vector 8 22 19 19 13 9 21 13 3 23)))
            (vector-select! < v 9 0 10)))
      (test 3
          (let ((v (vector 8 22 19 19 13 9 21 13 3 23)))
            (vector-select! < v 0 4 10)))
      (test 13
          (let ((v (vector 8 22 19 19 13 9 21 13 3 23)))
            (vector-select! < v 2 4 10)))
      (test 21
          (let ((v (vector 8 22 19 19 13 9 21 13 3 23)))
            (vector-select! < v 4 4 10)))
      (test 23
          (let ((v (vector 8 22 19 19 13 9 21 13 3 23)))
            (vector-select! < v 5 4 10)))
      (test 3
          (let ((v (vector 8 22 19 19 13 9 21 13 3 23)))
            (vector-select! < v 0 4 10)))
      (test 13
          (let ((v (vector 8 22 19 19 13 9 21 13 3 23)))
            (vector-select! < v 2 4 10)))
      (test 13
          (let ((v (vector 8 22 19 19 13 9 21 13 3 23)))
            (vector-select! < v 3 4 10)))
      (test 21
          (let ((v (vector 8 22 19 19 13 9 21 13 3 23)))
            (vector-select! < v 4 4 10)))
      (test 23
          (let ((v (vector 8 22 19 19 13 9 21 13 3 23)))
            (vector-select! < v 5 4 10)))
      (test 9
          (let ((v (vector 8 22 19 19 13 9 21 13 3 23)))
            (vector-select! < v 0 4 8)))
      (test 13
          (let ((v (vector 8 22 19 19 13 9 21 13 3 23)))
            (vector-select! < v 1 4 8)))
      (test 13
          (let ((v (vector 8 22 19 19 13 9 21 13 3 23)))
            (vector-select! < v 2 4 8)))
      (test 21
          (let ((v (vector 8 22 19 19 13 9 21 13 3 23)))
            (vector-select! < v 3 4 8)))
      (test 17.0
          (vector-find-median < '#(18. 11. 20. 15. 16. 9. 24. 15. 21. 20.) 0))
      (test-end))))