Discussion:
The Trunk: ToolsTests-pre.88.mcz
(too old to reply)
c***@source.squeak.org
0000-12-02 16:30:42 UTC
Permalink
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: ***@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.
Eliot Miranda
2018-12-01 19:46:24 UTC
Permalink
Post by c***@source.squeak.org
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
Post by c***@source.squeak.org
=============== Diff against ToolsTests-pre.87 ===============
+ ----- 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
!
+ ----- 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
!
+ ----- 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
!
+ ----- 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
!
+ ----- 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
!
+ ----- 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
!
+ ----- Method: BrowseTest>>testFindReferencesToFloatNaN (in category 'tests') -----
- ----- Method: BrowseTest>>testFindReferencesToFloatNaN (in category 'testing') -----
testFindReferencesToFloatNaN
self assert: (SystemNavigation new allCallsOn: (Float bindingOf: #NaN)) notEmpty!
+ ----- Method: BrowseTest>>testSystemNavigationAllBehaviorsDo (in category 'tests') -----
- ----- Method: BrowseTest>>testSystemNavigationAllBehaviorsDo (in category 'testing') -----
testSystemNavigationAllBehaviorsDo
| oc |
oc := OrderedCollection new.
[:c| oc add: c].
self assert: oc size = oc asSet size!
+ ----- 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!
+ ----- 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!
+ ----- 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!
+ ----- 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!
+ ----- 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!
+ ----- 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!
+ ----- 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!
+ ----- 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!
+ ----- 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!
+ ----- 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!
+ ----- 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!
+ ----- 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!
+ ----- 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!
+ ----- 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.
!
+ ----- 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.!
+ ----- 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]!
+ ----- 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'.!
+ ----- 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.!
+ ----- 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.!
+ ----- 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:)
!
+ ----- 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.!
+ ----- 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:.
!
+ ----- 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
!
+ ----- 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
!
+ ----- Method: FileList2ModalDialogsTest>>testModalFolderSelector (in category 'tests') -----
- ----- Method: FileList2ModalDialogsTest>>testModalFolderSelector (in category 'running') -----
testModalFolderSelector
| window fileList2 |
window := FileList2 morphicViewFolderSelector.
fileList2 := window model.
fileList2 fileListIndex: 1.
window delete.
self assert: fileList2 getSelectedDirectory withoutListWrapper isNil.
fileList2 okHit.
self deny: fileList2 getSelectedDirectory withoutListWrapper isNil
!
+ ----- 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
!
+ ----- 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.!
+ ----- Method: FileListTest>>testMenuReturned (in category 'tests') -----
- ----- Method: FileListTest>>testMenuReturned (in category 'test') -----
testMenuReturned
"(self selector: #testToolRegistered) debug"
self assert: (FileList registeredFileReaderClasses includes: DummyToolWorkingWithFileList)!
+ ----- 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!
+ ----- 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 ]).
!
+ ----- Method: FileListTest>>testToolRegistered (in category 'tests') -----
- ----- Method: FileListTest>>testToolRegistered (in category 'test') -----
testToolRegistered
"(self selector: #testToolRegistered) debug"
self assert: (FileList registeredFileReaderClasses includes: DummyToolWorkingWithFileList)!
+ ----- Method: FileListTest>>testToolRegisteredUsingInterface (in category 'tests') -----
- ----- Method: FileListTest>>testToolRegisteredUsingInterface (in category 'test') -----
testToolRegisteredUsingInterface
"(self selector: #testToolRegisteredUsingInterface) debug"
self assert: (FileList isReaderNamedRegistered: #DummyToolWorkingWithFileList)!
+ ----- Method: HierarchyBrowserTest>>setUp (in category 'running') -----
- ----- Method: HierarchyBrowserTest>>setUp (in category 'as yet unclassified') -----
setUp
browser := HierarchyBrowser new.!
+ ----- 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.!
+ ----- 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.
[:n |
browser classListIndex: n.
self assert: browser classListIndex = n.
self assert: browser selectedSystemCategory = (expectedCat value: n)]!
+ ----- 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.!
+ ----- 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.!
+ ----- 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.!
+ ----- 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.!
+ ----- Method: MessageNamesTest>>setUp (in category 'running') -----
- ----- Method: MessageNamesTest>>setUp (in category 'as yet unclassified') -----
setUp
browser := MessageNames openMessageNames.!
+ ----- Method: MessageNamesTest>>tearDown (in category 'running') -----
- ----- Method: MessageNamesTest>>tearDown (in category 'as yet unclassified') -----
tearDown
browser topView ifNotNil: [:v |
ToolBuilder default close: v].!
+ ----- 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.!
+ ----- 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].!
+ ----- 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.!
+ ----- 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.!
+ ----- 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.!
+ ----- 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.!
+ ----- 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).!
+ ----- 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 = ''.
!
+ ----- 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.!
+ ----- 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'.!
+ ----- 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.!
+ ----- 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.!
+ ----- 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.!
+ ----- 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.!
+ ----- 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.!
+ ----- 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'.!
+ ----- 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.!
+ ----- Method: PackagePaneBrowserTest>>setUp (in category 'running') -----
- ----- Method: PackagePaneBrowserTest>>setUp (in category 'as yet unclassified') -----
setUp
browser := PackagePaneBrowser new.!
+ ----- 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.!
+ ----- 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.!
+ ----- 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.!
+ ----- 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: fieldS
Loading...