64 lines
1.2 KiB
Factor
64 lines
1.2 KiB
Factor
IN: temporary
|
|
USING: html io kernel namespaces styles test ;
|
|
|
|
[
|
|
"<html>&'sgml'"
|
|
] [ "<html>&'sgml'" chars>entities ] unit-test
|
|
|
|
[ "/foo/bar" ]
|
|
[
|
|
[
|
|
"/home/slava/doc/" "doc-root" set
|
|
"/home/slava/doc/foo/bar" file-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
|
|
|
|
[ "<span style='font-family: Monospaced; '>car</span>" ]
|
|
[
|
|
[
|
|
"car"
|
|
H{ { font "Monospaced" } }
|
|
html-format
|
|
] string-out
|
|
] unit-test
|
|
|
|
[ "<span style='color: #ff00ff; '>car</span>" ]
|
|
[
|
|
[
|
|
"car"
|
|
H{ { foreground { 1 0 1 1 } } }
|
|
html-format
|
|
] string-out
|
|
] unit-test
|
|
|
|
[
|
|
"<html><head><title>Foo</title></head><body><h1>Foo</h1></body></html>"
|
|
] [
|
|
[
|
|
"Foo" [ ] html-document
|
|
] string-out
|
|
] unit-test
|
|
|
|
[
|
|
"<html><head><title>Foo</title></head><body><h1>Foo</h1><pre>Hi</pre></body></html>"
|
|
] [
|
|
[
|
|
"Foo" [ "Hi" write ] simple-html-document
|
|
] string-out
|
|
] unit-test
|