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
|
|
|
[
|
|
|
|
|
"Hello world" <namespace> [ html-attr-string ] bind
|
|
|
|
|
] unit-test
|
2004-07-16 02:26:21 -04:00
|
|
|
|
|
|
|
|
[ "<b>Hello world</b>" ]
|
2004-08-04 03:12:55 -04:00
|
|
|
[
|
|
|
|
|
"Hello world"
|
|
|
|
|
<namespace> [ t "bold" set ] extend
|
|
|
|
|
[ html-attr-string ] bind
|
|
|
|
|
] unit-test
|
2004-07-16 02:26:21 -04:00
|
|
|
|
|
|
|
|
[ "<i>Hello world</i>" ]
|
2004-08-04 03:12:55 -04:00
|
|
|
[
|
|
|
|
|
"Hello world" <namespace> [ t "italics" set ] extend
|
|
|
|
|
[ html-attr-string ] bind
|
|
|
|
|
] unit-test
|
2004-07-16 02:26:21 -04:00
|
|
|
|
|
|
|
|
[ "<font color=\"#ff00ff\">Hello world</font>" ]
|
2004-08-04 03:12:55 -04:00
|
|
|
[
|
|
|
|
|
"Hello world" <namespace> [ [ 255 0 255 ] "fg" set ] extend
|
|
|
|
|
[ html-attr-string ] bind
|
|
|
|
|
] unit-test
|
