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. !
On Dec 1, 2018, at 8:30 AM, commits@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@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. !
squeak-dev@lists.squeakfoundation.org