2004-07-16 02:26:21 -04:00
|
|
|
IN: scratchpad
|
|
|
|
|
USE: html
|
|
|
|
|
USE: namespaces
|
|
|
|
|
USE: stdio
|
|
|
|
|
USE: streams
|
|
|
|
|
USE: strings
|
|
|
|
|
USE: test
|
|
|
|
|
|
|
|
|
|
[
|
|
|
|
|
"<html>&'sgml'"
|
2004-08-04 03:12:55 -04:00
|
|
|
] [ "<html>&'sgml'" chars>entities ] unit-test
|
2004-07-16 02:26:21 -04:00
|
|
|
|
|
|
|
|
[ "Hello world" ]
|
2004-08-04 03:12:55 -04:00
|
|
|
[
|
2004-08-21 02:55:37 -04:00
|
|
|
"Hello world" f html-attr-string
|
2004-08-04 03:12:55 -04:00
|
|
|
] unit-test
|
2004-07-16 02:26:21 -04:00
|
|
|
|
|
|
|
|
[ "<b>Hello world</b>" ]
|
2004-08-04 03:12:55 -04:00
|
|
|
[
|
|
|
|
|
"Hello world"
|
2004-08-21 02:55:37 -04:00
|
|
|
[ [ "bold" | t ] ]
|
|
|
|
|
html-attr-string
|
2004-08-04 03:12:55 -04:00
|
|
|
] unit-test
|
2004-07-16 02:26:21 -04:00
|
|
|
|
|
|
|
|
[ "<i>Hello world</i>" ]
|
2004-08-04 03:12:55 -04:00
|
|
|
[
|
2004-08-21 02:55:37 -04:00
|
|
|
"Hello world"
|
|
|
|
|
[ [ "italics" | t ] ]
|
|
|
|
|
html-attr-string
|
2004-08-04 03:12:55 -04:00
|
|
|
] unit-test
|
2004-07-16 02:26:21 -04:00
|
|
|
|
|
|
|
|
[ "<font color=\"#ff00ff\">Hello world</font>" ]
|
2004-08-04 03:12:55 -04:00
|
|
|
[
|
2004-08-21 02:55:37 -04:00
|
|
|
"Hello world"
|
|
|
|
|
[ [ "fg" 255 0 255 ] ]
|
|
|
|
|
html-attr-string
|
2004-08-04 03:12:55 -04:00
|
|
|
] unit-test
|
