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

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

Name: MorphicTests-mt.67
Author: mt
Time: 11 October 2020, 1:43:10.847652 pm
UUID: c53bd4c8-984d-1748-ae1a-d9fee789872f
Ancestors: MorphicTests-pre.66

Refactoring 'Active' variables -- Step 2 of 2. 

Adds tests to harden this refactoring for the future. :-)

See http://forum.world.st/Changeset-Eliminating-global-state-from-Morphic-td5121690.html

=============== Diff against MorphicTests-pre.66 ===============

Item was added:
+ ----- Method: WorldStateTest>>testActiveVariablesObsoletion (in category 'tests') -----
+ testActiveVariablesObsoletion
+ 	"Only the code for backwards compatibility may access the bindings for Active(World|Hand|Event)."
+ 	
+ 	#(ActiveWorld ActiveHand ActiveEvent) do: [:literal |
+ 		self
+ 			assert: 1 "Active(World|Hand|Event)Variable class >> #value:during:"
+ 			equals: (self systemNavigation allCallsOnClass: (self environment bindingOf: literal)) size].!

Item was added:
+ ----- Method: WorldStateTest>>testActiveVariablesRenamed (in category 'tests') -----
+ testActiveVariablesRenamed
+ 	"Document the desire to rename Active(World|Hand|Event)Variable to Active(World|Hand|Event) after the Squeak 6.0 release."
+ 	
+ 	#(ActiveWorld ActiveHand ActiveEvent) do: [:className |
+ 		(SystemVersion current majorVersionNumber >= 6
+ 			and: [SystemVersion current minorVersionNumber >= 1])
+ 				ifTrue: [self assert: ((Smalltalk classNamed: className) includesBehavior: DynamicVariable)]
+ 				ifFalse: [self deny: (Smalltalk at: className) isBehavior] ].!