Christoph Thiede uploaded a new version of NetworkTests to project The Trunk: http://source.squeak.org/trunk/NetworkTests-ct.66.mcz
==================== Summary ====================
Name: NetworkTests-ct.66 Author: ct Time: 19 May 2023, 1:51:11.776195 pm UUID: 030995f9-d9dc-8b4b-bbbc-8ee972a131be Ancestors: NetworkTests-ct.65
Complements Network-ct.269 (support for ascdate/cdate format in MailMessage headers).
=============== Diff against NetworkTests-ct.65 ===============
Item was changed: + ClassTestCase subclass: #MailMessageTest - TestCase subclass: #MailMessageTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'NetworkTests-RFC822'!
!MailMessageTest commentStamp: 'tonyg 9/12/2011 09:17' prior: 0! This is the unit test for the class MailMessage.!
Item was changed: + ----- Method: MailMessageTest>>testCreateAReplyHasANewSubjectUnlessWasAlreadyReply (in category 'tests') ----- - ----- 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 added: + ----- Method: MailMessageTest>>testDate (in category 'tests') ----- + testDate + + #('Thu, 22 Jun 2000 14:17:47 -500' '2000-06-22T14:17:47-0500' + 'Thu, 22 Jun 2000 14:17:47 --500' '2000-06-22T14:17:47+0000' + "'on, 04 apr 2001 14:57:32' '2001-04-04T14:57:32'" + 'Thu, 16 Aug 2007 05:22:36 +0100' '2007-08-16T05:22:36+0100' + 'Sat Jan 28 04:01:00 2012' '2012-01-28T04:01:00+0000' + 'Wed, 1 Feb 2023 09:28:22 0000' '2023-02-01T09:28:22+0000') + pairsDo: [:string :expected | + | date expectedDate | + date := self classToBeTested new + setField: 'date' toString: string; + date. + expectedDate := DateAndTime fromString: expected. + self assert: expectedDate asLocal equals: date].!
packages@lists.squeakfoundation.org