[Pkg] The Trunk: GraphicsTests-bp.41.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Dec 8 15:56:08 UTC 2016


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



More information about the Packages mailing list