Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-21 22:59:16 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Additional vector test cases

Browse source
This commit is contained in:
Justin Ethier 2015-06-04 21:19:42 -04:00
parent 4c8b8cc13e
commit 9ffeb29ec6
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
test.scm
View file

@ -4,12 +4,14 @@
(write `(read ,(+ 1 2 3))) (write `(read ,(+ 1 2 3)))
(write `(read ,(list 1 2 3))) (write `(read ,(list 1 2 3)))
(write `(read ,@(list 1 2 3))) (write `(read ,@(list 1 2 3)))
;`(read , ;;`(read ,
(write (make-vector 4 #t)) (write (make-vector 4 #t))
(write (string->list "abc")) (write (string->list "abc"))
(write (apply append '((1) (2) (3)))) (write (apply append '((1) (2) (3))))
(write #(a)) (write #(a))
(write #(1 2 3)) (write #(1 2 3))
(write #((1) (2) (3))) (write #((1) (2) (3)))
(write (eq? #(1) #(1)))
(write (equal? #(1 1 1) (make-vector 3 1)))
(write '#(1)) (write '#(1))
(write '#()) (write '#())