2008-01-11 00:48:04 -05:00
|
|
|
IN: temporary
|
|
|
|
|
USING: tools.test html html.elements io.streams.string ;
|
|
|
|
|
|
|
|
|
|
: make-html-string
|
2008-02-15 23:20:31 -05:00
|
|
|
[ with-html-stream ] with-string-writer ;
|
2008-01-11 00:48:04 -05:00
|
|
|
|
|
|
|
|
[ "<a href='h&o'>" ]
|
|
|
|
|
[ [ <a "h&o" =href a> ] make-html-string ] unit-test
|
