Marcel Taeumel uploaded a new version of NetworkTests to project The Trunk: http://source.squeak.org/trunk/NetworkTests-mt.70.mcz
==================== Summary ====================
Name: NetworkTests-mt.70 Author: mt Time: 1 June 2023, 11:21:01.558467 am UUID: 0e10ad2b-f9d2-3f4a-8c00-60ca3650bbc1 Ancestors: NetworkTests-ct.69
Complements Network-mt.276
=============== Diff against NetworkTests-ct.69 ===============
Item was changed: SystemOrganization addCategory: #'NetworkTests-Kernel'! SystemOrganization addCategory: #'NetworkTests-Protocols'! SystemOrganization addCategory: #'NetworkTests-RFC822'! SystemOrganization addCategory: #'NetworkTests-URI'! SystemOrganization addCategory: #'NetworkTests-UUID'! SystemOrganization addCategory: #'NetworkTests-Url'! + SystemOrganization addCategory: #'NetworkTests-MIME'!
Item was changed: ClassTestCase subclass: #MIMEDocumentTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: 'NetworkTests-MIME'! - category: 'NetworkTests-Url'!
Item was added: + ClassTestCase subclass: #MIMETypeTest + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'NetworkTests-MIME'!
Item was added: + ----- Method: MIMETypeTest>>testFromString (in category 'tests') ----- + testFromString + + #( + 'text/plain' 'text' 'plain' + 'image/png' 'image' 'png' + 'image/*' 'image' '*' + 'application/octet-stream' 'application' 'octet-stream' + 'application/xhtml+xml' 'application' 'xhtml+xml' + ) groupsDo: [:raw :main :sub | + | type | + type := MIMEType fromMIMEString: raw. + self + assert: main equals: type main; + assert: sub equals: type sub].!
Item was added: + ----- Method: MIMETypeTest>>testFromStringWithParameters (in category 'tests') ----- + testFromStringWithParameters + + #( + 'text/plain;charset=utf8' + 'text' 'plain' 1 'charset' 'utf8' + 'text/plain; charset=utf8' "extra whitespace" + 'text' 'plain' 1 'charset' 'utf8' + 'Message/Partial; number=2; total=3; id="oc=jpbe0M2Yt4s@thumper.bellcore.com"' + 'Message' 'Partial' 3 'id' 'oc=jpbe0M2Yt4s@thumper.bellcore.com' + ) groupsDo: [:raw :main :sub :numParams :key :value | + | type | + type := MIMEType fromMIMEString: raw. + self + assert: main equals: type main; + assert: sub equals: type sub; + assert: numParams equals: type parameters size; + assert: value equals: (type parameters at: key)].!