artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

psyntax: More tests.

Browse source 
* tests/psyntax.test: Add tests.
This commit is contained in:
Jan Nieuwenhuizen 2016-10-30 23:32:33 +01:00
parent f1ae9edd0d
commit 019ca90109
1 changed files with 20 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
tests/psyntax.test
View file

@ -140,4 +140,24 @@ exit $?
(sre:when #t "if not now, then?"))) (sre:when #t "if not now, then?")))
"if not now, then?")) "if not now, then?"))
(pass-if-equal "syntax-rules plus"
(+ 1 2 3)
(let ()
(define-syntax plus
(syntax-rules ()
((plus x ...) (+ x ...))))
(plus 1 2 3)))
(when guile?
(pass-if-equal "macro with quasisyntax"
'("foo" "foo")
(let ()
(define-syntax string-let
(lambda (stx)
(syntax-case stx ()
((_ id body ...)
#`(let ((id #,(symbol->string (syntax->datum #'id))))
body ...)))))
(string-let foo (list foo foo)))))
(result 'report) (result 'report)