The Trunk: GraphicsTests-bp.41.mcz

Bernhard Pieber uploaded a new version of GraphicsTests to project The Trunk:
http://source.squeak.org/trunk/GraphicsTests-bp.41.mcz

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

Name: GraphicsTests-bp.41
Author: bp
Time: 8 December 2016, 4:45:10.55569 pm
UUID: 0312d401-a01f-4fce-bd06-b5bc121f5f73
Ancestors: GraphicsTests-nice.40, GraphicsTests-bp.39

merged in tests for gettin a rectangle's halves and quadrants

=============== Diff against GraphicsTests-nice.40 ===============

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!