From d86a4b40a1f6f38e14af04d3372cc708f93c99ad Mon Sep 17 00:00:00 2001 From: Daniel Ehrenberg Date: Fri, 29 Aug 2008 00:30:58 +0200 Subject: [PATCH] Fixing more XML unit tests --- basis/xml/tests/templating.factor | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/basis/xml/tests/templating.factor b/basis/xml/tests/templating.factor index d81e807fe5..e95dad6618 100644 --- a/basis/xml/tests/templating.factor +++ b/basis/xml/tests/templating.factor @@ -1,5 +1,5 @@ USING: kernel xml sequences assocs tools.test io arrays namespaces - xml.data xml.utilities xml.writer generic sequences.deep ; +accessors xml.data xml.utilities xml.writer generic sequences.deep ; IN: xml.tests : sub-tag @@ -11,7 +11,7 @@ GENERIC: (r-ref) ( xml -- ) M: tag (r-ref) sub-tag over at* [ ref-table get at - swap set-tag-children + >>children drop ] [ 2drop ] if ; M: object (r-ref) drop ; @@ -34,7 +34,7 @@ M: object (r-ref) drop ; [ 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