2009-01-27 14:34:14 -05:00
|
|
|
! Copyright (C) 2005, 2009 Daniel Ehrenberg
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
2011-12-14 17:05:57 -05:00
|
|
|
USING: xml xml.traversal tools.test xml.data sequences arrays kernel ;
|
2008-06-27 02:30:23 -04:00
|
|
|
|
2015-07-03 12:39:59 -04:00
|
|
|
{ "bar" } [ "<foo>bar</foo>" string>xml children>string ] unit-test
|
2008-06-27 02:30:23 -04:00
|
|
|
|
2015-07-03 12:39:59 -04:00
|
|
|
{ "" } [ "<foo></foo>" string>xml children>string ] unit-test
|
2008-06-27 02:30:23 -04:00
|
|
|
|
2015-07-03 12:39:59 -04:00
|
|
|
{ "" } [ "<foo/>" string>xml children>string ] unit-test
|
2009-01-27 14:34:14 -05:00
|
|
|
|
2015-07-03 12:39:59 -04:00
|
|
|
{ "bar qux" } [ "<foo>bar <baz>qux</baz></foo>" string>xml deep-children>string ] unit-test
|
2012-12-17 14:58:30 -05:00
|
|
|
|
2015-07-03 12:39:59 -04:00
|
|
|
{ "blah" } [ "<foo attr='blah'/>" string>xml-chunk "foo" deep-tag-named "attr" attr ] unit-test
|
2009-01-31 22:01:55 -05:00
|
|
|
|
2015-07-03 12:39:59 -04:00
|
|
|
{ { "blah" } } [ "<foo attr='blah'/>" string>xml-chunk "foo" deep-tags-named [ "attr" attr ] map ] unit-test
|
2009-01-31 22:01:55 -05:00
|
|
|
|
2015-07-03 12:39:59 -04:00
|
|
|
{ "blah" } [ "<foo attr='blah'/>" string>xml "foo" deep-tag-named "attr" attr ] unit-test
|
2009-01-31 22:01:55 -05:00
|
|
|
|
2015-07-03 12:39:59 -04:00
|
|
|
{ { "blah" } } [ "<foo attr='blah'/>" string>xml "foo" deep-tags-named [ "attr" attr ] map ] unit-test
|
2010-09-13 21:14:46 -04:00
|
|
|
|
2015-07-03 12:39:59 -04:00
|
|
|
{ { "blah" } } [ "<foo><bar attr='blah'/></foo>" string>xml "blah" "attr" tags-with-attr [ "attr" attr ] map ] unit-test
|
|
|
|
|
{ { "blah" } } [ "bar" { { "attr" "blah" } } f <tag> 1array "blah" "attr" tags-with-attr [ "attr" attr ] map ] unit-test
|
2011-12-14 17:05:57 -05:00
|
|
|
|
2015-07-03 12:39:59 -04:00
|
|
|
{ { "http://hub.example.com" "http://alt.example.com" } } [ "<head><link rel='alternate' href='http://alt.example.com'/><link rel='hub' href='http://hub.example.com'/></head>" 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
|
