IN: scratchpad
USE: html
USE: namespaces
USE: stdio
USE: streams
USE: strings
USE: test
[
"<html>&'sgml'"
] [ "&'sgml'" chars>entities ] unit-test
[ "Hello world" ]
[
"Hello world" f html-attr-string
] unit-test
[ "car" ]
[
"car"
[ [ "fg" 255 0 255 ] [ "font" | "Monospaced" ] ]
span-tag
] unit-test