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

Add description string to tests

Browse source
This commit is contained in:
Marcus Kammer 2023-08-02 14:28:12 +02:00
parent f2e55b1d49
commit 47b7b166e6
1 changed files with 68 additions and 60 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

128
tests/component/navbar.lisp
View file

@ -18,84 +18,92 @@
(deftest test-brand-logo
(let ((result (spinneret:with-html-string (brand-logo (:src "logo.png" :alt "My Logo" :width 50 :height 50 :classes "logo-class")))))
(ok (search "src=logo.png" result))
(ok (search "alt=\"My Logo\"" result))
(ok (search "width=50" result))
(ok (search "height=50" result))
(ok (search "class=logo-class" result))))
(testing "Generates correct HTML for navbar brand logo"
(ok (search "src=logo.png" result))
(ok (search "alt=\"My Logo\"" result))
(ok (search "width=50" result))
(ok (search "height=50" result))
(ok (search "class=logo-class" result)))))
(deftest test-brand
(let ((result (spinneret:with-html-string (brand (:logo "logo.png") "My Website"))))
(ok (search "class=navbar-brand" result))
(ok (search "href=#" result))
(ok (search "src=logo.png" result))
(ok (search "alt=Logo" result))
(ok (search "width=30" result))
(ok (search "height=24" result))
(ok (search "class=\"d-inline-block align-text-top\"" result))
(ok (search "My Website" result))))
(testing "Generates correct HTML for a brand component with a logo and title"
(ok (search "class=navbar-brand" result))
(ok (search "href=#" result))
(ok (search "src=logo.png" result))
(ok (search "alt=Logo" result))
(ok (search "width=30" result))
(ok (search "height=24" result))
(ok (search "class=\"d-inline-block align-text-top\"" result))
(ok (search "My Website" result)))))
(deftest test-nav
(let ((result (spinneret:with-html-string (nav (:name "Home" :url "#" :active t)
(:name "Foo" :url "#")
(:name "Bar" :url "#" :disabled t)))))
(ok (search "Home" result))
(ok (search "Foo" result))
(ok (search "Bar" result))
(ok (search "class=nav-item" result))
(ok (search "class=\"nav-link active\"" result))
(ok (search "class=\"nav-link disabled\"" result))
(ok (search "class=navbar-nav" result))
(ok (search "aria-current=page" result))
(ok (search "aria-disabled=true" result))))
(testing "Generates correct HTML for a nav component"
(ok (search "Home" result))
(ok (search "Foo" result))
(ok (search "Bar" result))
(ok (search "class=nav-item" result))
(ok (search "class=\"nav-link active\"" result))
(ok (search "class=\"nav-link disabled\"" result))
(ok (search "class=navbar-nav" result))
(ok (search "aria-current=page" result))
(ok (search "aria-disabled=true" result)))))
(deftest test-text
(let ((result (spinneret:with-html-string (text "Welcome to my website!"))))
(ok (search "class=navbar-text" result))
(ok (search "Welcome to my website!" result))))
(testing "Generates correct HTML for a text component"
(ok (search "class=navbar-text" result))
(ok (search "Welcome to my website!" result)))))
(deftest test-toggler
(let ((result (spinneret:with-html-string (toggler "myNavbar"))))
(ok (search "class=\"navbar-toggler collapsed\"" result))
(ok (search "type=button" result))
(ok (search "data-bs-toggle=collapse" result))
(ok (search "data-bs-target=#myNavbar" result))
(ok (search "aria-controls=myNavbar" result))
(ok (search "aria-expanded=false" result))
(ok (search "aria-label=\"Toggle navigation\"" result))
(ok (search "class=navbar-toggler-icon" result))))
(testing "Generates correct HTML for a navbar toggler"
(ok (search "class=\"navbar-toggler collapsed\"" result))
(ok (search "type=button" result))
(ok (search "data-bs-toggle=collapse" result))
(ok (search "data-bs-target=#myNavbar" result))
(ok (search "aria-controls=myNavbar" result))
(ok (search "aria-expanded=false" result))
(ok (search "aria-label=\"Toggle navigation\"" result))
(ok (search "class=navbar-toggler-icon" result)))))
(deftest test-collapsible
(let ((result (spinneret:with-html-string (collapsible "myId" "red" "Content"))))
(ok (search "id=myId" result))
(ok (search "class=\"collapse red\"" result))
(ok (search "class=container" result))
(ok (search "class=row" result))))
(testing "Generates correct HTML for a collapsible component"
(ok (search "id=myId" result))
(ok (search "class=\"collapse red\"" result))
(ok (search "class=container" result))
(ok (search "class=row" result)))))
(deftest test-navbar-simple
(let ((result (spinneret:with-html-string (navbar () (brand () "My Website") (content "navbarContent" (nav (:name "Home" :url "#" :active t) (:name "Foo" :url "#")))))))
(ok (search "class=navbar" result))
(ok (search "class=container" result))
(ok (search "class=navbar-brand" result))
(ok (search "class=\"navbar-collapse collapse\"" result))
(ok (search "id=navbarContent" result))
(ok (search "class=nav-link" result))
(ok (search "class=nav-item" result))
(ok (search "Home" result))
(ok (search "class=\"nav-link active\"" result))))
(let ((result (spinneret:with-html-string (navbar () (brand () "My Website") (content "navbarContent" () (nav (:name "Home" :url "#" :active t) (:name "Foo" :url "#")))))))
(testing "Generates correct HTML for a navbar"
(ok (search "class=navbar" result))
(ok (search "class=container" result))
(ok (search "class=navbar-brand" result))
(ok (search "class=\"navbar-collapse collapse\"" result))
(ok (search "id=navbarContent" result))
(ok (search "class=nav-link" result))
(ok (search "class=nav-item" result))
(ok (search "Home" result))
(ok (search "class=\"nav-link active\"" result)))))
(deftest test-navbar-advanced
(let ((result (spinneret:with-html-string (navbar (:fluid t) (brand (:logo "foobar.png") "My Website") (content "navbarContent" (nav (:name "Home" :url "#" :active t) (:name "Foo" :url "#") (:name "Bar" :url "#" :disabled t)))))))
(ok (search "class=navbar" result))
(ok (search "class=container-fluid" result))
(ok (search "class=navbar-brand" result))
(ok (search "class=\"navbar-collapse collapse\"" result))
(ok (search "id=navbarContent" result))
(ok (search "class=nav-link" result))
(ok (search "class=nav-item" result))
(ok (search "Home" result))
(ok (search "class=\"nav-link active\"" result))
(ok (search "class=\"nav-link disabled\"" result))
(ok (search "class=\"d-inline-block align-text-top\"" result))
(ok (search "src=foobar.png" result))
(ok (search "aria-disabled=true" result))))
(let ((result (spinneret:with-html-string (navbar (:fluid t) (brand (:logo "foobar.png") "My Website") (content "navbarContent" () (nav (:name "Home" :url "#" :active t) (:name "Foo" :url "#") (:name "Bar" :url "#" :disabled t)))))))
(testing "Generates correct HTML for a navbar"
(ok (search "class=navbar" result))
(ok (search "class=container-fluid" result))
(ok (search "class=navbar-brand" result))
(ok (search "class=\"navbar-collapse collapse\"" result))
(ok (search "id=navbarContent" result))
(ok (search "class=nav-link" result))
(ok (search "class=nav-item" result))
(ok (search "Home" result))
(ok (search "class=\"nav-link active\"" result))
(ok (search "class=\"nav-link disabled\"" result))
(ok (search "class=\"d-inline-block align-text-top\"" result))
(ok (search "src=foobar.png" result))
(ok (search "aria-disabled=true" result)))))