Patrick Rein uploaded a new version of NetworkTests to project The Trunk: http://source.squeak.org/trunk/NetworkTests-pre.47.mcz
==================== Summary ====================
Name: NetworkTests-pre.47 Author: pre Time: 12 May 2017, 5:38:09.138874 pm UUID: 08607de4-b6f0-3d4a-b2b5-e510203fc346 Ancestors: NetworkTests-pre.46
Tests for supporting features for email handling including a message for creating a reply to a message and a rfc 822 compliant printing of DateAndTime objects
=============== Diff against NetworkTests-pre.46 ===============
Item was added: + TestCase subclass: #MailDateAndTimeTest + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'NetworkTests-RFC822'!
Item was added: + ----- Method: MailDateAndTimeTest>>testBasicDate (in category 'as yet unclassified') ----- + testBasicDate + + | date | + date := DateAndTime year: 2017 month: 2 day: 3. + self assert: 'Fri, 03 Feb 2017 00:00:00 +0200' equals: date asMailMessageString!
Item was added: + ----- Method: MailDateAndTimeTest>>testBasicDateAndTime (in category 'as yet unclassified') ----- + testBasicDateAndTime + + | date | + date := DateAndTime year: 2000 month: 6 day: 22 hour: 14 minute: 17 second: 47 offset: (Duration days: 0 hours: -5 minutes: 0 seconds: 0 nanoSeconds:0). + self assert: 'Thu, 22 Jun 2000 14:17:47 -0500' equals: date asMailMessageString + !
Item was added: + ----- Method: MailMessageTest>>fixtureMail (in category 'fixtures') ----- + fixtureMail + + ^ MailMessage empty + from: self fixtureSenderMail; + to: self fixtureReceiverMails; + messageId: self fixtureMessageId; + dateTime: self fixtureMessageDate; + subject: self fixtureSubject; + yourself!
Item was added: + ----- Method: MailMessageTest>>fixtureMessageDate (in category 'fixtures') ----- + fixtureMessageDate + + ^ DateAndTime year: 2017 month: 2 day: 5 hour: 14 minute: 15 !
Item was added: + ----- Method: MailMessageTest>>fixtureMessageId (in category 'fixtures') ----- + fixtureMessageId + + ^ 'ijoisjdfoihasoidhfosihd@mail.com'!
Item was added: + ----- Method: MailMessageTest>>fixtureReceiverMails (in category 'fixtures') ----- + fixtureReceiverMails + + ^ 'receiver@mail.com'!
Item was added: + ----- Method: MailMessageTest>>fixtureSenderMail (in category 'fixtures') ----- + fixtureSenderMail + + ^ 'sender@mail.com'!
Item was added: + ----- Method: MailMessageTest>>fixtureSubject (in category 'fixtures') ----- + fixtureSubject + + ^ 'This is the subject'!
Item was added: + ----- Method: MailMessageTest>>testCreateAReplyForFrom (in category 'testing') ----- + testCreateAReplyForFrom + + | replyMail | + replyMail := MailMessage replyFor: self fixtureMail. + self assert: self fixtureSenderMail equals: replyMail to.!
Item was added: + ----- Method: MailMessageTest>>testCreateAReplyForReplyTo (in category 'testing') ----- + testCreateAReplyForReplyTo + + | replyMail startMail | + startMail := self fixtureMail + setField: 'reply-to' toString: 'anothersender@mail.com'; + yourself. + replyMail := MailMessage replyFor: startMail. + self assert: 'anothersender@mail.com' equals: replyMail to.!
Item was added: + ----- Method: MailMessageTest>>testCreateAReplyForReplyTos (in category 'testing') ----- + testCreateAReplyForReplyTos + + | replyMail startMail | + startMail := self fixtureMail + setField: 'reply-to' toString: 'anothersender@mail.com, andanothersender@mail.com'; + yourself. + replyMail := MailMessage replyFor: startMail. + self assert: 'anothersender@mail.com, andanothersender@mail.com' equals: replyMail to.!
Item was added: + ----- Method: MailMessageTest>>testCreateAReplyHasANewSubject (in category 'testing') ----- + testCreateAReplyHasANewSubject + + | replyMail | + replyMail := MailMessage replyFor: self fixtureMail. + self assert: 'Re: ' , self fixtureSubject equals: replyMail subject.!
Item was added: + ----- Method: MailMessageTest>>testCreateAReplyHasANewSubjectUnlessWasAlreadyReply (in category 'testing') ----- + testCreateAReplyHasANewSubjectUnlessWasAlreadyReply + + | replyMail startMail | + startMail := self fixtureMail + subject: 'Re: Subject'; + yourself. + replyMail := MailMessage replyFor: startMail. + self assert: 'Re: Subject' equals: replyMail subject.!
Item was changed: + ----- Method: MailMessageTest>>testDateStampFractionalSecondFormatting (in category 'testing') ----- - ----- Method: MailMessageTest>>testDateStampFractionalSecondFormatting (in category 'as yet unclassified') ----- testDateStampFractionalSecondFormatting self assert: (MailMessage dateStamp: (DateAndTime fromSeconds: 1.234)) = 'Tue, 1 Jan 1901 00:00:01' description: 'RFC822 (and RFC2822) forbids non-integer seconds in dates'!
Item was added: + ----- Method: MailMessageTest>>testReplyContainsInReplyTo (in category 'testing') ----- + testReplyContainsInReplyTo + + | replyMail | + replyMail := MailMessage replyFor: self fixtureMail. + self assert: self fixtureMessageId equals: (replyMail fieldNamed: 'in-reply-to' ifAbsent: [self fail]) mainValue.!
Item was added: + ----- Method: MailMessageTest>>testReplyContainsReferences (in category 'testing') ----- + testReplyContainsReferences + + | replyMail lastReply | + replyMail := MailMessage replyFor: self fixtureMail. + replyMail + setField: 'message-id' toString: 'abc'; + from: 'me@mail.com'. + lastReply := MailMessage replyFor: replyMail. + + self + assert: self fixtureMessageId , ', abc' + equals: (lastReply fieldNamed: 'references' ifAbsent: [self fail]) mainValue.!
packages@lists.squeakfoundation.org