Marcel Taeumel uploaded a new version of CollectionsTests to project The Trunk:
http://source.squeak.org/trunk/CollectionsTests-mt.242.mcz==================== Summary ====================
Name: CollectionsTests-mt.242
Author: mt
Time: 3 May 2015, 8:50:35.161 pm
UUID: 988cc75a-c808-c040-b94c-e8f9cf0623d7
Ancestors: CollectionsTests-mt.241
More tests for html read/writer
=============== Diff against CollectionsTests-mt.241 ===============
Item was added:
+ ----- Method: HtmlReadWriterTest>>test04LineBreaks (in category 'tests') -----
+ test04LineBreaks
+
+ {
+ 'Hello, World!!<br>
+ '.
+ 'Hello, World!!
+ ' asText.
+
+ 'Hello, <b>World!!<br>
+ </b>'.
+ 'Hello, World!!
+ ' asText
+ addAttribute: TextEmphasis bold from: 8 to: 14.
+ } pairsDo: [:expectedHtml :expectedText |
+
+ self convertHtml: expectedHtml.
+ self assert: expectedText string equals: text string.
+ self assert: expectedText runs equals: text runs.
+
+ self convertText: expectedText.
+ self assert: expectedHtml equals: html.
+
+ self convertHtml: html.
+ self convertText: text.
+ self assert: expectedHtml equals: html.
+
+
+ ].!
Item was added:
+ ----- Method: HtmlReadWriterTest>>test05Escaping (in category 'tests') -----
+ test05Escaping
+
+ {
+ '<b>Morph>>#drawOn:</b>'.
+ 'Morph>>#drawOn:' asText addAttribute: TextEmphasis bold.
+ } pairsDo: [:expectedHtml :expectedText |
+
+ self convertHtml: expectedHtml.
+ self assert: expectedText string equals: text string.
+ self assert: expectedText runs equals: text runs.
+
+ self convertText: expectedText.
+ self assert: expectedHtml equals: html].!