(defpackage #:hsx-test/hsx
  (:use #:cl
        #:fiveam
        #:hsx/hsx)
  (:import-from #:hsx/builtin))
(in-package #:hsx-test/hsx)

(def-suite hsx-test)
(in-suite hsx-test)

(test find-symbols
  (is (equal '(hsx/builtin:div
               div
               (hsx/builtin:div
                div
                (hsx/builtin:div))
               div)
             (macroexpand-1
              '(hsx (div
                      div
                      (div
                        div
                        (div))
                      div))))))