pkulev/sex
1
0
Fork 0
forked from alex-eg/sex
Code Pull Requests Activity

fix tests

Browse Source
This commit is contained in:
alex-eg
2025-10-01 16:14:02 +03:00
committed by Pavel Kulyov
parent 77845d24c7
commit fd61e753dc
1 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
tests/semen.scm
View File

@@ -1,3 +1,5 @@
(import srfi-69)
(define print-str-fn (define print-str-fn
'(fn void print-str ((string s)) '(fn void print-str ((string s))
(printf "%s" s))) (printf "%s" s)))
@@ -33,8 +35,11 @@
;;; Macro expansion ;;; Macro expansion
(test 'a (semen-walk-form 'a identity)) (define (form-identity form env)
(test '(a b c) (semen-walk-form '(a b c) identity)) form)
(test 'a (semen-walk-form 'a form-identity (make-hash-table)))
(test '(a b c) (semen-walk-form '(a b c) form-identity (make-hash-table)))
(test 'a (semen-macro-expand 'a)) (test 'a (semen-macro-expand 'a))
(test '(a b c) (semen-macro-expand '(a b c))) (test '(a b c) (semen-macro-expand '(a b c)))