tim Rowledge uploaded a new version of Tests to project The Trunk:
http://source.squeak.org/trunk/Tests-tpr.406.mcz==================== Summary ====================
Name: Tests-tpr.406
Author: tpr
Time: 8 January 2019, 4:27:16.862116 pm
UUID: aa18d326-0e4c-4b9f-9554-b6f9ce309ba4
Ancestors: Tests-eem.405
Use FileServices as the registry instead of FileList
=============== Diff against Tests-eem.405 ===============
Item was changed:
SystemOrganization addCategory: #'Tests-Bugs'!
SystemOrganization addCategory: #'Tests-Compiler'!
SystemOrganization addCategory: #'Tests-Dependencies'!
SystemOrganization addCategory: #'Tests-Digital Signatures'!
SystemOrganization addCategory: #'Tests-Environments'!
SystemOrganization addCategory: #'Tests-Exceptions'!
SystemOrganization addCategory: #'Tests-FilePackage'!
SystemOrganization addCategory: #'Tests-Files'!
SystemOrganization addCategory: #'Tests-Finalization'!
SystemOrganization addCategory: #'Tests-Hex'!
SystemOrganization addCategory: #'Tests-Installer-Core'!
SystemOrganization addCategory: #'Tests-Localization'!
SystemOrganization addCategory: #'Tests-Monticello'!
SystemOrganization addCategory: #'Tests-Monticello-Mocks'!
SystemOrganization addCategory: #'Tests-Monticello-Utils'!
SystemOrganization addCategory: #'Tests-Object Events'!
SystemOrganization addCategory: #'Tests-ObjectsAsMethods'!
SystemOrganization addCategory: #'Tests-PrimCallController'!
SystemOrganization addCategory: #'Tests-Release'!
SystemOrganization addCategory: #'Tests-System-Digital Signatures'!
SystemOrganization addCategory: #'Tests-System-Object Storage'!
SystemOrganization addCategory: #'Tests-System-Preferences'!
SystemOrganization addCategory: #'Tests-System-Support'!
SystemOrganization addCategory: #'Tests-Utilities'!
SystemOrganization addCategory: #'Tests-VM'!
SystemOrganization addCategory: #'Tests-System-Applications'!
+ SystemOrganization addCategory: #'Tests-MonticelloMocks'!
Item was changed:
----- Method: MCSerializationTest>>assertClass:providesServices: (in category 'asserting') -----
assertClass: readerClass providesServices: labels
| services suffix |
suffix := readerClass extension.
+ self assert: (FileServices isReaderNamedRegistered: readerClass name).
- self assert: (FileList isReaderNamedRegistered: readerClass name).
services := readerClass fileReaderServicesForFile: 'foo' suffix: suffix.
self assert: ((services collect: [:service | service buttonLabel]) includesAllOf: labels)!