From 2045f44ced34a546d215c872cda542171014a6dc Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Wed, 23 Apr 2008 00:08:49 -0500
Subject: [PATCH] Fix RSS unit tests

---
 extra/rss/rss-tests.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/extra/rss/rss-tests.factor b/extra/rss/rss-tests.factor
index 7523d0509f..252defe99b 100755
--- a/extra/rss/rss-tests.factor
+++ b/extra/rss/rss-tests.factor
@@ -5,7 +5,7 @@ IN: rss.tests
 : load-news-file ( filename -- feed )
     #! Load an news syndication file and process it, returning
     #! it as an feed tuple.
-    utf8 <file-reader> read-feed ;
+    utf8 file-contents read-feed ;
 
 [ T{
     feed
@@ -36,7 +36,7 @@ IN: rss.tests
             "http://example.org/2005/04/02/atom"
             "\n         <div xmlns=\"http://www.w3.org/1999/xhtml\">\n           <p><i>[Update: The Atom draft is finished.]</i></p>\n         </div>\n       "
 
-            T{ timestamp f 2003 12 13 8 29 29 -4 }
+            T{ timestamp f 2003 12 13 8 29 29 T{ duration f 0 0 0 -4 0 0 } }
         }
     }
 } ] [ "extra/rss/atom.xml" resource-path load-news-file ] unit-test