24 lines
414 B
Factor
24 lines
414 B
Factor
IN: scratchpad
|
|
USE: html
|
|
USE: namespaces
|
|
USE: stdio
|
|
USE: streams
|
|
USE: strings
|
|
USE: test
|
|
|
|
[
|
|
"<html>&'sgml'"
|
|
] [ "<html>&'sgml'" chars>entities ] unit-test
|
|
|
|
[ "Hello world" ]
|
|
[
|
|
"Hello world" f html-attr-string
|
|
] unit-test
|
|
|
|
[ "<span style=\"color: #ff00ff; font-family: Monospaced; \">car</span>" ]
|
|
[
|
|
"car"
|
|
[ [ "fg" 255 0 255 ] [ "font" | "Monospaced" ] ]
|
|
span-tag
|
|
] unit-test
|