Patrick Rein uploaded a new version of NetworkTests to project The Trunk: http://source.squeak.org/trunk/NetworkTests-pre.71.mcz
==================== Summary ====================
Name: NetworkTests-pre.71 Author: pre Time: 1 June 2023, 2:06:15.662896 pm UUID: 1679aa6d-5412-2a4c-8167-2fc6cfd0153c Ancestors: NetworkTests-mt.70
Tests checking whether MIMEType equality is checked in a case insensitive way.
=============== Diff against NetworkTests-mt.70 ===============
Item was added: + ----- Method: MIMETypeTest>>testMIMEMainAndSubCompareCaseInsensitive (in category 'tests') ----- + testMIMEMainAndSubCompareCaseInsensitive + + #("main-1 sub-1 main-2 sub-2" + 'text' 'plain' 'Text' 'plain' + 'text' 'plain' 'text' 'Plain' + 'text' 'plain' 'TEXT' 'PLAIN') + groupsOf: 4 atATimeDo: [:main1 :sub1 :main2 :sub2 | |type1 type2| + type1 := MIMEType main: main1 sub: sub1. + type2 := MIMEType main: main2 sub: sub2. + self assert: type1 = type2. + self assert: type1 hash = type2 hash.] + !
Item was added: + ----- Method: MIMETypeTest>>testMIMEParameterAccessIsCaseInsensitive (in category 'tests') ----- + testMIMEParameterAccessIsCaseInsensitive + + #("mimeString parameter" + 'text/plain;charset=utf8' 'charset' + 'text/plain;charset=utf8' 'Charset' + 'text/plain;Charset=utf8' 'charset' + 'text/plain;Charset=utf8' 'Charset' + 'text/plain;CHARSET=utf8' 'CHARSET') + groupsOf: 2 atATimeDo: [:mimeString :parameterName | | type | + type := MIMEType fromMIMEString: mimeString. + self assert: 'utf8' equals: (type parametersAt: parameterName).] + !
squeak-dev@lists.squeakfoundation.org