The Trunk: MorphicTests-mt.67.mcz

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