hsx/tests/hsx.lisp

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

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

(test empty-hsx
  (is (equal (macroexpand-1
              '(div))
             '(create-element
               "div"
               'nil))))

(test hsx-with-props
  (is (equal (macroexpand-1
              '(div :prop1 "value1" :prop2 "value2"))
             '(create-element
               "div"
               '(:prop1 "value1" :prop2 "value2")))))

(test hsx-with-children
  (is (equal (macroexpand-1
              '(div
                "child1"
                "child2"))
             '(create-element
               "div"
               'nil
               "child1"
               "child2"))))

(test hsx-with-props-and-children
  (is (equal (macroexpand-1
              '(div :prop1 "value1" :prop2 "value2"
                "child1"
                "child2"))
             '(create-element
               "div"
               '(:prop1 "value1" :prop2 "value2")
               "child1"
               "child2"))))

(defcomp comp (&key prop1 prop2 children)
  (div
    prop1
    prop2
    children))

(test component-hsx
  (is (equal (macroexpand-1
              '(comp :prop1 "value1" :prop2 "value2"
                "child1"
                "child2"))
             '(create-element
               #'%comp
               '(:prop1 "value1" :prop2 "value2")
               "child1"
               "child2"))))