[squeak-dev] The Trunk: ToolsTests-pre.88.mcz
Eliot Miranda
eliot.miranda at gmail.com
Sat Dec 1 19:46:24 UTC 2018
> On Dec 1, 2018, at 8:30 AM, commits at source.squeak.org 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.
+1 :-). Tests should be in the categories tests or tests-foo, never testing, which is for #isFoo et al
>
> =============== 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 at 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.
> !
>
>
>
More information about the Squeak-dev
mailing list
|