     [
         H{
             { "foo" { "foo" } }
-            { "bar" { "blah" T{ tag T{ name f "" "a" "" } V{ } f } } }
+            { "bar" { "blah" T{ tag f T{ name f "" "a" "" } f f } } }
             { "baz" f }
         } ref-table set
         sample-doc string>xml dup template xml>string

M: tag (r-ref)
    sub-tag over at* [
        ref-table get at
        swap set-tag-children
    ] [ 2drop ] if ;
M: object (r-ref) drop ;


USING: kernel xml sequences assocs tools.test io arrays namespaces
accessors xml.data xml.utilities xml.writer generic sequences.deep ;
IN: xml.tests

: sub-tag
