The Trunk: CollectionsTests-pre.289.mcz

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.
  !