86 lines
1.7 KiB
Scheme
86 lines
1.7 KiB
Scheme
|
; test vector methods of TS
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
; make-vector
|
||
|
|
|
||
|
|
; make-vector succeeds
|
||
|
|
(assert '(make-vector 25))
|
||
|
|
; Note vector is anonymous and will be garbage collected
|
||
|
|
|
||
|
|
; make-vector of size 0 succeeds
|
||
|
|
(assert '(make-vector 0))
|
||
|
|
|
||
|
|
(define testVector (make-vector 25))
|
||
|
|
|
||
|
|
; make-vector yields a vector
|
||
|
|
(assert `(vector? ,testVector))
|
||
|
|
|
||
|
|
; make-vector yields a vector of given length
|
||
|
|
(assert `(= (vector-length ,testVector)
|
||
|
|
25))
|
||
|
|
|
||
|
|
; make-vector initializes each element to empty list
|
||
|
|
(assert `(equal?
|
||
|
|
(vector-ref ,testVector 0)
|
||
|
|
'()))
|
||
|
|
|
||
|
|
|
||
|
|
; other vector construction methods
|
||
|
|
|
||
|
|
(assert '(equal?
|
||
|
|
(vector 'a 'b 'c)
|
||
|
|
#(a b c)))
|
||
|
|
|
||
|
|
(assert '(equal?
|
||
|
|
(list->vector '(dididit dah))
|
||
|
|
#(dididit dah)))
|
||
|
|
|
||
|
|
|
||
|
|
; fill
|
||
|
|
|
||
|
|
; fill succeeds
|
||
|
|
(assert `(vector-fill! ,testVector 99))
|
||
|
|
|
||
|
|
; fill effective
|
||
|
|
(assert `(=
|
||
|
|
(vector-ref ,testVector 0)
|
||
|
|
99))
|
||
|
|
|
||
|
|
|
||
|
|
; referencing out of bounds
|
||
|
|
|
||
|
|
; past end fails
|
||
|
|
(assert-error `(vector-ref ,testVector 25)
|
||
|
|
"vector-ref: out of bounds:")
|
||
|
|
; error msg omits repr of atom
|
||
|
|
|
||
|
|
; negative index fails
|
||
|
|
(assert-error `(vector-ref ,testVector -1)
|
||
|
|
"vector-ref: argument 2 must be: non-negative integer")
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
; undefined vector ops in TS
|
||
|
|
|
||
|
|
; make-initialized-vector
|
||
|
|
(assert-error '(equal?
|
||
|
|
(make-initialized-vector 5 (lambda (x) (* x x)))
|
||
|
|
#(0 1 4 9 16))
|
||
|
|
"eval: unbound variable:")
|
||
|
|
; error msg omits prefix "Error: " and suffix "make-initialized-vector"
|
||
|
|
|
||
|
|
; vector-copy
|
||
|
|
; equals the original
|
||
|
|
(assert-error
|
||
|
|
`(equal?
|
||
|
|
(vector-copy ,testVector)
|
||
|
|
,testVector)
|
||
|
|
"eval: unbound variable:")
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
