msyds/prototype-r7rs-expander
1
0 Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

더 점점점 좋다

Browse Source
This commit is contained in:
msyds committed 2026-09-24 07:35:34 -06:00
1 parent 3f825c2750
commit 2ae6f1b3e5
3 files changed
+50 -12
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

test/expand/syntax_rules_test.clj
+31 -2
View File
@@ -9,6 +9,15 @@
(sut/unify* 'x '(1 2 3))))
(t/is (= '{x 1 y 2}
(sut/unify* '(x y) '(1 2))))
(t/testing "literals"
(t/is (= {}
(sut/unify* 123 123)))
(t/is (= nil
(sut/unify* 123 456)))
(t/is (= nil
(sut/unify* true 456)))
(t/is (= {}
(sut/unify* true true))))
(t/is (= '{x [:ellipsis (1 2 3 4)]}
(sut/unify* '(x ...) '(1 2 3 4))))
(t/is (= '{x [:ellipsis (1 3)]
@@ -42,7 +51,27 @@
(sut/transcribe* 'x '(x y) '(4 5))))
(t/is (= '(3 2 1)
(sut/transcribe* '(z y x) '(x y z) '(1 2 3))))
(t/is (= '(1 2 3)
(sut/transcribe* '(x ...)
'(x ...)
'(1 2 3))))
(t/is (= 123
(sut/transcribe* 123
'_
'(1 2 3 4 5))))
(t/is (= '(111 3 4 5)
(sut/transcribe* '(111 x ...)
'(1 2 x ...)
'(1 2 3 4 5))))
(t/is (= '(111 3 4 5 333)
(sut/transcribe* '(111 x ... 333)
'(1 2 x ...)
'(1 2 3 4 5))))
(t/is (= '(3 4 5 3 4 5)
(sut/transcribe* '(x ... x ...)
'(1 2 x ...)
'(1 2 3 4 5))))
(t/is (= '(1 3 6)
(sut/transcribe* '(x ...)
'((x _ ...) ...)
'((1 2) (3 4 5) (6 7 8 9))))))
'((x _ ...) ...)
'((1 2) (3 4 5) (6 7 8 9))))))