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