(html (head (title "sph-lib (sph test base)") (link (@ (rel "stylesheet") (type "text/css") (href "/css/sph.css"))) (meta (@ (name "viewport") (content "width=device-width,initial-scale=1"))) #f) (body () (div (@ (class top)) (nav (a (@ (href "/")) "start") ", " (a (@ (href "/feed.xml")) "feed")) "") (div (@ (class "middle")) (div (@ (class mtime) (title "last modification time of the current page")) "2023-04-05") (section (h1 "(sph test base)") (div "" (p "part of " (a (@ (href "../../sph-lib.html")) "sph-lib")) (#f (section (@ (class "library-name")) (h1 "module name") (p "(sph test base)")) (section (@ (class "library-exports")) (h1 "exported bindings") (div (div (@ (class "doc-bindings")) (div (@ (id "doc-b-" "test-create-result") (class "doc-b")) (div (span (@ (class "type")) "procedure") ": " (span (@ (class "name")) "test-create-result") " " (span (@ (class "first-sig")) "[success? title assert-title index result arguments expected] ->")) (div (@ (class "rest-sig")) (div "boolean string string integer any list any -> vector:test-result")) "") (div (@ (id "doc-b-" "test-result-arguments") (class "doc-b")) (div (span (@ (class "type")) "procedure") ": " (span (@ (class "name")) "test-result-arguments") " " (span (@ (class "first-sig")) "a ->")) "" "") (div (@ (id "doc-b-" "test-result-assert-title-set!") (class "doc-b")) (div (span (@ (class "type")) "procedure") ": " (span (@ (class "name")) "test-result-assert-title-set!") " " (span (@ (class "first-sig")) "a value ->")) "" "") (div (@ (id "doc-b-" "test-result-expected") (class "doc-b")) (div (span (@ (class "type")) "procedure") ": " (span (@ (class "name")) "test-result-expected") " " (span (@ (class "first-sig")) "a ->")) "" "") (div (@ (id "doc-b-" "test-result-index") (class "doc-b")) (div (span (@ (class "type")) "procedure") ": " (span (@ (class "name")) "test-result-index") " " (span (@ (class "first-sig")) "a ->")) "" "") (div (@ (id "doc-b-" "test-result-index-set!") (class "doc-b")) (div (span (@ (class "type")) "procedure") ": " (span (@ (class "name")) "test-result-index-set!") " " (span (@ (class "first-sig")) "a value ->")) "" "") (div (@ (id "doc-b-" "test-result-result") (class "doc-b")) (div (span (@ (class "type")) "procedure") ": " (span (@ (class "name")) "test-result-result") " " (span (@ (class "first-sig")) "a ->")) "" "") (div (@ (id "doc-b-" "test-result-success?") (class "doc-b")) (div (span (@ (class "type")) "procedure") ": " (span (@ (class "name")) "test-result-success?") " " (span (@ (class "first-sig")) "a ->")) "" "") (div (@ (id "doc-b-" "test-result-title") (class "doc-b")) (div (span (@ (class "type")) "procedure") ": " (span (@ (class "name")) "test-result-title") " " (span (@ (class "first-sig")) "a ->")) "" "") (div (@ (id "doc-b-" "test-result-title-set!") (class "doc-b")) (div (span (@ (class "type")) "procedure") ": " (span (@ (class "name")) "test-result-title-set!") " " (span (@ (class "first-sig")) "a value ->")) "" "") (div (@ (id "doc-b-" "test-result?") (class "doc-b")) (div (span (@ (class "type")) "procedure") ": " (span (@ (class "name")) "test-result?") " " (span (@ (class "first-sig")) "a ->")) "" "") (div (@ (id "doc-b-" "test-success?") (class "doc-b")) (div (span (@ (class "type")) "procedure") ": " (span (@ (class "name")) "test-success?") " " (span (@ (class "first-sig")) "result expected ->")) (div (@ (class "rest-sig")) (div "vector/any any -> boolean")) (div (@ (class "description")) (("if result is a test-result, check if it is a successful result. otherwise compare result and expected for equality"))))))))))) ()))