16 lines
435 B
Factor
16 lines
435 B
Factor
USING: sequences xml kernel arrays xml-utils io test ;
|
|
IN: soap-script
|
|
|
|
: assemble-data ( tag -- 3array )
|
|
{ "URL" "snippet" "title" }
|
|
[ find-tag children>string ] map-with ;
|
|
|
|
: parse-result ( xml -- seq )
|
|
"resultElements" get-tag "item" find-tags
|
|
[ assemble-data ] map ;
|
|
|
|
[ "http://www.foxnews.com/oreilly/" ] [
|
|
"libs/xml/test/soap.xml" resource-path <file-reader> read-xml
|
|
parse-result first first
|
|
] unit-test
|