2024-03-30 09:17:04 +01:00
|
|
|
(defpackage dev.metalisp.sbt/tests/component/nav
|
2023-08-04 23:08:18 +02:00
|
|
|
(:use
|
|
|
|
|
:cl
|
2023-12-18 12:14:10 +01:00
|
|
|
:dev.metalisp.sbt/component/nav
|
2024-03-30 09:17:04 +01:00
|
|
|
:rove))
|
2023-08-04 23:08:18 +02:00
|
|
|
|
2024-03-30 09:17:04 +01:00
|
|
|
(in-package :dev.metalisp.sbt/tests/component/nav)
|
2023-08-04 23:08:18 +02:00
|
|
|
|
|
|
|
|
(deftest test-item
|
|
|
|
|
(let ((result (spinneret:with-html-string (item "foo" t "#"))))
|
|
|
|
|
(testing "Generate correct HTML nav item"
|
|
|
|
|
(ok (search "class=nav-item" result))
|
|
|
|
|
(ok (search "class=\"nav-link active\"" result)))))
|
