marcuskammer/dev.metalisp.sbt
1
1
Fork 0
Code Issues 1 Pull requests Projects 1 Releases Packages Wiki Activity Actions

Fix indentation of tests

Browse source
This commit is contained in:
Marcus Kammer 2023-08-12 12:04:04 +02:00
parent 5d55563481
commit df42e3be89
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 57 additions and 57 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

114
tests/component/form.lisp
View file

@ -12,74 +12,74 @@
(in-package :cl-sbt/tests/form)
(deftest test-simple-form-control
(let ((result (spinneret:with-html-string (ctrl (:id "exampleFormControlInput1" :label "Email address" :type "email" :placeholder "name@example.com")))))
(testing "Generates correct HTML for a simple form"
(ok (search "for=exampleFormControlInput1" result))
(ok (search "class=form-label" result))
(ok (search "type=email" result))
(ok (search "class=form-control" result))
(ok (search "id=exampleFormControlInput1" result))
(ok (search "placeholder=name@example.com" result)))))
(let ((result (spinneret:with-html-string (ctrl (:id "exampleFormControlInput1" :label "Email address" :type "email" :placeholder "name@example.com")))))
(testing "Generates correct HTML for a simple form"
(ok (search "for=exampleFormControlInput1" result))
(ok (search "class=form-label" result))
(ok (search "type=email" result))
(ok (search "class=form-control" result))
(ok (search "id=exampleFormControlInput1" result))
(ok (search "placeholder=name@example.com" result)))))
(deftest test-simple-form-control-with-text
(let ((result (spinneret:with-html-string (ctrl (:id "exampleFormControlInput1" :label "Email address" :type "email" :placeholder "name@example.com" :text "Your password must be 8-20 characters long" :describeby "passwordHelpBlock")))))
(testing "Generates correct HTML for a simple form with text"
(ok (search "for=exampleFormControlInput1" result))
(ok (search "class=form-label" result))
(ok (search "type=email" result))
(ok (search "class=form-control" result))
(ok (search "id=exampleFormControlInput1" result))
(ok (search "placeholder=name@example.com" result))
(ok (search "class=form-text" result))
(ok (search "Your password must" result))
(ok (search "aria-describeby=passwordHelpBlock" result))
(ok (search "id=passwordHelpBlock" result)))))
(let ((result (spinneret:with-html-string (ctrl (:id "exampleFormControlInput1" :label "Email address" :type "email" :placeholder "name@example.com" :text "Your password must be 8-20 characters long" :describeby "passwordHelpBlock")))))
(testing "Generates correct HTML for a simple form with text"
(ok (search "for=exampleFormControlInput1" result))
(ok (search "class=form-label" result))
(ok (search "type=email" result))
(ok (search "class=form-control" result))
(ok (search "id=exampleFormControlInput1" result))
(ok (search "placeholder=name@example.com" result))
(ok (search "class=form-text" result))
(ok (search "Your password must" result))
(ok (search "aria-describeby=passwordHelpBlock" result))
(ok (search "id=passwordHelpBlock" result)))))
(deftest test-simple-form-control-2
(let ((result (spinneret:with-html-string (ctrl (:id "exampleFormControlInput1" :label "Email address" :type "email" :placeholder "name@example.com") (:id "form1" :label "Another Form" :type "email" :placeholder "name@example.com")))))
(testing "Generates correct HTML for a simple form with more than one entries"
(ok (search "for=exampleFormControlInput1" result))
(ok (search "class=form-label" result))
(ok (search "type=email" result))
(ok (search "class=form-control" result))
(ok (search "id=exampleFormControlInput1" result))
(ok (search "placeholder=name@example.com" result))
(ok (search "for=form1" result))
(ok (search "Another Form" result)))))
(let ((result (spinneret:with-html-string (ctrl (:id "exampleFormControlInput1" :label "Email address" :type "email" :placeholder "name@example.com") (:id "form1" :label "Another Form" :type "email" :placeholder "name@example.com")))))
(testing "Generates correct HTML for a simple form with more than one entries"
(ok (search "for=exampleFormControlInput1" result))
(ok (search "class=form-label" result))
(ok (search "type=email" result))
(ok (search "class=form-control" result))
(ok (search "id=exampleFormControlInput1" result))
(ok (search "placeholder=name@example.com" result))
(ok (search "for=form1" result))
(ok (search "Another Form" result)))))
(deftest test-select-default
(let ((result (spinneret:with-html-string (select () (select-option (:content "One" :value 1) (:content "Two" :value 2) (:content "Three" :value 3))))))
(testing "Generates correct HTML for select element"
(ok (search "class=form-select" result))
(ok (search "aria-label=\"Default select example\"" result))
(ok (search "option value=1" result))
(ok (search "option value=2" result))
(ok (search "option value=3" result)))))
(let ((result (spinneret:with-html-string (select () (select-option (:content "One" :value 1) (:content "Two" :value 2) (:content "Three" :value 3))))))
(testing "Generates correct HTML for select element"
(ok (search "class=form-select" result))
(ok (search "aria-label=\"Default select example\"" result))
(ok (search "option value=1" result))
(ok (search "option value=2" result))
(ok (search "option value=3" result)))))
(deftest test-select-size-lg
(let ((result (spinneret:with-html-string (select (:size "lg") (select-option (:content "One" :value 1))))))
(testing "Generates correct HTML for select element"
(ok (search "class=\"form-select form-select-lg\"" result))
(ok (search "aria-label=\"Default select example\"" result))
(ok (search "option value=1" result)))))
(let ((result (spinneret:with-html-string (select (:size "lg") (select-option (:content "One" :value 1))))))
(testing "Generates correct HTML for select element"
(ok (search "class=\"form-select form-select-lg\"" result))
(ok (search "aria-label=\"Default select example\"" result))
(ok (search "option value=1" result)))))
(deftest test-select-size-sm
(let ((result (spinneret:with-html-string (select (:size "sm") (select-option (:content "One" :value 1))))))
(testing "Generates correct HTML for select element"
(ok (search "class=\"form-select form-select-sm\"" result))
(ok (search "aria-label=\"Default select example\"" result))
(ok (search "option value=1" result)))))
(let ((result (spinneret:with-html-string (select (:size "sm") (select-option (:content "One" :value 1))))))
(testing "Generates correct HTML for select element"
(ok (search "class=\"form-select form-select-sm\"" result))
(ok (search "aria-label=\"Default select example\"" result))
(ok (search "option value=1" result)))))
(deftest test-select-size-multiple
(let ((result (spinneret:with-html-string (select (:size "multiple") (select-option (:content "One" :value 1))))))
(testing "Generates correct HTML for select element"
(ok (search "class=form-select" result))
(ok (search "multiple" result))
(ok (search "option value=1" result)))))
(let ((result (spinneret:with-html-string (select (:size "multiple") (select-option (:content "One" :value 1))))))
(testing "Generates correct HTML for select element"
(ok (search "class=form-select" result))
(ok (search "multiple" result))
(ok (search "option value=1" result)))))
(deftest test-select-size-number
(let ((result (spinneret:with-html-string (select (:size 3) (select-option (:content "One" :value 1))))))
(testing "Generates correct HTML for select element"
(ok (search "class=form-select" result))
(ok (search "size=3" result))
(ok (search "option value=1" result)))))
(let ((result (spinneret:with-html-string (select (:size 3) (select-option (:content "One" :value 1))))))
(testing "Generates correct HTML for select element"
(ok (search "class=form-select" result))
(ok (search "size=3" result))
(ok (search "option value=1" result)))))