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

Fixed vector tests

Browse source
This commit is contained in:
Justin Ethier 2015-06-08 22:39:31 -04:00
parent 21d9771159
commit f149098dd1
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
tests/unit-tests.scm
View file

@ -242,13 +242,12 @@
;; Vectors ;; Vectors
TODO:
(assert:equal "vector->list" (vector->list #(dah dah didah)) (assert:equal "vector->list" (vector->list #(dah dah didah))
'(dah dah didah)) '(dah dah didah))
;(vector->list .#(dah dah didah) 1 2) ;(vector->list .#(dah dah didah) 1 2)
;=. (dah) ;=. (dah)
;(list->vector .(dididit dah)) (assert:equal "list->vector" (list->vector '(dididit dah))
;=. #(dididit dah) #(dididit dah))
(assert:equal "string->vector" (string->vector "ABC") #(#\A #\B #\C)) (assert:equal "string->vector" (string->vector "ABC") #(#\A #\B #\C))
(assert:equal "vector->string" (vector->string #(#\1 #\2 #\3)) "123") (assert:equal "vector->string" (vector->string #(#\1 #\2 #\3)) "123")