IN: temporary USING: html http io kernel namespaces styles test xml ; [ "/responder/foo?z=%20" ] [ "/responder/foo" H{ { "z" " " } } build-url ] unit-test [ "<html>&'sgml'" ] [ "&'sgml'" chars>entities ] unit-test [ "/foo/bar" ] [ [ "/home/slava/doc/" "doc-root" set "/home/slava/doc/foo/bar" browser-link-href ] with-scope ] unit-test [ "" ] [ [ H{ } [ drop ] span-tag ] string-out ] unit-test : html-format ( string style -- string ) [ format ] with-html-stream ; [ "hello world" ] [ [ "hello world" H{ } html-format ] string-out ] unit-test [ "car" ] [ [ "car" H{ { font "monospace" } } html-format ] string-out ] unit-test [ "car" ] [ [ "car" H{ { foreground { 1 0 1 1 } } } html-format ] string-out ] unit-test