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

Remove old test cases for select macro

Browse source
This commit is contained in:
Marcus Kammer 2023-09-16 16:16:44 +02:00
parent 8fbc8f8f7f
commit ee4675ebbb
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 4 additions and 36 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

40
tests/component/form.lisp
View file

@ -15,44 +15,12 @@
(in-package :cl-sbt/tests/form)
(deftest test-select-default
(let ((result (spinneret:with-html-string (select () (:content "One" :value 1) (:content "Two" :value 2) (:content "Three" :value 3)))))
(let ((result (spinneret:with-html-string (select () "Red" "Green" "Blue"))))
(testing "Generates correct HTML for select element"
(ok (search "class=form-select" 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 "lg" (:content "One" :value 1)))))
(testing "Generates correct HTML for select element"
(ok (search "class=\"form-select form-select-lg\"" result))
(ok (search "option value=1" result)))))
(deftest test-select-size-sm
(let ((result (spinneret:with-html-string (select "sm" (:content "One" :value 1)))))
(testing "Generates correct HTML for select element"
(ok (search "class=\"form-select form-select-sm\"" result))
(ok (search "option value=1" result)))))
(deftest test-select-size-multiple
(let ((result (spinneret:with-html-string (select nil 3 (:content "One" :value 1)))))
(testing "Generates correct HTML for select element"
(ok (search "class=form-select" result))
(ok (search "multiple" result))
(ok (search "size=3" result))
(ok (search "option value=1" result)))))
(deftest test-select-sm
(let ((result (spinneret:with-html-string (select-sm (:content "One" :value 1)))))
(testing "Generates correct HTML for select element"
(ok (search "class=\"form-select form-select-sm\"" result))
(ok (search "option value=1" result)))))
(deftest test-select-lg
(let ((result (spinneret:with-html-string (select-lg (:content "One" :value 1)))))
(testing "Generates correct HTML for select element"
(ok (search "class=\"form-select form-select-lg\"" result))
(ok (search "option value=1" 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))))