Christoph Thiede uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-ct.396.mcz
==================== Summary ====================
Name: CollectionsTests-ct.396 Author: ct Time: 1 June 2023, 9:40:49.988127 pm UUID: 03b74a4e-4cf7-0b45-ade9-044f785faba8 Ancestors: CollectionsTests-ct.395
Complements Collections-ct.1041 (Base32MimeConverter).
=============== Diff against CollectionsTests-ct.395 ===============
Item was added: + RFC4648MimeConverterTest subclass: #Base32MimeConverterTest + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'CollectionsTests-Streams'!
Item was added: + ----- Method: Base32MimeConverterTest>>testBase32Encoded (in category 'tests') ----- + testBase32Encoded + + | encoded | + encoded := (self classToBeTested mimeEncode: message) contents. + self assert: string base32Encoded equals: encoded.!
Item was added: + ----- Method: Base32MimeConverterTest>>testMimeEncodeDecode (in category 'tests') ----- + testMimeEncodeDecode + + | encoded | + encoded := self classToBeTested mimeEncode: message. + self assert: 'JBUSAVDIMVZGKII=' equals: encoded contents. + self assert: message contents equals: (self classToBeTested mimeDecodeToChars: encoded) contents. + + "Encoding should start from the beginning of the stream." + message reset. + message skip: 2. + encoded := self classToBeTested mimeEncode: message. + self assert: 'JBUSAVDIMVZGKII=' equals: encoded contents. + + "Encoding should start from the current position of the stream." + message reset. + message skip: 2. + encoded := self classToBeTested mimeEncodeContinue: message. + self assert: 'EBKGQZLSMUQQ====' equals: encoded contents.!
Item was added: + ----- Method: Base32MimeConverterTest>>testMimeEncodeDecodeMultiLine (in category 'tests') ----- + testMimeEncodeDecodeMultiLine + + | encoded | + encoded := (self classToBeTested mimeEncode: (String new: 100 withAll: $a) readStream) contents. + self assert: encoded = + 'MFQWCYLBMFQWCYLBMFQWCYLBMFQWCYLBMFQWCYLBMFQWCYLBMFQWCYLBMFQWCYLBMFQWCYLB + MFQWCYLBMFQWCYLBMFQWCYLBMFQWCYLBMFQWCYLBMFQWCYLBMFQWCYLBMFQWCYLBMFQWCYLB + MFQWCYLBMFQWCYLB'. + + encoded := (self classToBeTested mimeEncode: (String new: 100 withAll: $a) readStream multiLine: false) contents. + self assert: encoded = + 'MFQWCYLBMFQWCYLBMFQWCYLBMFQWCYLBMFQWCYLBMFQWCYLBMFQWCYLBMFQWCYLBMFQWCYLBMFQWCYLBMFQWCYLBMFQWCYLBMFQWCYLBMFQWCYLBMFQWCYLBMFQWCYLBMFQWCYLBMFQWCYLBMFQWCYLBMFQWCYLB'.!
Item was added: + ----- Method: Base32MimeConverterTest>>testOnByteArray (in category 'tests') ----- + testOnByteArray + + self assert: string base32Encoded = string asByteArray base32Encoded.!
Item was changed: + RFC4648MimeConverterTest subclass: #Base64MimeConverterTest + instanceVariableNames: '' - TestCase subclass: #Base64MimeConverterTest - instanceVariableNames: 'message' classVariableNames: '' poolDictionaries: '' category: 'CollectionsTests-Streams'!
!Base64MimeConverterTest commentStamp: '<historical>' prior: 0! This is the unit test for the class Base64MimeConverter. Unit tests are a good way to exercise the functionality of your system in a repeatable and automatic manner. They are therefore recommended if you plan to release anything. For more information, see: - http://www.c2.com/cgi/wiki?UnitTest - http://minnow.cc.gatech.edu/squeak/1547 - the sunit class category!
Item was removed: - ----- Method: Base64MimeConverterTest>>setUp (in category 'running') ----- - setUp - message := 'Hi There!!' readStream. - !
Item was changed: ----- Method: Base64MimeConverterTest>>testBase64Encoded (in category 'tests') ----- testBase64Encoded + | encoded | + encoded := (self classToBeTested mimeEncode: message) contents. + self assert: string base64Encoded equals: encoded.! - encoded := (Base64MimeConverter mimeEncode: message) contents. - self assert: encoded = 'Hi There!!' base64Encoded. - !
Item was changed: ----- Method: Base64MimeConverterTest>>testMimeEncodeDecode (in category 'tests') ----- testMimeEncodeDecode
| encoded | + encoded := self classToBeTested mimeEncode: message. + self assert: 'SGkgVGhlcmUh' equals: encoded contents. + self assert: message contents equals: (self classToBeTested mimeDecodeToChars: encoded) contents. + - encoded := Base64MimeConverter mimeEncode: message. - self assert: (encoded contents = 'SGkgVGhlcmUh'). - self assert: ((Base64MimeConverter mimeDecodeToChars: encoded) contents = message contents). - "Encoding should start from the beginning of the stream." message reset. message skip: 2. + encoded := self classToBeTested mimeEncode: message. + self assert: 'SGkgVGhlcmUh' equals: encoded contents. - encoded := Base64MimeConverter mimeEncode: message. - self assert: (encoded contents = 'SGkgVGhlcmUh'). "Encoding should start from the current position of the stream." message reset. message skip: 2. + encoded := self classToBeTested mimeEncodeContinue: message. + self assert: 'IFRoZXJlIQ==' equals: encoded contents.! - encoded := Base64MimeConverter mimeEncodeContinue: message. - self assert: (encoded contents = 'IFRoZXJlIQ==').!
Item was changed: ----- Method: Base64MimeConverterTest>>testMimeEncodeDecodeMultiLine (in category 'tests') ----- testMimeEncodeDecodeMultiLine
| encoded | + encoded := (self classToBeTested mimeEncode: (String new: 100 withAll: $a) readStream) contents. - encoded := (Base64MimeConverter mimeEncode: (String new: 100 withAll: $a) readStream) contents. self assert: encoded = 'YWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFh YWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYQ=='. + + encoded := (self classToBeTested mimeEncode: (String new: 100 withAll: $a) readStream multiLine: false) contents. - - encoded := (Base64MimeConverter mimeEncode: (String new: 100 withAll: $a) readStream multiLine: false) contents. self assert: encoded = + 'YWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYQ=='.! - 'YWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYQ=='. - !
Item was changed: ----- Method: Base64MimeConverterTest>>testOnByteArray (in category 'tests') ----- testOnByteArray + + self assert: string base64Encoded = string asByteArray base64Encoded.! - self assert: ('Hi There!!' base64Encoded = 'Hi There!!' asByteArray base64Encoded)!
Item was added: + ClassTestCase subclass: #RFC4648MimeConverterTest + instanceVariableNames: 'string message' + classVariableNames: '' + poolDictionaries: '' + category: 'CollectionsTests-Streams'!
Item was added: + ----- Method: RFC4648MimeConverterTest class>>isAbstract (in category 'testing') ----- + isAbstract + + ^ self name = #RFC4648MimeConverterTest!
Item was added: + ----- Method: RFC4648MimeConverterTest>>setUp (in category 'running') ----- + setUp + string := 'Hi There!!'. + message := string readStream. + !
Item was added: + ----- Method: StringTest>>testBase32 (in category 'tests - converting') ----- + testBase32 + + self + assert: 'JBSWY3DPEBLW64TMMQ======' base32Decoded = 'Hello World'; + assert: 'Hello World' base32Encoded = 'JBSWY3DPEBLW64TMMQ======'; + assert: (String new: 100 withAll: $x) base32Encoded = 'PB4HQ6DYPB4HQ6DYPB4HQ6DYPB4HQ6DYPB4HQ6DYPB4HQ6DYPB4HQ6DYPB4HQ6DYPB4HQ6DYPB4HQ6DYPB4HQ6DYPB4HQ6DYPB4HQ6DYPB4HQ6DYPB4HQ6DYPB4HQ6DYPB4HQ6DYPB4HQ6DYPB4HQ6DYPB4HQ6DY'.!