shithub: sl

Info  •  Files  •  Log  •  Branches

unit tests: add quasiquote tests from Julia

--- a/test/unittest.lsp

+++ b/test/unittest.lsp

@@ -303,5 +303,8 @@

 (assert-fail (eval '(set! (car (cons 1 2)) 3)))

+(assert (equal? `(a `(b c)) '(a (quasiquote (b c)))))

+(assert (equal? ````x '```x))

+

 (princ "all tests pass\n")

 #t

-- 

⑨