The Trunk: CollectionsTests-topa.274.mcz

Tobias Pape uploaded a new version of CollectionsTests to project The Trunk:
http://source.squeak.org/trunk/CollectionsTests-topa.274.mcz

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

Name: CollectionsTests-topa.274
Author: topa
Time: 10 February 2017, 5:31:44.149227 pm
UUID: 423db775-bc0b-40e8-8960-6c7073e21cd9
Ancestors: CollectionsTests-topa.273

HtmlReadWriterTest: Support alignment, strike through (Collections-topa.733)

=============== Diff against CollectionsTests-topa.273 ===============

Item was added:
+ ----- Method: HtmlReadWriterTest>>test09StruckOut (in category 'tests') -----
+ test09StruckOut
+
+ {
+ '<s>Hello, World!!</s>'.
+ 'Hello, World!!' asText addAttribute: TextEmphasis struckOut.
+
+ '<s>Hello</s>, World!!'.
+ 'Hello, World!!' asText addAttribute: TextEmphasis struckOut from: 1 to: 5.
+ } 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>>test10Underline (in category 'tests') -----
+ test10Underline
+
+ {
+ '<u>Hello, World!!</u>'.
+ 'Hello, World!!' asText addAttribute: TextEmphasis underlined.
+
+ '<u>Hello</u>, World!!'.
+ 'Hello, World!!' asText addAttribute: TextEmphasis underlined from: 1 to: 5.
+ } 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>>test11Alignment (in category 'tests') -----
+ test11Alignment
+
+ {
+ " '<center>Hello, World!!</center>'.
+ 'Hello, World!!' asText addAttribute: TextAlignment centered.
+ "
+ '<div align=left>Hello, World!!</div>'.
+ 'Hello, World!!' asText addAttribute: TextAlignment leftFlush.
+
+ '<div align=right>Hello, World!!</div>'.
+ 'Hello, World!!' asText addAttribute: TextAlignment rightFlush.
+
+ '<div align=justify>Hello, World!!</div>'.
+ 'Hello, World!!' asText addAttribute: TextAlignment justified.
+ } 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>>test12AlignmentMixed (in category 'tests') -----
+ test12AlignmentMixed
+
+ {
+ '<center>Hello, <i>World!!</i></center>'.
+ 'Hello, World!!' asText
+ addAttribute: TextAlignment centered;
+ 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].!