Fix the Atom feed generator

db4
Iskander Sitdikov 2014-09-10 13:07:32 +04:00
parent d2ffa127e4
commit e62370395e
2 changed files with 4 additions and 4 deletions

View File

@ -40,4 +40,4 @@ IN: syndication.tests
} }
} }
} ] [ "vocab:syndication/test/atom.xml" load-news-file ] unit-test } ] [ "vocab:syndication/test/atom.xml" load-news-file ] unit-test
[ ] [ "vocab:syndication/test/atom.xml" load-news-file feed>xml xml>string drop ] unit-test [ t ] [ "vocab:syndication/test/atom.xml" load-news-file dup feed>xml xml>feed = ] unit-test

View File

@ -122,7 +122,7 @@ M: byte-array parse-feed [ bytes>xml xml>feed ] with-html-entities ;
[XML [XML
<entry> <entry>
<title type="html"><-></title> <title type="html"><-></title>
<link href=<-> /> <link rel="alternate" href=<-> />
<published><-></published> <published><-></published>
<content type="html"><-></content> <content type="html"><-></content>
</entry> </entry>
@ -135,7 +135,7 @@ M: byte-array parse-feed [ bytes>xml xml>feed ] with-html-entities ;
<XML <XML
<feed xmlns="http://www.w3.org/2005/Atom"> <feed xmlns="http://www.w3.org/2005/Atom">
<title><-></title> <title><-></title>
<link href=<-> /> <link rel="alternate" href=<-> />
<-> <->
</feed> </feed>
XML> ; XML> ;