! Copyright (C) 2005, 2009 Daniel Ehrenberg
! See http://factorcode.org/license.txt for BSD license.
USING: xml xml.traversal tools.test xml.data sequences arrays kernel ;
{ "bar" } [ "bar" string>xml children>string ] unit-test
{ "" } [ "" string>xml children>string ] unit-test
{ "" } [ "" string>xml children>string ] unit-test
{ "bar qux" } [ "bar qux" string>xml deep-children>string ] unit-test
{ "blah" } [ "" string>xml-chunk "foo" deep-tag-named "attr" attr ] unit-test
{ { "blah" } } [ "" string>xml-chunk "foo" deep-tags-named [ "attr" attr ] map ] unit-test
{ "blah" } [ "" string>xml "foo" deep-tag-named "attr" attr ] unit-test
{ { "blah" } } [ "" string>xml "foo" deep-tags-named [ "attr" attr ] map ] unit-test
{ { "blah" } } [ "" string>xml "blah" "attr" tags-with-attr [ "attr" attr ] map ] unit-test
{ { "blah" } } [ "bar" { { "attr" "blah" } } f 1array "blah" "attr" tags-with-attr [ "attr" attr ] map ] unit-test
{ { "http://hub.example.com" "http://alt.example.com" } } [ "" string>xml-chunk "head" tag-named [ "link" "hub" "rel" tag-named-with-attr ] [ "link" "alternate" "rel" tag-named-with-attr ] bi [ "href" attr ] bi@ 2array ] unit-test