tim Rowledge uploaded a new version of ToolsTests to project The Trunk:
http://source.squeak.org/trunk/ToolsTests-tpr.91.mcz==================== Summary ====================
Name: ToolsTests-tpr.91
Author: tpr
Time: 8 January 2019, 4:29:04.023888 pm
UUID: 3b747719-25b8-4da3-9ad7-c84426dfb6bf
Ancestors: ToolsTests-pre.90
Use FileServices as the registry instead of FileList
=============== Diff against ToolsTests-pre.90 ===============
Item was changed:
----- Method: DummyToolWorkingWithFileList class>>initialize (in category 'class initialization') -----
initialize
"self initialize"
+ FileServices registerFileReader: self
- FileList registerFileReader: self
!
Item was changed:
----- Method: DummyToolWorkingWithFileList class>>unload (in category 'class initialization') -----
unload
+ FileServices unregisterFileReader: self !
- FileList unregisterFileReader: self !
Item was changed:
----- Method: DummyToolWorkingWithFileList class>>unregister (in category 'class initialization') -----
unregister
+ FileServices unregisterFileReader: self.
- FileList unregisterFileReader: self.
!
Item was changed:
----- Method: FileListTest>>testAllRegisteredServices (in category 'tests') -----
testAllRegisteredServices
"(self selector: #testAllRegisteredServices) debug"
"This should not throw an exception."
+ FileServices allRegisteredServices.!
- FileList allRegisteredServices.!
Item was changed:
----- Method: FileListTest>>testMenuReturned (in category 'tests') -----
testMenuReturned
"(self selector: #testToolRegistered) debug"
+ self assert: (FileServices registeredFileReaderClasses includes: DummyToolWorkingWithFileList)!
- self assert: (FileList registeredFileReaderClasses includes: DummyToolWorkingWithFileList)!
Item was changed:
----- Method: FileListTest>>testToolRegistered (in category 'tests') -----
testToolRegistered
"(self selector: #testToolRegistered) debug"
+ self assert: (FileServices registeredFileReaderClasses includes: DummyToolWorkingWithFileList)!
- self assert: (FileList registeredFileReaderClasses includes: DummyToolWorkingWithFileList)!
Item was changed:
----- Method: FileListTest>>testToolRegisteredUsingInterface (in category 'tests') -----
testToolRegisteredUsingInterface
"(self selector: #testToolRegisteredUsingInterface) debug"
+ self assert: (FileServices isReaderNamedRegistered: #DummyToolWorkingWithFileList)!
- self assert: (FileList isReaderNamedRegistered: #DummyToolWorkingWithFileList)!