[squeak-dev] The Trunk: GraphicsTests-nice.52.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Feb 12 22:59:24 UTC 2019


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



More information about the Squeak-dev mailing list