basis/xml/generator/generator-tests.factor

   1 USING: tools.test io.streams.string xml.generator xml.writer accessors ;
   2 [ "<html><body><a href=\"blah\"/></body></html>" ]
   3 [ "html" [ "body" [ "a" { { "href" "blah" } } contained*, ] tag, ] make-xml [ body>> write-xml-chunk ] with-string-writer ] unit-test