A new version of ToolsTests was added to project The Inbox:
http://source.squeak.org/inbox/ToolsTests-jr.118.mcz

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

Name: ToolsTests-jr.118
Author: jr
Time: 21 August 2022, 9:06:40.995081 pm
UUID: 292dd600-5f48-f845-b502-21e9cdb959b8
Ancestors: ToolsTests-jr.117

Tests for Browser back and forward navigation

Extend MesssageNavigationTest for the case when nothing is viewed in the client.

=============== Diff against ToolsTests-jr.117 ===============

Item was added:
+ ----- Method: BrowserTest>>testNavigateBetweenMethodsAndClasses (in category 'tests') -----
+ testNavigateBetweenMethodsAndClasses
+ 	browser selectClassReferenced: (ClassReference class: Browser);
+ 		selectMethodReferenced: (MethodReference class: Browser selector: #classList);
+ 		selectMethodReferenced: (MethodReference class: Browser selector: #selectedClass);
+ 		selectMethodReferenced: (MethodReference class: MessageSet selector: #selectedMessage);
+ 		selectClassReferenced: (ClassReference class: Object).
+ 	browser goForward.
+ 	self assert: #Object equals: browser selectedClassName;
+ 		assert: Object category equals: browser selectedSystemCategory;
+ 		assert: #editClass equals: browser editSelection.
+ 	browser goBack.
+ 	self assert: #selectedMessage equals: browser selectedMessageName;
+ 		assert: (MessageSet organization categoryOfElement: #selectedMessage) equals: browser selectedMessageCategoryName;
+ 		assert: #MessageSet equals: browser selectedClassName;
+ 		assert: MessageSet category equals: browser selectedSystemCategory;
+ 		assert: #editMessage equals: browser editSelection.
+ 	browser goForward.
+ 	self assert: #Object equals: browser selectedClassName;
+ 		assert: Object category equals: browser selectedSystemCategory;
+ 		assert: #editClass equals: browser editSelection.
+ 	browser goBack; goBack.
+ 	self assert: #selectedClass equals: browser selectedMessageName;
+ 		assert: (Browser organization categoryOfElement: #selectedClass) equals: browser selectedMessageCategoryName;
+ 		assert: #Browser equals: browser selectedClassName;
+ 		assert: Browser category equals: browser selectedSystemCategory;
+ 		assert: #editMessage equals: browser editSelection.
+ 	browser goBack.
+ 	self assert: #classList equals: browser selectedMessageName;
+ 		assert: (Browser organization categoryOfElement: #classList) equals: browser selectedMessageCategoryName;
+ 		assert: #Browser equals: browser selectedClassName;
+ 		assert: Browser category equals: browser selectedSystemCategory;
+ 		assert: #editMessage equals: browser editSelection.
+ 	browser goBack.
+ 	self assert: #Browser equals: browser selectedClassName;
+ 		assert: Browser category equals: browser selectedSystemCategory;
+ 		assert: #editClass equals: browser editSelection.
+ 	browser goBack.
+ 	self assert: #Browser equals: browser selectedClassName;
+ 		assert: Browser category equals: browser selectedSystemCategory;
+ 		assert: #editClass equals: browser editSelection.!

Item was added:
+ ----- Method: MessageNavigationTest>>testCanIndicateThatNothingIsShown (in category 'tests') -----
+ testCanIndicateThatNothingIsShown
+ 	navigation current: #a.
+ 	navigation current: nil.
+ 	self assert: nil equals: navigation goForward.
+ 	self assert: #a equals: navigation goBack.!