The Trunk: ToolsTests-pre.88.mcz

> On Dec 1, 2018, at 8:30 AM, [hidden email] wrote:
>
> Patrick Rein uploaded a new version of ToolsTests to project The Trunk:
> http://source.squeak.org/trunk/ToolsTests-pre.88.mcz
>
> ==================== Summary ====================
>
> Name: ToolsTests-pre.88
> Author: pre
> Time: 1 December 2018, 5:30:40.389597 pm
> UUID: e09a182b-d053-484f-a21d-089e43b4ee45
> Ancestors: ToolsTests-pre.87
>
> Recategorized tests into the tests category (sorry could not resist). No other changes.

>
> =============== Diff against ToolsTests-pre.87 ===============
>
> Item was changed:
> + ----- Method: BrowseTest>>testBrowseClass (in category 'tests') -----
> - ----- Method: BrowseTest>>testBrowseClass (in category 'testing') -----
>  testBrowseClass
>      "self debug: #testBrowseClass"
>      | browsersBefore browsersAfter opened |
>      self ensureMorphic.
>      
>      browsersBefore := self currentBrowsers.
>      self withImmediatelyOpeningWindowsDo: [1 class browse].
>      browsersAfter := self currentBrowsers.
>      
>      self assert:  (browsersAfter size  = (browsersBefore size + 1)).
>      opened := browsersAfter removeAll: browsersBefore; yourself.
>      self assert:  (opened size = 1).
>      opened := opened asArray first.
>      self assert: (opened model selectedClass == SmallInteger).
>      
>      opened delete
>      
>      
>      !
>
> Item was changed:
> + ----- Method: BrowseTest>>testBrowseHierarchyClass (in category 'tests') -----
> - ----- Method: BrowseTest>>testBrowseHierarchyClass (in category 'testing') -----
>  testBrowseHierarchyClass
>      "self debug: #testBrowseHierarchyClass"
>      | browsersBefore browsersAfter opened |
>      self ensureMorphic.
>      
>      browsersBefore := self currentHierarchyBrowsers.
>      self withImmediatelyOpeningWindowsDo: [1 class browseHierarchy].
>      browsersAfter := self currentHierarchyBrowsers.
>      
>      self assert:  (browsersAfter size  = (browsersBefore size + 1)).
>      opened := browsersAfter removeAll: browsersBefore; yourself.
>      self assert:  (opened size = 1).
>      opened := opened asArray first.
>      self assert: (opened model selectedClass == SmallInteger).
>      
>      opened delete
>      
>      
>      !
>
> Item was changed:
> + ----- Method: BrowseTest>>testBrowseHierarchyInstance (in category 'tests') -----
> - ----- Method: BrowseTest>>testBrowseHierarchyInstance (in category 'testing') -----
>  testBrowseHierarchyInstance
>      "self debug: #testBrowseHierarchyInstance"
>      | browsersBefore browsersAfter opened |
>      self ensureMorphic.
>      
>      browsersBefore := self currentHierarchyBrowsers.
>      self withImmediatelyOpeningWindowsDo: [1 browseHierarchy].
>      browsersAfter := self currentHierarchyBrowsers.
>      
>      self assert:  (browsersAfter size  = (browsersBefore size + 1)).
>      opened := browsersAfter removeAll: browsersBefore; yourself.
>      self assert:  (opened size = 1).
>      opened := opened asArray first.
>      self assert: (opened model selectedClass == SmallInteger).
>      
>      opened delete
>      
>      
>      !
>
> Item was changed:
> + ----- Method: BrowseTest>>testBrowseHierarchyMetaclass (in category 'tests') -----
> - ----- Method: BrowseTest>>testBrowseHierarchyMetaclass (in category 'testing') -----
>  testBrowseHierarchyMetaclass
>      "self debug: #testBrowseHierarchyMetaclass"
>      | browsersBefore browsersAfter opened |
>      self ensureMorphic.
>      
>      browsersBefore := self currentHierarchyBrowsers.
>      self withImmediatelyOpeningWindowsDo: [1 class class browseHierarchy].
>      browsersAfter := self currentHierarchyBrowsers.
>      
>      self assert:  (browsersAfter size  = (browsersBefore size + 1)).
>      opened := browsersAfter removeAll: browsersBefore; yourself.
>      self assert:  (opened size = 1).
>      opened := opened asArray first.
>      self assert: (opened model selectedClass == Metaclass).
>      
>      opened delete
>      
>      
>      !
>
> Item was changed:
> + ----- Method: BrowseTest>>testBrowseInstance (in category 'tests') -----
> - ----- Method: BrowseTest>>testBrowseInstance (in category 'testing') -----
>  testBrowseInstance
>      "self debug: #testBrowseInstance"
>      | browsersBefore browsersAfter opened |
>      self ensureMorphic.
>      
>      browsersBefore := self currentBrowsers.
>      self withImmediatelyOpeningWindowsDo: [1 browse].
>      browsersAfter := self currentBrowsers.
>      
>      self assert:  (browsersAfter size  = (browsersBefore size + 1)).
>      opened := browsersAfter removeAll: browsersBefore; yourself.
>      self assert:  (opened size = 1).
>      opened := opened asArray first.
>      self assert: (opened model selectedClass == SmallInteger).
>      
>      opened delete
>      
>      
>      !
>
> Item was changed:
> + ----- Method: BrowseTest>>testBrowseMetaclass (in category 'tests') -----
> - ----- Method: BrowseTest>>testBrowseMetaclass (in category 'testing') -----
>  testBrowseMetaclass
>      "self debug: #testBrowseMetaclass"
>      | browsersBefore browsersAfter opened |
>      self ensureMorphic.
>      
>      browsersBefore := self currentBrowsers.
>      self withImmediatelyOpeningWindowsDo: [1 class class browse].
>      browsersAfter := self currentBrowsers.
>      
>      self assert:  (browsersAfter size  = (browsersBefore size + 1)).
>      opened := browsersAfter removeAll: browsersBefore; yourself.
>      self assert:  (opened size = 1).
>      opened := opened asArray first.
>      self assert: (opened model selectedClass == SmallInteger).
>      
>      opened delete
>      
>      
>      !
>
> Item was changed:
> + ----- Method: BrowseTest>>testFindReferencesToFloatNaN (in category 'tests') -----
> - ----- Method: BrowseTest>>testFindReferencesToFloatNaN (in category 'testing') -----
>  testFindReferencesToFloatNaN
>      self assert: (SystemNavigation new allCallsOn: (Float bindingOf: #NaN)) notEmpty!
>
> Item was changed:
> + ----- Method: BrowseTest>>testSystemNavigationAllBehaviorsDo (in category 'tests') -----
> - ----- Method: BrowseTest>>testSystemNavigationAllBehaviorsDo (in category 'testing') -----
>  testSystemNavigationAllBehaviorsDo
>      | oc |
>      oc := OrderedCollection new.
>      SystemNavigation new allBehaviorsDo:
>          [:c| oc add: c].
>      self assert: oc size = oc asSet size!
>
> Item was changed:
> + ----- Method: DebuggerExtensionsTest>>testBooleansGeneralise (in category 'tests - canonical argument names') -----
> - ----- Method: DebuggerExtensionsTest>>testBooleansGeneralise (in category 'testing - canonical argument names') -----
>  testBooleansGeneralise
>      self assert: Boolean name equals: true canonicalArgumentName.
>      self assert: Boolean name equals: false canonicalArgumentName!
>
> Item was changed:
> + ----- Method: DebuggerExtensionsTest>>testByteStringsGeneralise (in category 'tests - canonical argument names') -----
> - ----- Method: DebuggerExtensionsTest>>testByteStringsGeneralise (in category 'testing - canonical argument names') -----
>  testByteStringsGeneralise
>      self assert: String name equals: ByteString new canonicalArgumentName!
>
> Item was changed:
> + ----- Method: DebuggerExtensionsTest>>testClassesGeneralise (in category 'tests - canonical argument names') -----
> - ----- Method: DebuggerExtensionsTest>>testClassesGeneralise (in category 'testing - canonical argument names') -----
>  testClassesGeneralise
>      self assert: Class name equals: Class new canonicalArgumentName.
>      self assert: Class name equals: 1 class canonicalArgumentName.
>      self assert: Class name equals: true class canonicalArgumentName!
>
> Item was changed:
> + ----- Method: DebuggerExtensionsTest>>testCollectionsGeneralise (in category 'tests - canonical argument names') -----
> - ----- Method: DebuggerExtensionsTest>>testCollectionsGeneralise (in category 'testing - canonical argument names') -----
>  testCollectionsGeneralise
>      "ArrayedCollection and subclasses answer 'Array' "
>      self assert: Array name equals: Array new canonicalArgumentName.
>      "Otherwise answer the more general 'Collection' "
>      self assert: Collection name equals: OrderedCollection new canonicalArgumentName.
>      self assert: Collection name equals: LinkedList new canonicalArgumentName!
>
> Item was changed:
> + ----- Method: DebuggerExtensionsTest>>testFloatsGeneralise (in category 'tests - canonical argument names') -----
> - ----- Method: DebuggerExtensionsTest>>testFloatsGeneralise (in category 'testing - canonical argument names') -----
>  testFloatsGeneralise
>      self assert: Number name equals: 1.0 canonicalArgumentName!
>
> Item was changed:
> + ----- Method: DebuggerExtensionsTest>>testFractionsGeneralise (in category 'tests - canonical argument names') -----
> - ----- Method: DebuggerExtensionsTest>>testFractionsGeneralise (in category 'testing - canonical argument names') -----
>  testFractionsGeneralise
>      self assert: Number name equals: (1 / 2) canonicalArgumentName!
>
> Item was changed:
> + ----- Method: DebuggerExtensionsTest>>testIntegersDontGeneralise (in category 'tests - canonical argument names') -----
> - ----- Method: DebuggerExtensionsTest>>testIntegersDontGeneralise (in category 'testing - canonical argument names') -----
>  testIntegersDontGeneralise
>      self assert: Integer name equals: 1 canonicalArgumentName!
>
> Item was changed:
> + ----- Method: DebuggerExtensionsTest>>testLargeNegativeIntegersGeneralise (in category 'tests - canonical argument names') -----
> - ----- Method: DebuggerExtensionsTest>>testLargeNegativeIntegersGeneralise (in category 'testing - canonical argument names') -----
>  testLargeNegativeIntegersGeneralise
>      self assert: Integer name equals: LargeNegativeInteger initializedInstance canonicalArgumentName!
>
> Item was changed:
> + ----- Method: DebuggerExtensionsTest>>testLargePositiveIntegersGeneralise (in category 'tests - canonical argument names') -----
> - ----- Method: DebuggerExtensionsTest>>testLargePositiveIntegersGeneralise (in category 'testing - canonical argument names') -----
>  testLargePositiveIntegersGeneralise
>      self assert: Integer name equals: LargePositiveInteger initializedInstance canonicalArgumentName!
>
> Item was changed:
> + ----- Method: DebuggerExtensionsTest>>testOtherObjectsDontGeneralise (in category 'tests - canonical argument names') -----
> - ----- Method: DebuggerExtensionsTest>>testOtherObjectsDontGeneralise (in category 'testing - canonical argument names') -----
>  testOtherObjectsDontGeneralise
>      self assert: Behavior name equals: Behavior new canonicalArgumentName.
>      self assert: UndefinedObject name equals: nil canonicalArgumentName!
>
> Item was changed:
> + ----- Method: DebuggerExtensionsTest>>testScaledDecimalsGeneralise (in category 'tests - canonical argument names') -----
> - ----- Method: DebuggerExtensionsTest>>testScaledDecimalsGeneralise (in category 'testing - canonical argument names') -----
>  testScaledDecimalsGeneralise
>      self assert: Number name equals: 2.00s2 canonicalArgumentName!
>
> Item was changed:
> + ----- Method: DebuggerExtensionsTest>>testStringsDontGeneralise (in category 'tests - canonical argument names') -----
> - ----- Method: DebuggerExtensionsTest>>testStringsDontGeneralise (in category 'testing - canonical argument names') -----
>  testStringsDontGeneralise
>      self assert: String name equals: String new canonicalArgumentName!
>
> Item was changed:
> + ----- Method: DebuggerExtensionsTest>>testWideStringsGeneralise (in category 'tests - canonical argument names') -----
> - ----- Method: DebuggerExtensionsTest>>testWideStringsGeneralise (in category 'testing - canonical argument names') -----
>  testWideStringsGeneralise
>      self assert: String name equals: WideString new canonicalArgumentName!
>
> Item was changed:
> + ----- Method: DebuggerUnwindBug>>testUnwindBlock (in category 'tests') -----
> - ----- Method: DebuggerUnwindBug>>testUnwindBlock (in category 'testing') -----
>  testUnwindBlock
>      "test if unwind blocks work properly"
>      | sema process |
>      sema := Semaphore forMutualExclusion.
>      self assert: sema isSignaled.
>      "deadlock on the semaphore"
>      process := [sema critical:[sema wait]] forkAt: Processor userInterruptPriority.
>      self deny: sema isSignaled.
>      "terminate process"
>      process terminate.
>      self assert: sema isSignaled.
>  !
>
> Item was changed:
> + ----- Method: DebuggerUnwindBug>>testUnwindDebugger (in category 'tests') -----
> - ----- Method: DebuggerUnwindBug>>testUnwindDebugger (in category 'testing') -----
>  testUnwindDebugger
>      "test if unwind blocks work properly when a debugger is closed"
>      | sema process debugger top |
>      sema := Semaphore forMutualExclusion.
>      self assert: sema isSignaled.
>      process := [sema critical:[sema wait]] forkAt: Processor userInterruptPriority.
>      self deny: sema isSignaled.
>
>      "everything set up here - open a debug notifier"
>      debugger := Debugger openInterrupt: 'test' onProcess: process.
>      "get into the debugger"
>      debugger debug.
>      top := debugger topView.
>      "set top context"
>      debugger toggleContextStackIndex: 1.
>      "close debugger"
>      top delete.
>
>      "and see if unwind protection worked"
>      self assert: sema isSignaled.!
>
> Item was changed:
> + ----- Method: DependencyBrowserTest>>testBrowse (in category 'tests - buttons') -----
> - ----- Method: DependencyBrowserTest>>testBrowse (in category 'testing - buttons') -----
>  testBrowse
>      | b |
>      browser packageListIndex: (browser packageList indexOf: #Collections).
>      browser packageDepsIndex: (browser packageDeps indexOf: #Compiler).
>      browser classDepsIndex: (browser classDeps indexOf: #Scanner).
>      browser classListIndex: (browser classList indexOf: #Symbol).
>      browser messageListIndex: 1.
>
>      b := browser browseMethodFull.
>      self assert: b notNil.
>      [self assert: b selectedMessageName = (browser messageList at: browser messageListIndex) ]
>          ensure: [ToolBuilder default close: b topView]!
>
> Item was changed:
> + ----- Method: DependencyBrowserTest>>testClassList (in category 'tests - class list') -----
> - ----- Method: DependencyBrowserTest>>testClassList (in category 'testing - class list') -----
>  testClassList
>      "Warning!! When Collections' dependencies change, this test may start to fail!!"
>      self assert: #() equals: browser classList description: 'classList before package selection'.
>      
>      browser packageListIndex: (browser packageList indexOf: #Collections).
>      self
>          assert: #()
>          equals: browser classList
>          description: 'classList after selecting Collections'.
>      
>      browser packageDepsIndex: (browser packageDeps indexOf: #Compiler).
>      self
>          assert: #()
>          equals: browser classList
>          description: 'classList after selecting Compiler'.
>      
>      browser classDepsIndex: (browser classDeps indexOf: #Scanner).
>      self
>          assert: #(Character String Symbol 'Symbol class')
>          equals: browser classList
>          description: 'classList after selecting Scanner class'.
>      
>      browser classListIndex: (browser classList indexOf: #Symbol).
>      self
>          assert: #(Character String Symbol 'Symbol class')
>          equals: browser classList
>          description: 'classList after selecting Symbol class'.!
>
> Item was changed:
> + ----- Method: DependencyBrowserTest>>testHasPackageSelected (in category 'tests - metaclass') -----
> - ----- Method: DependencyBrowserTest>>testHasPackageSelected (in category 'testing - metaclass') -----
>  testHasPackageSelected
>      self deny: browser hasPackageSelected.
>      
>      browser packageListIndex: 1.
>      self assert: browser hasPackageSelected.
>      
>      browser packageListIndex: 0.
>      self deny: browser hasPackageSelected.!
>
> Item was changed:
> + ----- Method: DependencyBrowserTest>>testSelectedClassOrMetaClass (in category 'tests - metaclass') -----
> - ----- Method: DependencyBrowserTest>>testSelectedClassOrMetaClass (in category 'testing - metaclass') -----
>  testSelectedClassOrMetaClass
>      "Warning!! When Collections' dependencies change, this test may start to fail!!"
>      self assert: browser selectedClassOrMetaClass isNil.
>
>      browser packageListIndex: (browser packageList indexOf: #Collections).
>      self assert: browser selectedClassOrMetaClass isNil.
>      
>      browser packageDepsIndex: (browser packageDeps indexOf: #Compiler).
>      self assert: browser selectedClassOrMetaClass isNil.
>      
>      browser classDepsIndex: (browser classDeps indexOf: #Scanner).
>      self assert: browser selectedClassOrMetaClass isNil.
>      
>      browser classListIndex: (browser classList indexOf: #Symbol).
>
>      self deny: browser selectedClassOrMetaClass isNil.
>      self assert: browser selectedClassOrMetaClass == Symbol.!
>
> Item was changed:
> + ----- Method: DependencyBrowserTest>>testSelectedMessageClassSideShowsSource (in category 'tests - message list') -----
> - ----- Method: DependencyBrowserTest>>testSelectedMessageClassSideShowsSource (in category 'testing - message list') -----
>  testSelectedMessageClassSideShowsSource
>      "Warning!! When Collections' dependencies change, this test may start to fail!!"
>
>      browser packageListIndex: (browser packageList indexOf: #'Chronology-Core').
>      browser packageDepsIndex: (browser packageDeps indexOf: #Collections).
>      browser classDepsIndex: (browser classDeps indexOf: #'Array').
>      browser classListIndex: (browser classList indexOf: #'DateAndTime class').
>      browser messageListIndex: 1.
>      self assert: browser selectedMessageName == #fromSeconds:.
>      
>      self assert: browser contents = (DateAndTime class sourceCodeAt: #fromSeconds:)
>  !
>
> Item was changed:
> + ----- Method: DependencyBrowserTest>>testSelectedMessageName (in category 'tests - message list') -----
> - ----- Method: DependencyBrowserTest>>testSelectedMessageName (in category 'testing - message list') -----
>  testSelectedMessageName
>      "Warning!! When Collections' dependencies change, this test may start to fail!!"
>      self assert: browser selectedMessageName isNil.
>
>      browser packageListIndex: (browser packageList indexOf: #Collections).
>      self assert: browser selectedMessageName isNil.
>      
>      browser packageDepsIndex: (browser packageDeps indexOf: #Compiler).
>      self assert: browser selectedMessageName isNil.
>      
>      browser classDepsIndex: (browser classDeps indexOf: #Scanner).
>      self assert: browser selectedMessageName isNil.
>      
>      browser classListIndex: (browser classList indexOf: #Symbol).
>      self assert: browser selectedMessageName isNil.
>      
>      browser messageListIndex: 1.
>      self assert: browser selectedMessageName == #storeOn:.
>      
>      browser messageListIndex: 0.
>      self assert: browser selectedMessageName isNil.!
>
> Item was changed:
> + ----- Method: DependencyBrowserTest>>testSelectedMessageNameClassSide (in category 'tests - message list') -----
> - ----- Method: DependencyBrowserTest>>testSelectedMessageNameClassSide (in category 'testing - message list') -----
>  testSelectedMessageNameClassSide
>      "Warning!! When Collections' dependencies change, this test may start to fail!!"
>      self assert: browser selectedMessageName isNil.
>
>      browser packageListIndex: (browser packageList indexOf: #'Chronology-Core').
>      self assert: browser selectedMessageName isNil.
>      
>      browser packageDepsIndex: (browser packageDeps indexOf: #Collections).
>      self assert: browser selectedMessageName isNil.
>      
>      browser classDepsIndex: (browser classDeps indexOf: #Array).
>      self assert: browser selectedMessageName isNil.
>      
>      browser classListIndex: (browser classList indexOf: #'DateAndTime class').
>      self assert: browser selectedMessageName isNil.
>      
>      browser messageListIndex: 1.
>      self assert: browser selectedMessageName == #fromSeconds:.
>  !
>
> Item was changed:
> + ----- Method: FileList2ModalDialogsTest>>testModalFileSelector (in category 'tests') -----
> - ----- Method: FileList2ModalDialogsTest>>testModalFileSelector (in category 'running') -----
>  testModalFileSelector
>      | window fileList2 |
>      window := FileList2 morphicViewFileSelector.
>      window openCenteredInWorld.
>      fileList2 := window valueOfProperty: #fileListModel.
>      fileList2 fileListIndex: 1.
>      window delete.
>      self assert: fileList2 getSelectedFile isNil.
>      fileList2 okHit.
>      self deny: fileList2 getSelectedFile isNil
>
>
>  !
>
> Item was changed:
> + ----- Method: FileList2ModalDialogsTest>>testModalFileSelectorForSuffixes (in category 'tests') -----
> - ----- Method: FileList2ModalDialogsTest>>testModalFileSelectorForSuffixes (in category 'running') -----
>  testModalFileSelectorForSuffixes
>      | window fileList2 |
>      window := FileList2 morphicViewFileSelectorForSuffixes: nil.
>      window openCenteredInWorld.
>      fileList2 := window valueOfProperty: #fileListModel.
>      fileList2 fileListIndex: 1.
>      window delete.
>      self assert: fileList2 getSelectedFile isNil.
>      fileList2 okHit.
>      self deny: fileList2 getSelectedFile isNil
>  !
>
> Item was changed:
> + ----- Method: FileList2ModalDialogsTest>>testModalFolderSelector (in category 'tests') -----
> - ----- Method: FileList2ModalDialogsTest>>testModalFolderSelector (in category 'running') -----
>  testModalFolderSelector
>      | window fileList2 |
>      window := FileList2 morphicViewFolderSelector.
>      fileList2 := window model.
>      window openInWorld: self currentWorld extent: 300@400.
>      fileList2 fileListIndex: 1.
>      window delete.
>      self assert: fileList2 getSelectedDirectory withoutListWrapper isNil.
>      fileList2 okHit.
>      self deny: fileList2 getSelectedDirectory withoutListWrapper isNil
>
>  !
>
> Item was changed:
> + ----- Method: FileList2ModalDialogsTest>>testModalFolderSelectorForProjectLoad (in category 'tests') -----
> - ----- Method: FileList2ModalDialogsTest>>testModalFolderSelectorForProjectLoad (in category 'running') -----
>  testModalFolderSelectorForProjectLoad
>      | window fileList2 w |
>      window := FileList2
>          morphicViewProjectLoader2InWorld: self currentWorld
>          reallyLoad: false.
>      fileList2 := window valueOfProperty: #FileList.
>      w := self currentWorld.
>      window position: w topLeft + (w extent - window extent // 2).
>      window openInWorld: w.
>      window delete.
>      self assert: fileList2 getSelectedDirectory withoutListWrapper isNil.
>      fileList2 okHit.
>      self deny: fileList2 getSelectedDirectory withoutListWrapper isNil
>  !
>
> Item was changed:
> + ----- Method: FileListTest>>testAllRegisteredServices (in category 'tests') -----
> - ----- Method: FileListTest>>testAllRegisteredServices (in category 'test') -----
>  testAllRegisteredServices
>      "(self selector: #testAllRegisteredServices) debug"
>
>      "This should not throw an exception."
>      FileList allRegisteredServices.!
>
> Item was changed:
> + ----- Method: FileListTest>>testMenuReturned (in category 'tests') -----
> - ----- Method: FileListTest>>testMenuReturned (in category 'test') -----
>  testMenuReturned
>      "(self selector: #testToolRegistered) debug"
>
>      self assert: (FileList registeredFileReaderClasses includes: DummyToolWorkingWithFileList)!
>
> Item was changed:
> + ----- Method: FileListTest>>testService (in category 'tests') -----
> - ----- Method: FileListTest>>testService (in category 'test') -----
>  testService
>      "a stupid test to check that the class returns a service"
>      "(self selector: #testService) debug"
>      
>      | service |
>      service := (DummyToolWorkingWithFileList fileReaderServicesForFile: 'abab.kkk' suffix: 'kkk') first.
>      self assert: (self checkIsServiceIsFromDummyTool: service).
>      service := (DummyToolWorkingWithFileList fileReaderServicesForFile: 'zkk.gz' suffix: 'gz').
>      self assert: service isEmpty!
>
> Item was changed:
> + ----- Method: FileListTest>>testServicesForFileEnding (in category 'tests') -----
> - ----- Method: FileListTest>>testServicesForFileEnding (in category 'test') -----
>  testServicesForFileEnding
>      "(self selector: #testServicesForFileEnding) debug"
>
>      | items |
>      items := (FileList new directory: FileDirectory default; yourself)
>        itemsForFile: (FileDirectory default fullNameFor: 'aaa.kkk').
>      self assert: (items anySatisfy: [ :ea | self checkIsServiceIsFromDummyTool: ea ]).
>  !
>
> Item was changed:
> + ----- Method: FileListTest>>testToolRegistered (in category 'tests') -----
> - ----- Method: FileListTest>>testToolRegistered (in category 'test') -----
>  testToolRegistered
>      "(self selector: #testToolRegistered) debug"
>
>      self assert: (FileList registeredFileReaderClasses includes: DummyToolWorkingWithFileList)!
>
> Item was changed:
> + ----- Method: FileListTest>>testToolRegisteredUsingInterface (in category 'tests') -----
> - ----- Method: FileListTest>>testToolRegisteredUsingInterface (in category 'test') -----
>  testToolRegisteredUsingInterface
>      "(self selector: #testToolRegisteredUsingInterface) debug"
>
>      self assert: (FileList isReaderNamedRegistered: #DummyToolWorkingWithFileList)!
>
> Item was changed:
> + ----- Method: HierarchyBrowserTest>>setUp (in category 'running') -----
> - ----- Method: HierarchyBrowserTest>>setUp (in category 'as yet unclassified') -----
>  setUp
>      browser := HierarchyBrowser new.!
>
> Item was changed:
> + ----- Method: HierarchyBrowserTest>>testClassList (in category 'tests') -----
> - ----- Method: HierarchyBrowserTest>>testClassList (in category 'as yet unclassified') -----
>  testClassList
>      | c displayedClasses hierarchy |
>      browser initHierarchyForClass: browser class.
>      
>      c := browser class theNonMetaClass.
>      displayedClasses := browser classList collect: [:each | each withoutLeadingBlanks ].
>      hierarchy := (c allSuperclasses reversed, {browser class}, c allSubclasses) collect: [ :each | each name ].
>      self assert: displayedClasses = hierarchy.!
>
> Item was changed:
> + ----- Method: HierarchyBrowserTest>>testClassListIndex (in category 'tests') -----
> - ----- Method: HierarchyBrowserTest>>testClassListIndex (in category 'as yet unclassified') -----
>  testClassListIndex
>      | expectedCat |
>      expectedCat := [:i | (Smalltalk at: (browser classList at: i) withoutLeadingBlanks asSymbol) category ].
>      browser initHierarchyForClass: browser class.
>      self deny: browser classListIndex = 0.
>      
>      1 to: 3 do:
>          [:n |
>          browser classListIndex: n.
>          self assert: browser classListIndex = n.
>          self assert: browser selectedSystemCategory = (expectedCat value: n)]!
>
> Item was changed:
> + ----- Method: HierarchyBrowserTest>>testClassListSansWhitespace (in category 'tests') -----
> - ----- Method: HierarchyBrowserTest>>testClassListSansWhitespace (in category 'as yet unclassified') -----
>  testClassListSansWhitespace
>      | c displayedClasses hierarchy |
>      browser initHierarchyForClass: browser class.
>      
>      c := browser class theNonMetaClass.
>      displayedClasses := browser classList collect: [:each | each withoutLeadingBlanks ].
>      hierarchy := (c allSuperclasses reversed, {browser class}, c allSubclasses) collect: [ :each | each name ].
>      self assert: displayedClasses = hierarchy.!
>
> Item was changed:
> + ----- Method: HierarchyBrowserTest>>testInitHierarchyForClass (in category 'tests') -----
> - ----- Method: HierarchyBrowserTest>>testInitHierarchyForClass (in category 'as yet unclassified') -----
>  testInitHierarchyForClass
>      | b |
>
>      b := HierarchyBrowser new initHierarchyForClass: browser class.
>      self assert: b selectedClassName = browser class name.!
>
> Item was changed:
> + ----- Method: HierarchyBrowserTest>>testSelectClass (in category 'tests') -----
> - ----- Method: HierarchyBrowserTest>>testSelectClass (in category 'as yet unclassified') -----
>  testSelectClass
>      browser initHierarchyForClass: browser class.
>      browser selectClass: ProtoObject.
>      self assert: browser selectedClass = ProtoObject.
>      
>      browser selectClass: CodeHolder.
>      self assert: browser selectedClass = CodeHolder.!
>
> Item was changed:
> + ----- Method: HierarchyBrowserTest>>testSelectedClassName (in category 'tests') -----
> - ----- Method: HierarchyBrowserTest>>testSelectedClassName (in category 'as yet unclassified') -----
>  testSelectedClassName
>      browser initHierarchyForClass: browser class.
>      self assert: browser selectedClassName = browser class name.
>      
>      browser classListIndex: 0.
>      self assert: browser selectedClassName isNil.!
>
> Item was changed:
> + ----- Method: MessageNamesTest>>setUp (in category 'running') -----
> - ----- Method: MessageNamesTest>>setUp (in category 'as yet unclassified') -----
>  setUp
>      browser := MessageNames openMessageNames.!
>
> Item was changed:
> + ----- Method: MessageNamesTest>>tearDown (in category 'running') -----
> - ----- Method: MessageNamesTest>>tearDown (in category 'as yet unclassified') -----
>  tearDown
>      browser topView ifNotNil: [:v |
>          ToolBuilder default close: v].!
>
> Item was changed:
> + ----- Method: MessageNamesTest>>testCannotUnselectCategory (in category 'tests') -----
> - ----- Method: MessageNamesTest>>testCannotUnselectCategory (in category 'as yet unclassified') -----
>  testCannotUnselectCategory
>      | selectorList |
>      browser searchString: 'cull'.
>      browser selectorListIndex: 1.
>      selectorList := browser selectorList copy.
>      
>      browser selectorListIndex: 0.
>      self assert: selectorList = browser selectorList.!
>
> Item was changed:
> + ----- Method: MessageNamesTest>>testOpenMessageNames (in category 'tests') -----
> - ----- Method: MessageNamesTest>>testOpenMessageNames (in category 'as yet unclassified') -----
>  testOpenMessageNames
>      | b |
>      b := MessageNames openMessageNames.
>      [self assert: (b isKindOf: MessageNames)]
>          ensure: [ToolBuilder default close: b topView].!
>
> Item was changed:
> + ----- Method: MessageNamesTest>>testSearchString (in category 'tests') -----
> - ----- Method: MessageNamesTest>>testSearchString (in category 'as yet unclassified') -----
>  testSearchString
>      | cCount cullCount cullCullCount |
>      browser searchString: 'c'.
>      cCount := browser selectorList size.
>      
>      browser searchString: 'cull:'.
>      cullCount := browser selectorList size.
>      
>      self assert: cullCount < cCount.
>      
>      browser searchString: 'cull:cull:'.
>      cullCullCount := browser selectorList size.
>      
>      self assert: cullCullCount < cullCount.!
>
> Item was changed:
> + ----- Method: MessageNamesTest>>testSelectedClassOrMetaClass (in category 'tests') -----
> - ----- Method: MessageNamesTest>>testSelectedClassOrMetaClass (in category 'as yet unclassified') -----
>  testSelectedClassOrMetaClass
>      | firstClass |
>      browser searchString: 'cull'.
>      firstClass := browser messageList first actualClass.
>      
>      browser messageListIndex: 1.
>      self assert: browser selectedClassOrMetaClass = firstClass.
>      
>      browser messageListIndex: 0.
>      self assert: browser selectedClassOrMetaClass isNil.
>      
>      "And just to be sure:"
>      browser messageListIndex: 1.
>      self assert: browser selectedClassOrMetaClass = firstClass.!
>
> Item was changed:
> + ----- Method: MessageNamesTest>>testSelectedMessageCategoryName (in category 'tests') -----
> - ----- Method: MessageNamesTest>>testSelectedMessageCategoryName (in category 'as yet unclassified') -----
>  testSelectedMessageCategoryName
>      browser searchString: 'cull'.
>      browser selectorListIndex: 1.
>      browser messageListIndex: 1.
>      self deny: browser selectedMessageCategoryName isNil.
>
>      browser messageListIndex: 0.
>      self assert: browser selectedMessageCategoryName isNil.!
>
> Item was changed:
> + ----- Method: MessageNamesTest>>testSelection (in category 'tests') -----
> - ----- Method: MessageNamesTest>>testSelection (in category 'as yet unclassified') -----
>  testSelection
>      browser searchString: 'cull'.
>      browser selectorListIndex: 1.
>      browser messageListIndex: 1.
>      self assert: (browser selection isKindOf: MethodReference).
>      browser messageListIndex: 0.
>      self assert: browser selection isNil.!
>
> Item was changed:
> + ----- Method: MessageSetTest>>testAutoSelectString (in category 'tests') -----
> - ----- Method: MessageSetTest>>testAutoSelectString (in category 'testing') -----
>  testAutoSelectString
>      browser autoSelectString: 'browseAllImplementorsOf:'.
>      self assert: browser autoSelectString = 'browseAllImplementorsOf:'.
>      browser messageListIndex: 2.
>      self assert: (updates includes: #autoSelect).!
>
> Item was changed:
> + ----- Method: MessageSetTest>>testContents (in category 'tests') -----
> - ----- Method: MessageSetTest>>testContents (in category 'testing') -----
>  testContents
>      browser messageListIndex: 0.
>      self assert: browser contents = ''.
>      
>      browser messageListIndex: 1.
>      self deny: browser contents = ''.
>      !
>
> Item was changed:
> + ----- Method: MessageSetTest>>testHasMessageSelected (in category 'tests') -----
> - ----- Method: MessageSetTest>>testHasMessageSelected (in category 'testing') -----
>  testHasMessageSelected
>      browser messageListIndex: 1.
>      self assert: browser hasMessageSelected.
>      
>      browser messageListIndex: 0.
>      self deny: browser hasMessageSelected.
>      
>      "And just to be sure:"
>      browser messageListIndex: 1.
>      self assert: browser hasMessageSelected.!
>
> Item was changed:
> + ----- Method: MessageSetTest>>testRemoveMessageFromBrowser (in category 'tests') -----
> - ----- Method: MessageSetTest>>testRemoveMessageFromBrowser (in category 'testing') -----
>  testRemoveMessageFromBrowser
>      | count sel |
>      browser messageListIndex: 1.
>      sel := browser selection.
>      
>      browser removeMessageFromBrowser.
>      self deny: (browser messageList includes: sel) description: 'Method not removed'.
>
>      browser messageListIndex: 0.
>      count := browser messageList size.
>      browser removeMessageFromBrowser.
>      self assert: count = browser messageList size description: 'Some method was removed'.!
>
> Item was changed:
> + ----- Method: MessageSetTest>>testSelectedClassOrMetaClass (in category 'tests') -----
> - ----- Method: MessageSetTest>>testSelectedClassOrMetaClass (in category 'testing') -----
>  testSelectedClassOrMetaClass
>      | firstClass |
>      firstClass := browser messageList first actualClass.
>      
>      browser messageListIndex: 1.
>      self assert: browser selectedClassOrMetaClass = firstClass.
>      
>      browser messageListIndex: 0.
>      self assert: browser selectedClassOrMetaClass isNil.
>      
>      "And just to be sure:"
>      browser messageListIndex: 1.
>      self assert: browser selectedClassOrMetaClass = firstClass.!
>
> Item was changed:
> + ----- Method: MessageSetTest>>testSelectedMessageCategoryName (in category 'tests') -----
> - ----- Method: MessageSetTest>>testSelectedMessageCategoryName (in category 'testing') -----
>  testSelectedMessageCategoryName
>      | firstCat methodRef |
>      methodRef := browser messageList first.
>      firstCat := methodRef actualClass organization categoryOfElement: methodRef selector.
>      
>      browser messageListIndex: 1.
>      self assert: browser selectedMessageCategoryName = firstCat.
>      
>      browser messageListIndex: 0.
>      self assert: browser selectedMessageCategoryName isNil.
>      
>      "And just to be sure:"
>      browser messageListIndex: 1.
>      self assert: browser selectedMessageCategoryName = firstCat.!
>
> Item was changed:
> + ----- Method: MessageSetTest>>testSelectedMessageName (in category 'tests') -----
> - ----- Method: MessageSetTest>>testSelectedMessageName (in category 'testing') -----
>  testSelectedMessageName
>      | firstSel |
>      firstSel := browser messageList first selector.
>      
>      browser messageListIndex: 1.
>      self assert: browser selectedMessageName = firstSel.
>      
>      browser messageListIndex: 0.
>      self assert: browser selectedMessageName isNil.
>      
>      "And just to be sure:"
>      browser messageListIndex: 1.
>      self assert: browser selectedMessageName = firstSel.!
>
> Item was changed:
> + ----- Method: MessageSetTest>>testSelection (in category 'tests') -----
> - ----- Method: MessageSetTest>>testSelection (in category 'testing') -----
>  testSelection
>      | firstRef |
>      firstRef := browser messageList first.
>      
>      browser messageListIndex: 1.
>      self assert: browser selection = firstRef.
>      
>      browser messageListIndex: 0.
>      self assert: browser selection isNil.
>      
>      "And just to be sure:"
>      browser messageListIndex: 1.
>      self assert: browser selection = firstRef.!
>
> Item was changed:
> + ----- Method: MessageTraceTest>>setUp (in category 'running') -----
> - ----- Method: MessageTraceTest>>setUp (in category 'as yet unclassified') -----
>  setUp
>      browser := (MessageTrace
>          openMessageList: (SystemNavigation default allImplementorsOf: #browseAllImplementorsOf:)
>          name: 'Test MessageSet'
>          autoSelect: nil) model.
>          
>      browser addDependent: self.!
>
> Item was changed:
> + ----- Method: MessageTraceTest>>testRemoveMessageFromBrowser (in category 'tests') -----
> - ----- Method: MessageTraceTest>>testRemoveMessageFromBrowser (in category 'as yet unclassified') -----
>  testRemoveMessageFromBrowser
>      | count sel |
>      browser messageListIndex: 1.
>      sel := browser selection.
>      
>      browser removeMessageFromBrowser.
>      self deny: (browser messageList includes: sel) description: 'Method not removed'.
>
>      "In a MessageTrace, having an unselected message and then removing it means 'remove the first message'."
>      browser messageListIndex: 0.
>      count := browser messageList size.
>      browser removeMessageFromBrowser.
>      self assert: count - 1 = browser messageList size description: 'Method not removed'.!
>
> Item was changed:
> + ----- Method: OrderedCollectionInspectorTest>>testUninitialized (in category 'tests') -----
> - ----- Method: OrderedCollectionInspectorTest>>testUninitialized (in category 'as yet unclassified') -----
>  testUninitialized
>      "Single stepping through a debugger can observe the object state after creation but before initiialisation."
>      "Thus 'object size' may throw an axception for trying to do arithmetic on nil."
>      "Modified OrderedCollectionInspector>>fieldList to call 'self objectSize' to handle this exception."
>      "Original error reproduction: [ self halt. OrderedCollectionInspector openOn: (OrderedCollection new: 5) ]     "
>      
>      "This should not throw an exception."
>      (OrderedCollectionInspector openOn: OrderedCollection basicNew) delete.!
>
> Item was changed:
> + ----- Method: PackagePaneBrowserTest>>setUp (in category 'running') -----
> - ----- Method: PackagePaneBrowserTest>>setUp (in category 'as yet unclassified') -----
>  setUp
>      browser := PackagePaneBrowser new.!
>
> Item was changed:
> + ----- Method: PackagePaneBrowserTest>>testClassList (in category 'tests') -----
> - ----- Method: PackagePaneBrowserTest>>testClassList (in category 'as yet unclassified') -----
>  testClassList
>      browser selectSystemCategory: browser class category.
>      self assert: browser classList = (SystemOrganization listAtCategoryNamed: browser class category).
>      
>      browser selectSystemCategory: nil.
>      self assert: browser classList isEmpty.!
>
> Item was changed:
> + ----- Method: PackagePaneBrowserTest>>testPackageListIndex (in category 'tests') -----
> - ----- Method: PackagePaneBrowserTest>>testPackageListIndex (in category 'as yet unclassified') -----
>  testPackageListIndex
>      browser packageListIndex: 0.
>      self assert: browser selectedClass isNil.
>      
>      browser selectCategoryForClass: browser class.
>      
>      "Clicking the selected package unselects the selected class."
>      browser packageListIndex: browser packageListIndex.
>      self assert: browser selectedClass isNil.!
>
> Item was changed:
> + ----- Method: PackagePaneBrowserTest>>testSelectCategoryForClass (in category 'tests') -----
> - ----- Method: PackagePaneBrowserTest>>testSelectCategoryForClass (in category 'as yet unclassified') -----
>  testSelectCategoryForClass
>      | pkgName |
>      pkgName := browser class category copyUpTo: $-.
>      browser selectCategoryForClass: browser class.
>      self assert: browser selectedSystemCategory = browser class category.
>      self assert: browser packageListIndex = (browser packageList indexOf: pkgName).
>      browser selectSystemCategory: nil.
>      self assert: browser classList isEmpty.!
>
> Item was changed:
> + ----- Method: WeakSetInspectorTest>>testSymbolTableM6812 (in category 'tests') -----
> - ----- Method: WeakSetInspectorTest>>testSymbolTableM6812 (in category 'testing') -----
>  testSymbolTableM6812
>      "this test is related to http://bugs.squeak.org/view.php?id=6812"
>      
>      | aWeakSet anInspector fieldSize |
>      aWeakSet := (Symbol classPool at: #SymbolTable).
>      anInspector := aWeakSet inspectorClass inspect: aWeakSet.
>      
>      fieldSize := anInspector fieldList size.
>      Smalltalk garbageCollect.
>      self assert: fieldSize = anInspector fieldList size.
>      !
>
>
>