extra/yahoo/yahoo-tests.factor

   1 USING: tools.test yahoo kernel io.files xml sequences accessors urls ;
   2
   3 [ T{
   4     result
   5     f
   6     "Official Foo Fighters"
   7     "http://www.foofighters.com/"
   8     "Official site with news, tour dates, discography, store, community, and more."
   9 } ] [ "resource:extra/yahoo/test-results.xml" file>xml parse-yahoo first ] unit-test
  10
  11 [ URL" http://search.yahooapis.com/WebSearchService/V1/webSearch?appid=Factor-search&query=hi&results=2&similar_ok=1" ] [ "hi" <search> "Factor-search" >>appid 2 >>results t >>similar-ok query ] unit-test