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

Issue #361 - Added tests

Browse source
This commit is contained in:
Justin Ethier 2020-03-05 20:53:35 -05:00
parent 1773f9d767
commit 12489dcea5
1 changed files with 23 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
tests/unit-tests.scm
View file

@ -320,10 +320,33 @@
(test 1 2 3)
(and ''test ''test2))))
(define-syntax indirect-def
(syntax-rules ()
( (indirect-def x y)
(begin
(define z y)
(define x z) ) ) ) )
(define x 42)
(assert:equal "macro: test2" (test2 1 2 3) 'test2)
(assert:equal "macro: test" (test 1 2 3) 3)
(assert:equal "macro: eval test" (eval '(test 1 2 x)) x)
(assert:equal "macro: define syntax indirect-def"
(indirect-def a 3)
'(3))
(assert:equal "macro: let syntax indirect-def"
(let-syntax
( (indirect-def
(syntax-rules ()
( (indirect-def x y)
(begin
(define z y)
(define x z) ) ) ) ) )
(indirect-def a 3)
a)
'3)
;; END macros
;; Record types