Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-16 09:17:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Adding unit tests for vectors

Browse source
This commit is contained in:
Justin Ethier 2015-06-05 01:38:31 -04:00
parent 41b14f14ea
commit b456a94de6
1 changed files with 24 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
tests/unit-tests.scm
View file

@ -239,6 +239,30 @@
(assert:equal "Access compiled var mutated by eval" x 'mutated-x) (assert:equal "Access compiled var mutated by eval" x 'mutated-x)
;; END eval ;; END eval
;; Vectors
TODO:
(assert:equal "vector->list" (vector->list #(dah dah didah))
'(dah dah didah))
;(vector->list .#(dah dah didah) 1 2)
;=. (dah)
;(list->vector .(dididit dah))
;=. #(dididit dah)
(assert:equal "string->vector" (string->vector "ABC") #(#\A #\B #\C))
(assert:equal "vector->string" (vector->string #(#\1 #\2 #\3)) "123")
(define a (vector 1 2 3 4 5))
(define b (vector 10 20 30 40 50))
(vector-copy! b 1 a 0 2)
(assert "vector-copy!" (equal? b #(10 1 2 40 50)))
(define a (vector 1 2 3 4 5))
(vector-fill! a 'smash 2 4)
(assert:equal "vector-fill!" a #(1 2 smash smash 5))
;; END vectors
; TODO: use display, output without surrounding quotes ; TODO: use display, output without surrounding quotes
(write (list *num-passed* " tests passed with no errors")) (write (list *num-passed* " tests passed with no errors"))
;; ;;