Mercurial > feed

comparison tests/mr.ur @ 15:0140b1662994

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Update URL used in RSS test
author Adam Chlipala <adam@chlipala.net>
date Tue, 02 Aug 2011 16:20:14 -0400
parents a4e5d053daed
children
comparison
equal deleted inserted replaced
14:f641cfcd5153 15:0140b1662994
1 fun main () = 1 fun main () =
2 doc <- Feed.fetch "http://marginalrevolution.com/feed"; 2 doc <- Feed.fetch "http://feeds.feedburner.com/marginalrevolution/feed";
3 3
4 Feed.app (Feed.children 4 Feed.app (Feed.children
5 (Feed.tagA "item" ()) 5 (Feed.tagA "item" ())
6 (Feed.tagC "link", Feed.tagC "title", Feed.tagC "content:encoded")) 6 (Feed.tagC "link", Feed.tagC "title", Feed.tagC "content:encoded"))
7 (fn ((), (link, title, content)) => 7 (fn ((), (link, title, content)) =>
8 error <xml/>;
8 debug ("URL: " ^ link); 9 debug ("URL: " ^ link);
9 debug ("Title: " ^ title); 10 debug ("Title: " ^ title);
10 debug ("Content: " ^ content)) 11 debug ("Content: " ^ content))
11 doc; 12 doc;
12 return <xml> 13 return <xml>