Test output for internet-message [ok]

Testing time: 0s

'/usr/home/chicken/salmonella/build/salmonella-run-publish/chicken/bin/csi' -script run.scm < /dev/null 2>&1

-- testing comments ----------------------------------------------------------
"(a comment)" -> (#\) #\t #\n #\e #\m #\m #\o #\c #\space #\a #\() ... [ PASS]
1 test completed in 0 seconds.
1 out of 1 (100%) test passed.
-- done testing comments -----------------------------------------------------


-- testing fields ------------------------------------------------------------
"Subject: Test\r\n" -> ((Subject " Test")) ........................... [ PASS]
"Subject:Test\r\n" -> ((Subject "Test")) ............................. [ PASS]
"SUBJECT: Test\r\n" -> ((Subject " Test")) ........................... [ PASS]
"SUBJECT: This is a\r\n test\r\n" -> ((Subject " This is a test")) ... [ PASS]
"Keywords: ErbB receptors\r\n" -> ((Keywords (" ErbB " "receptors")))  [ PASS]
"Keywords:  ErbB receptors, EGF\r\n" -> ((Keywords ("  ErbB " "receptors") (" EGF")))  [ PASS]
"Keywords: ErbB receptors, EGF, Signal transduction, Dimer, Subcellular\r\n localization, Fluorescent protein\r\n" -> ((Keywords (" ErbB " "receptors") (" EGF") (" Signal " "transduction") (" Dimer") (" Subcellular " "localization") (" Fluorescent " "protein")))  [ PASS]
"Date: Fri, 29 Aug 2008 12:21:46 +0200\r\n" -> ((Date (day-of-week "Fri") (date "29" "Aug" "2008") (time "12" "21" "46" "+" "02" "00")))  [ PASS]
"Date: Fri,  2 Aug 2008 12:21:46 +0200\r\n" -> ((Date (day-of-week "Fri") (date "2" "Aug" "2008") (time "12" "21" "46" "+" "02" "00")))  [ PASS]
"From: John Doe <jdoe@machine.example>\r\n" -> ((From (mailbox-list (mailbox (display-name (" John " "Doe ")) (local-part "jdoe") (domain "machine.example")))))  [ PASS]
"To: Mary Smith <mary@example.net>\r\n" -> ((To (mailbox (display-name (" Mary " "Smith ")) (local-part "mary") (domain "example.net"))))  [ PASS]
"From: \"Joe Q. Public\" <john.q.public@example.com>\r\n" -> ((From (mailbox-list (mailbox (display-name (" Joe Q. Public ")) (local-part "john.q.public") (domain "example.com")))))  [ PASS]
"To: Mary Smith <mary@x.test>, jdoe@example.org\r\n" -> ((To (mailbox (display-name (" Mary " "Smith ")) (local-part "mary") (domain "x.test")) (mailbox (local-part " jdoe") (domain "example.org"))))  [ PASS]
"To:  Mary Smith <mary@x.test>, jdoe@example.org, Who? <one@y.test>\r\n" -> ((To (mailbox (display-name ("  Mary " "Smith ")) (local-part "mary") (domain "x.test")) (mailbox (local-part " jdoe") (domain "example.org")) (mailbox (display-name (" Who? ")) (local-part "one") (domain "y.test"))))  [ PASS]
"Cc: <boss@nil.test>, \"Giant; \\\"Big\\\" Box\" <sysservices@example.net>\r\n" -> ((Cc (mailbox (local-part "boss") (domain "nil.test")) (mailbox (display-name (" Giant; \"Big\" Box ")) (local-part "sysservices") (domain "example.net"))))  [ PASS]
"To: A Group:Ed Jones <c@a.test>,joe@where.test,John <jdoe@one.test>;\r\n" -> ((To (group (display-name (" A " "Group")) (mailbox-list (mailbox (display-name ("Ed " "Jones ")) (local-part "c") (domain "a.test")) (mailbox (local-part "joe") (domain "where.test")) (mailbox (display-name ("John ")) (local-part "jdoe") (domain "one.test"))))))  [ PASS]
"Message-ID: <1234@local.machine.example>\r\n" -> ((Message-id (message-id "1234" "local.machine.example")))  [ PASS]
"Message-ID: <5678.21-Nov-1997@example.com>\r\n" -> ((Message-id (message-id "5678.21-Nov-1997" "example.com")))  [ PASS]
"Message-ID: <testabcd.1234@silly.example>\r\n" -> ((Message-id (message-id "testabcd.1234" "silly.example")))  [ PASS]
"References: <1234@local.machine.example> <3456@example.net>\r\n" -> ((References (message-id "1234" "local.machine.example") (message-id "3456" "example.net")))  [ PASS]
"Received: from node.example by x.y.test; 21 Nov 1997 10:01:22 -0600\r\n" -> ((Received (received-token " from ") (received-token "node.example ") (received-token "by ") (received-token "x.y.test") (date "21" "Nov" "1997") (time "10" "01" "22" "-" "06" "00")))  [ PASS]
"Received: from x.y.test\r\n    by example.net\r\n      via TCP\r\n      with ESMTP\r\n      id ABC12345\r\n       for <mary@example.net>;  21 Nov 1997 10:05:43 -0600\r\n" -> ((Received (received-token " from ") (received-token "x.y.test    ") (received-token "by ") (received-token "example.net      ") (received-token "via ") (received-token "TCP      ") (received-token "with ") (received-token "ESMTP      ") (received-token "id ") (received-token "ABC12345       ") (received-token "for ") (local-part "mary") (domain "example.net") (date "21" "Nov" "1997") (time "10" "05" "43" "-" "06" "00")))  [ PASS]
"Content-Type: text/plain; charset=ISO-8859-1\r\n" -> ((Content-type " text/plain; charset=ISO-8859-1"))  [ PASS]
23 tests completed in 13/500 seconds.
23 out of 23 (100%) tests passed.
-- done testing fields -------------------------------------------------------


-- testing message -----------------------------------------------------------
"From: John Doe <jdoe@machine.example>\r\nTo: Mary Smith <mary@example.net>\r\nSubject: Saying Hello\r\nDate: Fri, 21 Nov 1997 09:55:06 -0600\r\nMessage-ID: <1234@local.machine.example>\r\n\r\nThis is a message just to say hello.\r\nSo, \r\n\r\n\"Hello\"." -> ((message (fields (From (mailbox-list (mailbox (display-name (" John " "Doe ")) (local-part "jdoe") (domain "machine.example")))) (To (mailbox (display-name (" Mary " "Smith ")) (local-part "mary") (domain "example.net"))) (Subject " Saying Hello") (Date (day-of-week "Fri") (date "21" "Nov" "1997") (time "09" "55" "06" "-" "06" "00")) (Message-id (message-id "1234" "local.machine.example"))) (body "This is a message just to say hello." "So, " "\"Hello\".")))  [ PASS]
"Return-Path: <chicken-users-bounces+ivan.g.raikov=gmail.com@nongnu.org>\r\nReceived: from lists.gnu.org (lists.gnu.org [199.232.76.165])\r\n   by mx.google.com with ESMTP id c14si3375477ana.41.2009.03.25.08.31.52;\r\n   Wed, 25 Mar 2009 08:31:53 -0700 (PDT)\r\nReceived: by fxm17 with SMTP id 17so92196fxm.34\r\n  for <chicken-users@nongnu.org>; Wed, 25 Mar 2009 08:31:25 -0700 (PDT)\r\nDKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=gamma;\r\n\th=domainkey-signature:mime-version:received:date:message-id:subject\r\n\t:from:to:content-type:content-transfer-encoding;\r\n\tbh=3/gbdTTH19Zaqq1OYytiEg9lxqROJljdO4gXiBtCWl0=;\r\n\tb=nFDjeva/nLcPlkXRsGTdHHkM15GSujBCy85V3vFXElSHEX2FRcGnkNc01N6xbJVpA8\r\n\ts0hDM1gQwPvcuesuxJZ7UP79tbnBQqHAcOyMMQG2vcrhPjiGM2Zfx48cnfk7inydM5uL\r\n\taqKQLpqdQmoAfUoc7uqkCNwaD1wqRY86GbmFk=\r\nMIME-Version: 1.0\r\nDate: Wed, 25 Mar 2009 16:31:24 +0100\r\nX-Gnus-Mail-Source: imap:imap.gmail.com:INBOX\r\nMessage-ID: <bd22bd7a0903250831k28553845he5099d4414f9b7d5@mail.gmail.com>\r\nFrom: felix winkelmann <bunny351@gmail.com>\r\nTo: chicken chicken <chicken-users@nongnu.org>\r\nContent-Type: text/plain; charset=ISO-8859-1\r\nContent-Transfer-Encoding: 7bit\r\nSubject: [Chicken-users] testing release candidate for 4.0.0\r\nSender: chicken-users-bounces+ivan.g.raikov=gmail.com@nongnu.org\r\nLines: 22\r\n\r\nHi!\r\n\r\n\r\nThe current release candidate can be found at:\r\n\r\nhttp://www.call-with-current-continuation.org/chicken-4.0.0.tar.gz\r\n\r\nI tested it on several systems (mingw(+msys), linux), but would\r\nappreciate if others could give it a try. Note that some minor\r\nrecent trunk changes didn't make it, due to unclear portability.\r\n\r\ncheers,\r\nfelix" -> ((message (fields (Return-path (local-part "chicken-users-bounces+ivan.g.raikov=gmail.com") (domain "nongnu.org")) (Received (received-token " from ") (received-token "lists.gnu.org    ") (received-token "by ") (received-token "mx.google.com ") (received-token "with ") (received-token "ESMTP ") (received-token "id ") (received-token "c14si3375477ana.41.2009.03.25.08.31.52") (day-of-week "Wed") (date "25" "Mar" "2009") (time "08" "31" "53" "-" "07" "00")) (Received (received-token " by ") (received-token "fxm17 ") (received-token "with ") (received-token "SMTP ") (received-token "id ") (received-token "17so92196fxm.34  ") (received-token "for ") (local-part "chicken-users") (domain "nongnu.org") (day-of-week "Wed") (date "25" "Mar" "2009") (time "08" "31" "25" "-" "07" "00")) (Dkim-signature " v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=gamma;\th=domainkey-signature:mime-version:received:date:message-id:subject\t:from:to:content-type:content-transfer-encoding;\tbh=3/gbdTTH19Zaqq1OYytiEg9lxqROJljdO4gXiBtCWl0=;\tb=nFDjeva/nLcPlkXRsGTdHHkM15GSujBCy85V3vFXElSHEX2FRcGnkNc01N6xbJVpA8\ts0hDM1gQwPvcuesuxJZ7UP79tbnBQqHAcOyMMQG2vcrhPjiGM2Zfx48cnfk7inydM5uL\taqKQLpqdQmoAfUoc7uqkCNwaD1wqRY86GbmFk=") (Mime-version " 1.0") (Date (day-of-week "Wed") (date "25" "Mar" "2009") (time "16" "31" "24" "+" "01" "00")) (X-gnus-mail-source " imap:imap.gmail.com:INBOX") (Message-id (message-id "bd22bd7a0903250831k28553845he5099d4414f9b7d5" "mail.gmail.com")) (From (mailbox-list (mailbox (display-name (" felix " "winkelmann ")) (local-part "bunny351") (domain "gmail.com")))) (To (mailbox (display-name (" chicken " "chicken ")) (local-part "chicken-users") (domain "nongnu.org"))) (Content-type " text/plain; charset=ISO-8859-1") (Content-transfer-encoding " 7bit") (Subject " [Chicken-users] testing release candidate for 4.0.0") (Sender (mailbox (local-part " chicken-users-bounces+ivan.g.raikov=gmail.com") (domain "nongnu.org"))) (Lines " 22")) (body "Hi!" "The current release candidate can be found at:" "http://www.call-with-current-continuation.org/chicken-4.0.0.tar.gz" "I tested it on several systems (mingw(+msys), linux), but would" "appreciate if others could give it a try. Note that some minor" "recent trunk changes didn't make it, due to unclear portability." "cheers," "felix")))  [ PASS]
2 tests completed in 1/50 seconds.
2 out of 2 (100%) tests passed.
-- done testing message ------------------------------------------------------