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 ] 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
|
[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> ;
|
||||||
|
|
Loading…
Reference in New Issue