hsx/tests/hsx.lisp

26 lines
608 B
Common Lisp
Raw Normal View History

2024-05-25 16:26:26 +00:00
(defpackage #:hsx-test/hsx
(:use #:cl
#:fiveam
2024-06-01 01:34:36 +00:00
#:hsx/hsx))
2024-05-25 16:26:26 +00:00
(in-package #:hsx-test/hsx)
2024-05-26 03:26:09 +00:00
(def-suite hsx-test)
(in-suite hsx-test)
2024-05-27 02:10:11 +00:00
(test find-symbols
(is (equal '(hsx/builtin:div '(:div "div")
2024-05-29 02:47:48 +00:00
div
(hsx/builtin:div
'div
(hsx/builtin:div)
:div)
"div")
2024-05-29 02:47:48 +00:00
(macroexpand-1
'(hsx (div '(:div "div")
2024-05-28 07:13:41 +00:00
div
(div
'div
(div)
:div)
"div"))))))