The Trunk: CollectionsTests-pre.281.mcz

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

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

Name: CollectionsTests-pre.281
Author: pre
Time: 29 August 2017, 4:48:41.041834 pm
UUID: af95c7d9-1681-c941-81a5-d74691576b20
Ancestors: CollectionsTests-eem.280

Adds and modifies tests for the HTMLReadWriter to cater for nested attributes

=============== Diff against CollectionsTests-eem.280 ===============

Item was changed:
  ----- Method: HtmlReadWriterTest>>test02Mixed (in category 'tests') -----
  test02Mixed
  "At the moment, the html code generation is kind of verbose..."
 
  {
+ '<b>Hello, </b><b><i>World!!</i></b>!!'.
+ 'Hello, World!!!!' asText
+ addAttribute: TextEmphasis bold from: 1 to: 13;
- '<b>Hello, </b><b><i>World!!</i></b>'.
- 'Hello, World!!' asText
- addAttribute: TextEmphasis bold;
  addAttribute: TextEmphasis italic from: 8 to: 13.
  } 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].!

Item was changed:
  ----- Method: HtmlReadWriterTest>>test08MultilineCode (in category 'tests') -----
  test08MultilineCode
 
  { '<code>
  <pre>3 + 7.
  3 &gt; 4.</pre></code>' .
  Text string: '3 + 7.
+ 3 > 4.' runs: (RunArray runs: #(13) values: { {TextDoIt evalString: '3 + 7.
- 3 > 4.' runs: (RunArray runs: #(13 ) values: { {TextDoIt evalString: '3 + 7.
  3 > 4.' } } )
  }  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].!

Item was added:
+ ----- Method: HtmlReadWriterTest>>test15NestedTagsStillEndBefore (in category 'tests') -----
+ test15NestedTagsStillEndBefore
+
+ {
+ '<span><i>Hallo</i> welt</span>'.
+ 'Hallo welt' asText
+ addAttribute: TextEmphasis italic from: 1 to: 5.
+ } pairsDo: [:expectedHtml :expectedText |
+ self convertHtml: expectedHtml.
+ self assert: expectedText string equals: text string.
+ self assert: expectedText runs equals: text runs]!