Bernhard Pieber uploaded a new version of GraphicsTests to project The Inbox:
http://source.squeak.org/inbox/GraphicsTests-bp.39.mcz

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

Name: GraphicsTests-bp.39
Author: bp
Time: 10 January 2016, 11:30:43.61 pm
UUID: b1b53ddc-8ad0-4fb4-8cd8-9a5139dc66ef
Ancestors: GraphicsTests-fbs.38

tests for drag to edges resize methods

=============== Diff against GraphicsTests-fbs.38 ===============

Item was added:
+ ----- Method: RectangleTest>>testBottomHalf (in category 'testing') -----
+ testBottomHalf
+ 	| r |
+ 	r := 10 at 20 corner: 30 at 50.
+ 	self assert: (10 at 35 corner: 30 at 50) equals: r bottomHalf.
+ 	self assert: (10 at 42 corner: 30 at 50) equals: r bottomHalf bottomHalf!

Item was added:
+ ----- Method: RectangleTest>>testBottomLeftQuadrant (in category 'testing') -----
+ testBottomLeftQuadrant
+ 	| r |
+ 	r := 10 at 20 corner: 30 at 50.
+ 	self assert: (10 at 35 corner: 20 at 50) equals: r bottomLeftQuadrant.
+ 	self assert: (10 at 42 corner: 15 at 50) equals: r bottomLeftQuadrant bottomLeftQuadrant!

Item was added:
+ ----- Method: RectangleTest>>testBottomRightQuadrant (in category 'testing') -----
+ testBottomRightQuadrant
+ 	| r |
+ 	r := 10 at 20 corner: 30 at 50.
+ 	self assert: (20 at 35 corner: 30 at 50) equals: r bottomRightQuadrant.
+ 	self assert: (25 at 42 corner: 30 at 50) equals: r bottomRightQuadrant bottomRightQuadrant!

Item was added:
+ ----- Method: RectangleTest>>testLeftHalf (in category 'testing') -----
+ testLeftHalf
+ 	| r |
+ 	r := 10 at 20 corner: 30 at 50.
+ 	self assert: (10 at 20 corner: 20 at 50) equals: r leftHalf.
+ 	self assert: (10 at 20 corner: 15 at 50) equals: r leftHalf leftHalf!

Item was added:
+ ----- Method: RectangleTest>>testRightHalf (in category 'testing') -----
+ testRightHalf
+ 	| r |
+ 	r := 10 at 20 corner: 30 at 50.
+ 	self assert: (20 at 20 corner: 30 at 50) equals: r rightHalf.
+ 	self assert: (25 at 20 corner: 30 at 50) equals: r rightHalf rightHalf!

Item was added:
+ ----- Method: RectangleTest>>testTopHalf (in category 'testing') -----
+ testTopHalf
+ 	| r |
+ 	r := 10 at 20 corner: 30 at 50.
+ 	self assert: (10 at 20 corner: 30 at 35) equals: r topHalf.
+ 	self assert: (10 at 20 corner: 30 at 27) equals: r topHalf topHalf!

Item was added:
+ ----- Method: RectangleTest>>testTopLeftQuadrant (in category 'testing') -----
+ testTopLeftQuadrant
+ 	| r |
+ 	r := 10 at 20 corner: 30 at 50.
+ 	self assert: (10 at 20 corner: 20 at 35) equals: r topLeftQuadrant.
+ 	self assert: (10 at 20 corner: 15 at 27) equals: r topLeftQuadrant topLeftQuadrant!

Item was added:
+ ----- Method: RectangleTest>>testTopRightQuadrant (in category 'testing') -----
+ testTopRightQuadrant
+ 	| r |
+ 	r := 10 at 20 corner: 30 at 50.
+ 	self assert: (20 at 20 corner: 30 at 35) equals: r topRightQuadrant.
+ 	self assert: (25 at 20 corner: 30 at 27) equals: r topRightQuadrant topRightQuadrant!