guile-ml/test/vector-utils-test.scm

(use-modules
 ;; SRFI 64 for unit testing facilities
 (srfi srfi-64)
 ;; SRFI 43 for additional vector operations
 (srfi srfi-43)
 ;; utils - the code to be tested
 (utils vector))


(test-begin "vector-utils-test")


(test-group
 "vector-take-except-ref"

 (test-equal "vector-take-except-ref can work with reference 0"
   #(1 2 3 4 5)
   (vector-take-except-ref #(0 1 2 3 4 5) 0))

 (test-equal "vector-take-except-ref can work with reference in the middle"
   #(0 1 2 4 5)
   (vector-take-except-ref #(0 1 2 3 4 5) 3))

 (test-equal "vector-take-except-ref can work with reference at the end"
   #(0 1 2 3 4)
   (vector-take-except-ref #(0 1 2 3 4 5) 5)))


(test-end "vector-utils-test")