Test output for atom [fail]

Testing time: 0s

'/usr/home/chicken/salmonella/build/salmonella-run-publish/chicken/bin/csi' -script run.scm < /dev/null 2>&1
Write brief atom example from the RFC 4287 spec ...................... [ FAIL]
    expected #t but got #f
    (string=?
      (with-output-to-string
        (lambda ()
          (write-atom-doc
            (make-atom-doc
              (make-feed
                #:title
                (make-title "Example Feed")
                #:links
                (list (make-link #:uri "http://example.org"))
                #:updated
                "2003-12-13T18:30:02Z"
                #:authors
                (list (make-author #:name "John Doe"))
                #:id
                "urn:uuid:60a76c80-d399-11d9-b93C-0003939e0af6"
                #:entries
                (list (make-entry
                        #:title
                        (make-title "Atom-Powered Robots Run Amok")
                        #:links
                        (list (make-link
                                #:uri
                                "http://example.org/2003/12/13/atom03"))
                        #:id
                        "urn:uuid:1225c695-cfb8-4ebb-aaaa-80da344efa6a"
                        #:updated
                        "2003-12-13T18:30:02Z"
                        #:summary
                        (make-summary "Some text."))))))))
      "<?xml version=\"1.0\" encoding=\"utf-8\"?>\n<feed xmlns=\"http://www.w3.org/2005/Atom\">\n  <author>\n    <name>John Doe</name>\n  </author>\n  <generator uri=\"http://3e8.org/chickadee/atom\" version=\"0.1.1\">atom egg for Chicken</generator>\n  <id>urn:uuid:60a76c80-d399-11d9-b93C-0003939e0af6</id>\n  <link href=\"http://example.org\" rel=\"alternate\" />\n  <title type=\"text\">Example Feed</title>\n  <updated>2003-12-13T18:30:02Z</updated>\n  <entry>\n    <id>urn:uuid:1225c695-cfb8-4ebb-aaaa-80da344efa6a</id>\n    <title type=\"text\">Atom-Powered Robots Run Amok</title>\n    <updated>2003-12-13T18:30:02Z</updated>\n    <summary type=\"text\">Some text.</summary>\n    <link href=\"http://example.org/2003/12/13/atom03\" rel=\"alternate\" />\n  </entry>\n</feed>")
Write extensive atom example from the RFC 4287 spec .................. [ PASS]