[Pkg] The Trunk: CollectionsTests-pre.289.mcz

[commits at source.squeak.org]

Patrick Rein uploaded a new version of CollectionsTests to project The Trunk:
http://source.squeak.org/trunk/CollectionsTests-pre.289.mcz

==================== Summary ====================

Name: CollectionsTests-pre.289
Author: pre
Time: 30 April 2018, 3:43:01.993101 pm
UUID: 46cee9a7-0d7e-ab45-9dea-7b783e5992d0
Ancestors: CollectionsTests-pre.288

Adds test cases for q format and categorizes test methods for the quoted printable mime converter.

=============== Diff against CollectionsTests-pre.288 ===============

Item was added:
+ TestCase subclass: #QFormatMimeConverterTest
+ 	instanceVariableNames: 'message'
+ 	classVariableNames: ''
+ 	poolDictionaries: ''
+ 	category: 'CollectionsTests-Streams'!

Item was added:
+ ----- Method: QFormatMimeConverterTest>>setUp (in category 'running') -----
+ setUp
+ 	message := 'Hü Thörä!!' readStream.
+ !

Item was added:
+ ----- Method: QFormatMimeConverterTest>>testDecode (in category 'running') -----
+ testDecode
+ 
+ 	| encodedString decodedString |
+ 	encodedString := '=E0'.
+ 	decodedString := QEncodingMimeConverter mimeDecode: encodedString as: WideString.
+ 	self assert: 'à' equals: decodedString.
+ 	
+ 	encodedString := 'H=FC_Th=F6r=E4!!'.
+ 	decodedString := QEncodingMimeConverter mimeDecode: encodedString as: WideString.
+ 	self assert: 'Hü Thörä!!' equals: decodedString.
+ 	
+ 	encodedString := 'H=FC=20Th=F6r=E4!!'.
+ 	decodedString := QEncodingMimeConverter mimeDecode: encodedString as: WideString.
+ 	self assert: 'Hü Thörä!!' equals: decodedString.!

Item was added:
+ ----- Method: QFormatMimeConverterTest>>testEncodeSimpleString (in category 'running') -----
+ testEncodeSimpleString
+ 
+ 	| encodedString |
+ 	encodedString := QEncodingMimeConverter mimeEncode: message.
+ 	self assert: '=?UTF-8?Q?H=C3=BC?= =?UTF-8?Q?Th=C3=B6r=C3=A4!!?=' equals: encodedString.
+ 	!

Item was added:
+ ----- Method: QFormatMimeConverterTest>>testEncodeSimpleStringWithQuestionMark (in category 'running') -----
+ testEncodeSimpleStringWithQuestionMark
+ 
+ 	| encodedString |
+ 	encodedString := QEncodingMimeConverter mimeEncode: 'Is üt?'.
+ 	self assert: 'Is =?UTF-8?Q?=C3=BCt=3F?=' equals: encodedString.
+ 	!

Item was added:
+ ----- Method: QFormatMimeConverterTest>>testRoundtrip (in category 'running') -----
+ testRoundtrip
+ 
+ 	| result start |
+ 	start := 'Is üt?'.
+ 	result := ((QEncodingMimeConverter mimeEncode: start) as: String) decodeMimeHeader.
+ 	self assert: start equals: result.
+ 	!

Item was changed:
+ ----- Method: QuotedPrintableMimeConverterTest>>setUp (in category 'running') -----
- ----- Method: QuotedPrintableMimeConverterTest>>setUp (in category 'as yet unclassified') -----
  setUp
  	message := 'Hü Thörä!!' readStream.
  !

Item was changed:
+ ----- Method: QuotedPrintableMimeConverterTest>>testDecode (in category 'tests') -----
- ----- Method: QuotedPrintableMimeConverterTest>>testDecode (in category 'as yet unclassified') -----
  testDecode
  
  	| encodedString decodedString |
  	encodedString := '=E0'.
  	decodedString := QuotedPrintableMimeConverter mimeDecode: encodedString as: WideString.
  	self assert: 'à' equals: decodedString.
  	
  	encodedString := 'H=FC Th=F6r=E4!!'.
  	decodedString := QuotedPrintableMimeConverter mimeDecode: encodedString as: WideString.
