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

Update tests positions

Browse source
This commit is contained in:
Marcus Kammer 2023-08-14 16:29:30 +02:00
parent 92cf6d8d67
commit abaa5c2ad4
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 10 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
tests/component/form.lisp
View file

@ -48,6 +48,16 @@
(ok (search "for=form1" result)) (ok (search "for=form1" result))
(ok (search "Another Form" result))))) (ok (search "Another Form" result)))))
(deftest test-simple-form-control-cols
(let ((result (spinneret:with-html-string (ctrl-col (:id "exampleFormControlInput1" :label "Email address" :type "email" :placeholder "name@example.com")))))
(testing "Generates correct HTML for a simple form using cols"
(ok (search "for=exampleFormControlInput1" result))
(ok (search "class=col-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-select-default (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)))))) (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" (testing "Generates correct HTML for select element"
@ -84,13 +94,3 @@
(ok (search "class=form-select" result)) (ok (search "class=form-select" result))
(ok (search "size=3" result)) (ok (search "size=3" result))
(ok (search "option value=1" result))))) (ok (search "option value=1" result)))))
(deftest test-simple-form-control-cols
(let ((result (spinneret:with-html-string (ctrl-col (:id "exampleFormControlInput1" :label "Email address" :type "email" :placeholder "name@example.com")))))
(testing "Generates correct HTML for a simple form using cols"
(ok (search "for=exampleFormControlInput1" result))
(ok (search "class=col-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)))))