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!