15 lines
549 B
Common Lisp
15 lines
549 B
Common Lisp
(defpackage dev.metalisp.sbt/tests/main
|
|
(:use :cl
|
|
:dev.metalisp.sbt
|
|
:rove))
|
|
(in-package :dev.metalisp.sbt/tests/main)
|
|
|
|
;; NOTE: To run this test file, execute `(asdf:test-system :dev.metalisp.sbt)' in your Lisp.
|
|
|
|
(deftest test-with-page
|
|
(let ((result (with-output-to-string (spinneret:*html*)
|
|
(with-page (:title "Example")
|
|
(:h2 "Hello World")))))
|
|
(testing "Testing with-page macro"
|
|
(ok (search "<title>Example</title>" result))
|
|
(ok (search "<h2>Hello World</h2>" result)))))
|