(define-module (test html caltable)
  :use-module (srfi srfi-64)
  :use-module (srfi srfi-64 test-error)
  :use-module (srfi srfi-88)
  :use-module (calp translation)

  :use-module (calp html components)
  )

(test-equal '(*TOP* (*PI* xml "version=\"1.0\" encoding=\"utf-8\"")
                    (html (@ (xmlns "http://www.w3.org/1999/xhtml"))
                          body))
  (xhtml-doc body))

(test-equal '(*TOP* (*PI* xml "version=\"1.0\" encoding=\"utf-8\"")
                    (html (@ (xmlns "http://www.w3.org/1999/xhtml"))
                          (b "Hello, World!")))
  (xhtml-doc ,'(b "Hello, World!")))

(test-equal
    '(*TOP* (*PI* xml "version=\"1.0\" encoding=\"utf-8\"")
            (html (@ (xmlns "http://www.w3.org/1999/xhtml")
                     (lang sv))
                  body))
    (xhtml-doc (@ (lang sv)) body))


;; TODO Slider not tested, due to depending on gensyms, and really needing
;;      integration testing to be worth anything.


(test-equal
    '(button (@ (class "btn") (onclick "onclick")) "Body")
  (btn onclick: "onclick" "Body"))

(test-equal "href button, without body"
    '(a (@ (class "btn") (href "href")) #f)
  (btn href: "href"))

(test-error 'wrong-type-arg
  (btn href: "a" onclick: "b"))

(test-equal "btn no specifier, but class"
  '(button (@ (class "btn test")) "body")
  (btn class: '("test") "body"))

;; tabset
;; with-label

(test-equal '(link (@ (type "text/css") (rel "stylesheet") (href "style.css")))
  (include-css "style.css"))

(test-equal
    '(link (@ (type "text/css") (rel "stylesheet") (href "style.css") (class "test")))
  (include-css "style.css" '(class "test")))

(test-equal
    '(link (@ (type "text/css") (rel "alternate stylesheet") (href "style.css")))
  (include-alt-css "style.css"))