The Trunk: Tests-mt.441.mcz

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

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

Name: Tests-mt.441
Author: mt
Time: 11 October 2020, 1:46:15.182652 pm
UUID: a7f0172b-8d24-0142-9577-e6a8eab4fc38
Ancestors: Tests-eem.440

Refactoring 'Active' variables -- Step 2 of 2. Removes all uses of Active(World|Hand|Event) by replacing those with "self current(World|Hand|Event)" or "Project current world" when required to not add/cement Morphic dependency.

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

=============== Diff against Tests-eem.440 ===============

Item was changed:
  ----- Method: HandBugs>>testTargetPoint (in category 'tests') -----
  testTargetPoint
  "self new testTargetPoint"
  "self run: #testTargetPoint"
 
  "This should not throw an exception."
+ self currentHand targetPoint
- ActiveHand targetPoint
 
  !

Item was changed:
  ----- Method: LocaleTest>>setUp (in category 'running') -----
  setUp
 
  previousID := Locale current localeID.
+ previousKeyboardInterpreter := self currentHand instVarNamed: 'keyboardInterpreter'.
- previousKeyboardInterpreter := ActiveHand instVarNamed: 'keyboardInterpreter'.
  previousClipboardInterpreter := Clipboard default instVarNamed: 'interpreter'.
+ self currentHand clearKeyboardInterpreter.
+ Clipboard default clearInterpreter.!
- ActiveHand clearKeyboardInterpreter.
- Clipboard default clearInterpreter.
- !

Item was changed:
  ----- Method: LocaleTest>>tearDown (in category 'running') -----
  tearDown
 
+ self currentHand instVarNamed: 'keyboardInterpreter' put: previousKeyboardInterpreter.
- ActiveHand instVarNamed: 'keyboardInterpreter' put: previousKeyboardInterpreter.
  Clipboard default instVarNamed: 'interpreter' put: previousClipboardInterpreter.
  Locale switchToID: (LocaleID isoLanguage: previousID).!

Item was changed:
  ----- Method: LocaleTest>>testLocaleChanged (in category 'tests') -----
  testLocaleChanged
  "self debug: #testLocaleChanged"
  "LanguageEnvironment >> startUp is called from Prject >> localeChanged"
  <timeout: 60> "takes quite a while"
  Project current updateLocaleDependents.
+ self assert: (self currentHand instVarNamed: 'keyboardInterpreter') isNil description: 'non-nil keyboardInterpreter'.
- self assert: (ActiveHand instVarNamed: 'keyboardInterpreter') isNil description: 'non-nil keyboardInterpreter'.
  self assert: (Clipboard default instVarNamed: 'interpreter') isNil description: 'non-nil interpreter'.
  Locale switchToID: (LocaleID isoLanguage: 'ja').
  self assert: 'ja' equals: Locale current localeID isoLanguage.
  Locale switchToID: (LocaleID isoLanguage: 'en').
  self assert: 'en' equals: Locale current localeID isoLanguage.!