+ 	self assert: 'Hü Thörä!!' equals: decodedString.!
- 	self assert: 'Hü Thörä!!' equals: decodedString.
- 	
- 	!

Item was changed:
+ ----- Method: QuotedPrintableMimeConverterTest>>testDecodeCrLfToCr (in category 'tests') -----
- ----- Method: QuotedPrintableMimeConverterTest>>testDecodeCrLfToCr (in category 'as yet unclassified') -----
  testDecodeCrLfToCr
  
  	| encodedString decodedString targetString |
  	encodedString := ((WriteStream on: '') 
  						<< 'a'; crlf; << 'b') contents.
  	decodedString := QuotedPrintableMimeConverter mimeDecode: encodedString as: WideString.
  	targetString := encodedString := ((WriteStream on: '') 
  						<< 'a'; cr; << 'b') contents.
  	self assert: targetString equals: decodedString.!

Item was changed:
+ ----- Method: QuotedPrintableMimeConverterTest>>testDecodeMultiline (in category 'tests') -----
- ----- Method: QuotedPrintableMimeConverterTest>>testDecodeMultiline (in category 'as yet unclassified') -----
  testDecodeMultiline
  
  	| encodedString decodedString |
  	encodedString := 'A multiline =
  encoded text which isn''t'.
  	decodedString := QuotedPrintableMimeConverter mimeDecode: encodedString as: WideString.
  	self assert: 'A multiline encoded text which isn''t' equals: decodedString.
  	!

Item was changed:
+ ----- Method: QuotedPrintableMimeConverterTest>>testEncodeEqualSign (in category 'tests') -----
- ----- Method: QuotedPrintableMimeConverterTest>>testEncodeEqualSign (in category 'as yet unclassified') -----
  testEncodeEqualSign
  
  	| encodedString |
  	encodedString := QuotedPrintableMimeConverter mimeEncode: 'e=mc2'.
  	self assert: 'e=3Dmc2' equals: encodedString.
  	!

Item was changed:
+ ----- Method: QuotedPrintableMimeConverterTest>>testEncodeMultilineString (in category 'tests') -----
- ----- Method: QuotedPrintableMimeConverterTest>>testEncodeMultilineString (in category 'as yet unclassified') -----
  testEncodeMultilineString
  
  	| encodedString sourceString targetString |
  	sourceString := 'a multi-
  line string'.
  	encodedString := QuotedPrintableMimeConverter mimeEncode: sourceString.
  	
  	targetString := 'a multi-' , String crlf , 'line string'.
  	self assert: targetString equals: encodedString.!

Item was changed:
+ ----- Method: QuotedPrintableMimeConverterTest>>testEncodeSimpleString (in category 'tests') -----
- ----- Method: QuotedPrintableMimeConverterTest>>testEncodeSimpleString (in category 'as yet unclassified') -----
  testEncodeSimpleString
  
  	| encodedString |
  	encodedString := QuotedPrintableMimeConverter mimeEncode: message.
  	self assert: 'H=FC Th=F6r=E4!!' equals: encodedString.
  	!

Item was changed:
+ ----- Method: QuotedPrintableMimeConverterTest>>testEncodeWhitespace (in category 'tests') -----
- ----- Method: QuotedPrintableMimeConverterTest>>testEncodeWhitespace (in category 'as yet unclassified') -----
  testEncodeWhitespace
  
  	| encodedString sourceString targetString |
  	sourceString := 'a string	with all the whitespace'.
  	encodedString := QuotedPrintableMimeConverter mimeEncode: sourceString.
  	
  	targetString := 'a string	with all the whitespace'.
  	self assert: targetString equals: encodedString.!

Item was changed:
+ ----- Method: QuotedPrintableMimeConverterTest>>testEncodingBreaksUpLongLInes (in category 'tests') -----
- ----- Method: QuotedPrintableMimeConverterTest>>testEncodingBreaksUpLongLInes (in category 'as yet unclassified') -----
  testEncodingBreaksUpLongLInes
  
  	| encodedString |
  	encodedString := QuotedPrintableMimeConverter mimeEncode: 'This is a very long message which has more than 76 characters due to this additional part of the sentence.'.
  	self assert: 'This is a very long message which has more than 76 characters due to this=', String crlf , ' additional part of the sentence.' equals: encodedString.
  	!