Fix the Atom feed generator
parent
d2ffa127e4
commit
e62370395e
|
@ -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
|
||||
|
|
|
@ -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> ;
|
||||
|
|
Loading…
Reference in New Issue