steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix RSS unit tests

db4
Slava Pestov 2008-04-23 00:08:49 -05:00
parent e65218af8e
commit 2045f44ced
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/rss/rss-tests.factor
View File

@ -5,7 +5,7 @@ IN: rss.tests
: load-news-file ( filename -- feed ) : load-news-file ( filename -- feed )
#! Load an news syndication file and process it, returning #! Load an news syndication file and process it, returning
#! it as an feed tuple. #! it as an feed tuple.
utf8 <file-reader> read-feed ; utf8 file-contents read-feed ;
[ T{ [ T{
feed feed
@ -36,7 +36,7 @@ IN: rss.tests
"http://example.org/2005/04/02/atom" "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 " "\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 } ] [ "extra/rss/atom.xml" resource-path load-news-file ] unit-test