The Inbox: GraphicsTests-bp.39.mcz

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@20 corner: 30@50.
+ self assert: (10@35 corner: 30@50) equals: r bottomHalf.
+ self assert: (10@42 corner: 30@50) equals: r bottomHalf bottomHalf!

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

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

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

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

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

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

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