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
|
|
|
|
2024-05-28 03:33:01 +00:00
|
|
|
(test find-symbols
|
2024-05-30 03:55:13 +00:00
|
|
|
(is (equal '(hsx/builtin:div '(:div "div")
|
2024-05-29 02:47:48 +00:00
|
|
|
div
|
|
|
|
(hsx/builtin:div
|
2024-05-30 03:55:13 +00:00
|
|
|
'div
|
|
|
|
(hsx/builtin:div)
|
|
|
|
:div)
|
|
|
|
"div")
|
2024-05-29 02:47:48 +00:00
|
|
|
(macroexpand-1
|
2024-05-30 03:55:13 +00:00
|
|
|
'(hsx (div '(:div "div")
|
2024-05-28 07:13:41 +00:00
|
|
|
div
|
|
|
|
(div
|
2024-05-30 03:55:13 +00:00
|
|
|
'div
|
|
|
|
(div)
|
|
|
|
:div)
|
|
|
|
"div"))))))
|