USING: syndication io kernel io.files tools.test io.encodings.utf8 calendar urls ; IN: syndication.tests \ download-feed must-infer \ feed>xml must-infer : load-news-file ( filename -- feed ) #! Load an news syndication file and process it, returning #! it as an feed tuple. utf8 file-contents string>feed ; [ T{ feed f "Meerkat" URL" http://meerkat.oreillynet.com" { T{ entry f "XML: A Disruptive Technology" URL" http://c.moreover.com/click/here.pl?r123" "\n XML is placing increasingly heavy loads on the existing technical\n infrastructure of the Internet.\n " f } } } ] [ "resource:basis/syndication/test/rss1.xml" load-news-file ] unit-test [ T{ feed f "dive into mark" URL" http://example.org/" { T{ entry f "Atom draft-07 snapshot" URL" http://example.org/2005/04/02/atom" "\n
[Update: The Atom draft is finished.]
\n