The Trunk: GraphicsTests-nice.52.mcz

Nicolas Cellier uploaded a new version of GraphicsTests to project The Trunk:
http://source.squeak.org/trunk/GraphicsTests-nice.52.mcz

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

Name: GraphicsTests-nice.52
Author: nice
Time: 12 February 2019, 11:59:21.898092 pm
UUID: a952a9e4-3d82-45e8-b538-ff74679e9722
Ancestors: GraphicsTests-mt.51

Don't rely on Interval = Array.

=============== Diff against GraphicsTests-mt.51 ===============

Item was changed:
  ----- Method: CharacterScannerTest>>testBreakAnywhereWhenFirstCharDoesNotFit (in category 'testing') -----
  testBreakAnywhereWhenFirstCharDoesNotFit
  | p text cbs |
  text := ((String new: 2 withAll: $m) , (String space) , (String new: 2 withAll: $m)) asText.
  p := NewParagraph new.
  p
  compose: text
  style: style
  from: 1
  in: (0 @ 0 corner: mWidth-1 @ (style lineGrid * 7)).
  self assert: p lines size equals: text size + 1 description: 'Each character is on a new line, past end also'.
+ self assert: (p lines collect: #first) equals: (1 to: text size + 1) asArray description: 'Each character is on a new line'.
- self assert: (p lines collect: #first) equals: (1 to: text size + 1) description: 'Each character is on a new line'.
 
  cbs := (1 to: text size + 1) collect: [:i | p characterBlockForIndex: i].
  self assert: (cbs collect: #left as: Set) size = 1 description: 'Selecting before each character align on left'
 
  !