75 lines
1.6 KiB
Factor
75 lines
1.6 KiB
Factor
USING: html.streams html.streams.private accessors io
|
|
io.streams.string io.styles kernel namespaces tools.test
|
|
xml.writer sbufs sequences inspector colors ;
|
|
IN: html.streams.tests
|
|
|
|
: make-html-string
|
|
[ with-html-writer ] with-string-writer ; inline
|
|
|
|
[ [ ] make-html-string ] must-infer
|
|
|
|
[ ] [
|
|
512 <sbuf> <html-stream> drop
|
|
] unit-test
|
|
|
|
[ "" ] [
|
|
[ "" write ] make-html-string
|
|
] unit-test
|
|
|
|
[ "a" ] [
|
|
[ CHAR: a write1 ] make-html-string
|
|
] unit-test
|
|
|
|
[ "<" ] [
|
|
[ "<" write ] make-html-string
|
|
] unit-test
|
|
|
|
[ "<" ] [
|
|
[ "<" H{ } output-stream get format-html-span ] make-html-string
|
|
] unit-test
|
|
|
|
TUPLE: funky town ;
|
|
|
|
M: funky browser-link-href
|
|
"http://www.funky-town.com/" swap town>> append ;
|
|
|
|
[ "<a href='http://www.funky-town.com/austin'><</a>" ] [
|
|
[
|
|
"<" "austin" funky boa write-object
|
|
] make-html-string
|
|
] unit-test
|
|
|
|
[ "<span style='font-family: monospace; '>car</span>" ]
|
|
[
|
|
[
|
|
"car"
|
|
H{ { font "monospace" } }
|
|
format
|
|
] make-html-string
|
|
] unit-test
|
|
|
|
[ "<span style='color: #ff00ff; '>car</span>" ]
|
|
[
|
|
[
|
|
"car"
|
|
H{ { foreground T{ rgba f 1 0 1 1 } } }
|
|
format
|
|
] make-html-string
|
|
] unit-test
|
|
|
|
[ "<div style='background-color: #ff00ff; white-space: pre; font-family: monospace; '>cdr</div>" ]
|
|
[
|
|
[
|
|
H{ { page-color T{ rgba f 1 0 1 1 } } }
|
|
[ "cdr" write ] with-nesting
|
|
] make-html-string
|
|
] unit-test
|
|
|
|
[
|
|
"<div style='white-space: pre; font-family: monospace; '></div>"
|
|
] [
|
|
[ H{ } [ ] with-nesting nl ] make-html-string
|
|
] unit-test
|
|
|
|
[ ] [ [ { 1 2 3 } describe ] with-html-writer ] unit-test
|