dev.metalisp.sbt/tests/component/form.lisp

(defpackage dev.metalisp.sbt/tests/component/form
  (:use :cl
        :dev.metalisp.sbt/component/form
        :rove))

(in-package :dev.metalisp.sbt/tests/component/form)

(deftest test-ctrl-number
  (let ((result (spinneret:with-html-string (ctrl "number" "testform" "Birth Date"))))
    (testing "Generates a basic Bootstrap form control with a label."
      (ok (search "type=number" result)))))

(deftest test-ctrl-email
  (let ((result (spinneret:with-html-string (ctrl "email" "testform" "E-Mail"))))
    (testing "Generates a basic Bootstrap form control with a label."
      (ok (search "type=email" result)))))

(deftest test-ctrl-tel
  (let ((result (spinneret:with-html-string (ctrl "tel" "testform" "Phone number"))))
    (testing "Generates a basic Bootstrap form control with a label."
      (ok (search "type=tel" result)))))

(deftest test-ctrl-wrong-type
  (testing "Asserts error is signaled for invalid type."
    (ok (signals (ctrl "wrong-type" "foo" "bar")))
    (ok (signals (ctrl "telephone" "foo" "bar")))
    (ok (signals (ctrl "e-mail" "foo" "bar")))))

(deftest test-select-default
  (let ((result (spinneret:with-html-string (combo () "Red" "Green" "Blue"))))
    (testing "Generates correct HTML for select element"
      (ok (search "class=form-select" result))
      (ok (search "option value=red" result))
      (ok (search "option value=green" result))
      (ok (search "option value=blue" result)))))

(deftest test-default-search-form
  (let ((result (spinneret:with-html-string (search-form))))
    (testing "Generates correct HTML for search form"
      (ok (search "class=\"form-control me-2\"" result))
      (ok (search "type=search" result))
      (ok (search "title=Search" result))
      (ok (search "type=submit" result))
      (ok (search "class=\"btn btn-outline-success\"" result))
      (ok (search "<input" result))
      (ok (search "<button" result)))))

(deftest test-checkable
  (let ((result (spinneret:with-html-string (checkable "radio" "age" "18-24"))))
    (testing "Generates correct HTML for checkable"
      (ok (search "class=\"form-check-label group-age\"" result))
      (ok (search "value=18-24" result))
      (ok (search "type=radio" result))
      (ok (search "name=group-age" result)))))