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

Added quasi-quote tests

Browse source
This commit is contained in:
Justin Ethier 2015-05-29 18:28:06 -04:00
parent 8ddce6b5bc
commit f6c615ba30
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
tests/unit-tests.scm
View file

@ -17,6 +17,11 @@
(assert "Testing assert function" #t) (assert "Testing assert function" #t)
(assert "Testing assert function" 1) (assert "Testing assert function" 1)
;; Quotation / Quasi-quotes
(assert:equal "quasi-quote #1" `(read ,(+ 1 2 3)) '(read 6))
(assert:equal "quasi-quote #2" `(read ,(list 1 2 3)) '(read (1 2 3)))
(assert:equal "quasi-quote splicing" `(read ,@(list 1 2 3)) '(read 1 2 3))
;; Lists ;; Lists
(define l (list 'a 'b 'c)) (define l (list 'a 'b 'c))
; TODO: seems to break eval below, is there a GC problem with a circular list? ; TODO: seems to break eval below, is there a GC problem with a circular list?