2023-11-25 09:59:03 +01:00
|
|
|
(defpackage dev.metalisp.sbt/tests/alert
|
2023-07-27 11:59:30 +02:00
|
|
|
(:use
|
|
|
|
|
:cl
|
2023-11-25 09:59:03 +01:00
|
|
|
:dev.metalisp.sbt
|
2023-07-27 11:59:30 +02:00
|
|
|
:rove)
|
|
|
|
|
(:import-from
|
2023-11-25 09:59:03 +01:00
|
|
|
:dev.metalisp.sbt/alert
|
2023-07-27 11:59:30 +02:00
|
|
|
:btn
|
|
|
|
|
:alert
|
|
|
|
|
:alert-primary
|
|
|
|
|
:alert-dismiss-primary))
|
|
|
|
|
|
2023-11-25 09:59:03 +01:00
|
|
|
(in-package :dev.metalisp.sbt/tests/alert)
|
2023-07-27 11:59:30 +02:00
|
|
|
|
|
|
|
|
(deftest test-btn-macro
|
|
|
|
|
(testing "Testing btn macro"
|
2023-07-27 13:56:01 +02:00
|
|
|
(let ((result (spinneret:with-html-string (btn))))
|
2023-07-27 11:59:30 +02:00
|
|
|
(ok (search "class=btn-close" result))
|
|
|
|
|
(ok (search "type=button" result))
|
|
|
|
|
(ok (search "data-bs-dismiss=alert" result))
|
|
|
|
|
(ok (search "aria-label=Close" result)))))
|
2023-07-27 14:31:41 +02:00
|
|
|
|
|
|
|
|
(deftest test-btn-primary
|
|
|
|
|
(testing "Testing primary btn"
|
|
|
|
|
(let ((result (spinneret:with-html-string (alert-primary "foo"))))
|
|
|
|
|
(ok (search "class=\"alert alert-primary\"" result))
|
|
|
|
|
(ok (search "role=alert" result)))))
|
|
|
|
|
|
|
|
|
|
(deftest test-btn-dismiss-primary
|
|
|
|
|
(testing "Testing dismiss primary btn"
|
|
|
|
|
(let ((result (spinneret:with-html-string (alert-dismiss-primary "foo"))))
|
|
|
|
|
(ok (search "class=\"alert alert-primary alert-dismissible\"" result))
|
|
|
|
|
(ok (search "role=alert" result))
|
|
|
|
|
(ok (search "class=btn-close" result))
|
|
|
|
|
(ok (search "type=button" result))
|
|
|
|
|
(ok (search "data-bs-dismiss=alert" result))
|
|
|
|
|
(ok (search "aria-label=Close" result)))))
|
