extra/xml/test/soap.factor

   1 USING: sequences xml kernel arrays xml.utilities io.files tools.test ;
   2
   3 : assemble-data ( tag -- 3array )
   4     { "URL" "snippet" "title" }
   5     [ tag-named children>string ] curry* map ;
   6
   7 : parse-result ( xml -- seq )
   8     "resultElements" tag-named* "item" tags-named
   9     [ assemble-data ] map ;
  10
  11 [ "http://www.foxnews.com/oreilly/" ] [
  12     "extra/xml/test/soap.xml" resource-path file>xml
  13     parse-result first first
  14 ] unit-test