oreodave/cantedraw
Archived
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add unit tests for lib.macros.-<>

Browse Source
This commit is contained in:
Aryadev Chavali
2025-02-21 13:56:56 +00:00
parent f908ed5952
commit 0f8b5185fd
1 changed files with 18 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
tests/macros.lisp
View File

@@ -44,3 +44,21 @@
(is equal `(,a (,b (,c ,d))) (macroexpand `(->> ,d (,c) (,b) (,a)))) (is equal `(,a (,b (,c ,d))) (macroexpand `(->> ,d (,c) (,b) (,a))))
(is equal `(,a (,b (,c ,d))) (macroexpand `(->> ,d ,c ,b ,a)))) (is equal `(,a (,b (,c ,d))) (macroexpand `(->> ,d ,c ,b ,a))))
(is string= "Hello, World!" (->> "world!" (format nil "hello, ~a") string-capitalize))) (is string= "Hello, World!" (->> "world!" (format nil "hello, ~a") string-capitalize)))
(define-test (macro-test "-<>")
(true (null (-<>)))
(let ((a (gensym))
(b (gensym))
(c (gensym))
(d (gensym)))
(is eq a (-<> a))
(is equal `(,a ,b) (macroexpand `(-<> ,b (,a))))
(is equal `(,a ,b) (macroexpand `(-<> ,b ,a)))
(is equal `(,a (,b ,c)) (macroexpand `(-<> ,c (,b) (,a))))
(is equal `(,a (,b ,c)) (macroexpand `(-<> ,c ,b ,a)))
(is equal `(,a ,b ,c) (macroexpand `(-<> ,b (,a ,c))))
(is equal `(,a (,b (,c ,d))) (macroexpand `(-<> ,d (,c) (,b) (,a))))
(is equal `(,a (,b (,c ,d))) (macroexpand `(-<> ,d ,c ,b ,a)))
(is equal `(,a (,b ,c) ,d) (macroexpand `(-<> ,c (,b) (,a ,d)))))
(is equal 69 (-<> 489 (- 420)))
(is string= "HELLO" (-<> "Hello World!" (subseq 0 5) string-upcase)))