(define-test-module (test module sph vector)
  (import
    (sph vector))
  (test-execute-procedures-lambda
    (vector-append
      (#(1 2 3) #(4 5 6))
      #(1 2 3 4 5 6))
    (vector-range
      (#(1 2 3 4 5 6) 1 4)
      #(2 3 4 5)
      (#(1 2 3 4 5 6) 1)
      #(2 3 4 5 6)
      (#(1 2 3 4 5 6) 0 5)
      #(1 2 3 4 5 6))
    (vector-select
      (#(1 2 3 4 5 6) #(1 3 4))
      #(2 4 5))))