diff options
| author | Ekaitz Zarraga <ekaitz@elenq.tech> | 2023-10-04 17:30:50 +0200 |
|---|---|---|
| committer | Ekaitz Zarraga <ekaitz@elenq.tech> | 2023-10-04 17:30:50 +0200 |
| commit | dc6f36f27554f4a8c88e0a9f8acf1fde288752b3 (patch) | |
| tree | a9ccde658165c3c1c800e6242326638b075025b2 /tests/atom.scm | |
| parent | 443582b2667e86ecac47de7bb77cbcc5bb354256 (diff) | |
atom: use posts instead of entries externally
Diffstat (limited to 'tests/atom.scm')
| -rw-r--r-- | tests/atom.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/atom.scm b/tests/atom.scm index 5d47ef6..c6cd268 100644 --- a/tests/atom.scm +++ b/tests/atom.scm @@ -13,7 +13,7 @@ (atom:feed #:title "Mi feed" #:subtitle "Este es mi feed" #:uri "https://feed.elenq.tech" - #:entries (list + #:posts (list (atom:entry #:title "first entry" #:published (string/ISO->date "2023-03-01") #:authors (list me) @@ -24,7 +24,7 @@ ;; TODO: Test media (reads file) (let ((atom-feed (with-output-to-string (lambda () (atom:render feed))))) - (test-assert (string=? atom-feed + (test-assert (string=? (pk atom-feed) "<?xml version=\"1.0\" encoding=\"utf-8\"?><feed xmlns=\"http://www.w3.org/2005/Atom\"><id>https://feed.elenq.tech</id><title>Mi feed</title><link href=\"https://feed.elenq.tech\" rel=\"self\" /><updated>2023-03-01T00:00:00+0100</updated><subtitle>Este es mi feed</subtitle><entry><id>https://feed.elenq.tech/first-entry</id><title>first entry</title><published>2023-03-01T00:00:00+0100</published><updated>2023-03-01T00:00:00+0100</updated><author><name>Ekaitz</name><uri>https://elenq.tech</uri><email>ekaitz@elenq.tech</email></author><summary type=\"html\"><p>Este es el resumen</p></summary><content type=\"html\"><p>Este es el contenido</p></content><category term=\"una\" /><category term=\"dos\" /><category term=\"tres\" /></entry></feed>"))) (test-end "Atom feed") |