basis/xml/tests/soap.factor

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