Marcel Taeumel uploaded a new version of ToolsTests to project The Trunk: http://source.squeak.org/trunk/ToolsTests-mt.123.mcz
==================== Summary ====================
Name: ToolsTests-mt.123 Author: mt Time: 13 September 2023, 4:02:00.258147 pm UUID: 4cc4562c-0922-cf40-a784-654b46732b17 Ancestors: ToolsTests-mt.122
Adds a test that documents whether the TreeBrowser still hides classes due to strange class-category layout.
=============== Diff against ToolsTests-mt.122 ===============
Item was added: + ----- Method: TreeBrowserTest>>testClassListNoMissing (in category 'tests - system category list') ----- + testClassListNoMissing + "Check whether the tree of classes is complete for each class category. This means that also classes with missing intermediate parents are there somehow." + + | allIssues | + allIssues := OrderedCollection new. + + browser systemOrganizer categories do: [:cat | + | expected found toCheck | + browser selectSystemCategory: cat. + expected := browser allClassesInCategory. + found := #() asOrderedCollection. + toCheck := browser classRoots asOrderedCollection. + [toCheck notEmpty] whileTrue: [ + found addLast: toCheck removeFirst. + toCheck addAll: (browser classChildren: found last)]. + (expected copyWithoutAll: found) ifNotEmpty: [:issues | + allIssues add: cat -> issues]]. + + self + assert: allIssues isEmpty + description: ('{1} classes missing in {2} categories.' + format: {allIssues inject: 0 into: [:sum :issue | sum + issue value size]. allIssues size}).!
Hmm... in case you wondered why those "SmartSyntaxPlugins" such as SocketPlugin cannot be found in the TreeBrowser ... I will fix this. :-D
Best, Marcel
Am 13.09.2023 16:02:15 schrieb commits@source.squeak.org commits@source.squeak.org: Marcel Taeumel uploaded a new version of ToolsTests to project The Trunk: http://source.squeak.org/trunk/ToolsTests-mt.123.mcz
==================== Summary ====================
Name: ToolsTests-mt.123 Author: mt Time: 13 September 2023, 4:02:00.258147 pm UUID: 4cc4562c-0922-cf40-a784-654b46732b17 Ancestors: ToolsTests-mt.122
Adds a test that documents whether the TreeBrowser still hides classes due to strange class-category layout.
=============== Diff against ToolsTests-mt.122 ===============
Item was added: + ----- Method: TreeBrowserTest>>testClassListNoMissing (in category 'tests - system category list') ----- + testClassListNoMissing + "Check whether the tree of classes is complete for each class category. This means that also classes with missing intermediate parents are there somehow." + + | allIssues | + allIssues := OrderedCollection new. + + browser systemOrganizer categories do: [:cat | + | expected found toCheck | + browser selectSystemCategory: cat. + expected := browser allClassesInCategory. + found := #() asOrderedCollection. + toCheck := browser classRoots asOrderedCollection. + [toCheck notEmpty] whileTrue: [ + found addLast: toCheck removeFirst. + toCheck addAll: (browser classChildren: found last)]. + (expected copyWithoutAll: found) ifNotEmpty: [:issues | + allIssues add: cat -> issues]]. + + self + assert: allIssues isEmpty + description: ('{1} classes missing in {2} categories.' + format: {allIssues inject: 0 into: [:sum :issue | sum + issue value size]. allIssues size}).!
squeak-dev@lists.squeakfoundation.org