#lang scheme
(require scheme/package
         tests/eli-tester
         "main.ss")

(package-begin
 (define v1 (make-spvector #f #f #f))
 (spvector-set v1 1 #t))

(package-begin
 (define v1 (make-spvector #f #f #f))
 (define v2 (spvector-set v1 1 #t))
 (test
  (spvector-ref v1 1) => #f
  (spvector-ref v2 1) => #t))

(package-begin
 (test
  (for/list ([i (make-spvector 1 2 3)])
    i) => (list 1 2 3)))

(package-begin
 (define v1 (make-spvector #f #f #f))
 (define v2 (spvector-set v1 1 #t))
 (test
  (spvector-set v1 1 #t) =error> "not current"))