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