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" [ html-attr-string ] bind ] unit-test [ "Hello world" ] [ "Hello world" [ t "bold" set ] extend [ html-attr-string ] bind ] unit-test [ "Hello world" ] [ "Hello world" [ t "italics" set ] extend [ html-attr-string ] bind ] unit-test [ "Hello world" ] [ "Hello world" [ [ 255 0 255 ] "fg" set ] extend [ html-attr-string ] bind ] unit-test