2024-05-25 16:26:26 +00:00
|
|
|
(defpackage #:hsx-test/hsx
|
|
|
|
|
(:use #:cl
|
|
|
|
|
#:fiveam
|
2024-05-28 03:33:01 +00:00
|
|
|
#:hsx/hsx)
|
|
|
|
|
(:import-from #:hsx/builtin))
|
2024-05-25 16:26:26 +00:00
|
|
|
(in-package #:hsx-test/hsx)
|
|
|
|
|
|
2024-05-28 03:33:01 +00:00
|
|
|
|
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-28 07:13:41 +00:00
|
|
|
(is (equal (macroexpand-1
|
|
|
|
|
'(hsx (div
|
|
|
|
|
div
|
|
|
|
|
(div
|
|
|
|
|
div
|
|
|
|
|
(div))
|
|
|
|
|
div)))
|
|
|
|
|
'(hsx/builtin:div
|
|
|
|
|
div
|
|
|
|
|
(hsx/builtin:div
|
|
|
|
|
div
|
|
|
|
|
(hsx/builtin:div))
|
|
|
|
|
div))))
|
