factor/basis/xml/generator/generator-tests.factor

USING: tools.test io.streams.string xml.generator xml.writer accessors ;
[ "<html><body><a href=\"blah\"/></body></html>" ]
[ "html" [ "body" [ "a" { { "href" "blah" } } contained*, ] tag, ] make-xml [ body>> write-item ] with-string-writer ] unit-test
Fixing xml.generator tests 2008-08-31 17:45:31 -04:00			`USING: tools.test io.streams.string xml.generator xml.writer accessors ;`
Initial import 2007-09-20 18:09:08 -04:00			`[ "<html><body><a href=\"blah\"/></body></html>" ]`
Fixing xml.generator tests 2008-08-31 17:45:31 -04:00			`[ "html" [ "body" [ "a" { { "href" "blah" } } contained*, ] tag, ] make-xml [ body>> write-item ] with-string-writer ] unit-test`