Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-12 23:37:38 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added unit tests

Browse source
This commit is contained in:
Justin Ethier 2015-07-28 21:29:55 -04:00
parent 6c277a724b
commit 8ebf39d584
1 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
tests/unit-tests.scm
View file

@ -142,6 +142,12 @@
(assert:equal "strings" d "(\"abc\")") ;; Test GC (assert:equal "strings" d "(\"abc\")") ;; Test GC
(set! a "hello 2") (set! a "hello 2")
(assert:equal "strings" a "hello 2") (assert:equal "strings" a "hello 2")
(define (f) (make-string 3 #\*))
(define (g) "***")
(assert:equal "string-set!" (string-set! (f) 0 #\?) "?**")
(define a "12345")
(define b (string-copy "abcde"))
(assert:equal "string-copy!" (string-copy! b 1 a 0 2) "a12de")
;; Recursion example: ;; Recursion example:
(letrec ((fnc (lambda (i) (letrec ((fnc (lambda (i)
@ -245,6 +251,8 @@
;; Vectors ;; Vectors
(assert:equal "vector-ref" (vector-ref #(1 1 2 3 5 8 13 21) 5) 8)
(assert:equal "vector-set!" (vector-set! #(0 '(2 2 2 2) "anna") 1 "test") #(0 "test" "anna"))
(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)