# HG changeset patch
# User Adam Chlipala <adam@chlipala.net>
# Date 1312316414 14400
# Node ID 0140b16629949e770c862e594d6ab80d9070205a
# Parent  f641cfcd515317cb64371467a81412e5b6a7ffea
Update URL used in RSS test

diff -r f641cfcd5153 -r 0140b1662994 tests/mr.ur
--- a/tests/mr.ur	Mon Jul 25 20:55:09 2011 -0430
+++ b/tests/mr.ur	Tue Aug 02 16:20:14 2011 -0400
@@ -1,10 +1,11 @@
 fun main () =
-    doc <- Feed.fetch "http://marginalrevolution.com/feed";
+    doc <- Feed.fetch "http://feeds.feedburner.com/marginalrevolution/feed";
 
     Feed.app (Feed.children
                   (Feed.tagA "item" ())
                   (Feed.tagC "link", Feed.tagC "title", Feed.tagC "content:encoded"))
              (fn ((), (link, title, content)) =>
+                 error <xml/>;
                  debug ("URL: " ^ link);
                  debug ("Title: " ^ title);
                  debug ("Content: " ^ content))