factor/extra/xml/tests/soap.factor

USING: sequences xml kernel arrays xml.utilities io.files tools.test ;
IN: temporary

: assemble-data ( tag -- 3array )
    { "URL" "snippet" "title" }
    [ tag-named children>string ] with map ;

: parse-result ( xml -- seq )
    "resultElements" deep-tag-named "item" tags-named
    [ assemble-data ] map ;

[ "http://www.foxnews.com/oreilly/" ] [
    "extra/xml/tests/soap.xml" resource-path file>xml
    parse-result first first
] unit-test
Initial import 2007-09-20 18:09:08 -04:00			`USING: sequences xml kernel arrays xml.utilities io.files tools.test ;`
Fighting fires 2008-02-21 03:08:08 -05:00			`IN: temporary`
Initial import 2007-09-20 18:09:08 -04:00
			`: assemble-data ( tag -- 3array )`
			`{ "URL" "snippet" "title" }`
Rename curry* to with 2008-01-09 17:36:30 -05:00			`[ tag-named children>string ] with map ;`
Initial import 2007-09-20 18:09:08 -04:00
			`: parse-result ( xml -- seq )`
XML combinator refactoring 2007-12-23 14:57:39 -05:00			`"resultElements" deep-tag-named "item" tags-named`
Initial import 2007-09-20 18:09:08 -04:00			`[ assemble-data ] map ;`

			`[ "http://www.foxnews.com/oreilly/" ] [`
Fixing XML tests 2008-02-16 01:42:53 -05:00			`"extra/xml/tests/soap.xml" resource-path file>xml`
Initial import 2007-09-20 18:09:08 -04:00			`parse-result first first`
			`] unit-test`