[Pkg] The Trunk: MorphicTests-mt.49.mcz

[commits at source.squeak.org]

Marcel Taeumel uploaded a new version of MorphicTests to project The Trunk:
http://source.squeak.org/trunk/MorphicTests-mt.49.mcz

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

Name: MorphicTests-mt.49
Author: mt
Time: 9 January 2019, 9:03:20.071737 am
UUID: 5059d74b-faf5-4c8c-89e9-1afe93a71d2c
Ancestors: MorphicTests-mt.48

Adds a test to ensure full-refresh culling works for system windows.

Complementary update for Morphic-mt.1474.

=============== Diff against MorphicTests-mt.48 ===============

Item was added:
+ TestCase subclass: #SystemWindowTest
+ 	instanceVariableNames: 'sut'
+ 	classVariableNames: ''
+ 	poolDictionaries: ''
+ 	category: 'MorphicTests-Widgets'!

Item was added:
+ ----- Method: SystemWindowTest>>setUp (in category 'as yet unclassified') -----
+ setUp
+ 
+ 	super setUp.
+ 	sut := SystemWindow new.!

Item was added:
+ ----- Method: SystemWindowTest>>test01Culling (in category 'as yet unclassified') -----
+ test01Culling
+ 	"Check whether system windows follow the specs for occlusion culling. See WorldState >> #drawWorld:submorphs:invalidAreasOn: and Morph >> #areasRemainingToFill:."
+ 	
+ 	sut extent: 500 at 500; fullBounds.
+ 	
+ 	self assert: (sut areasRemainingToFill: (20 at 20 center: sut center)) isEmpty.
+ 	self assert: (sut areasRemainingToFill: sut bounds) isEmpty.
+ 	self assert: (sut areasRemainingToFill: sut outerBounds) isEmpty.
+ 	self assert: (sut areasRemainingToFill: sut fullBounds) isEmpty.!