Failed

osx-32 / Tests-osx-32 / MacOSX32.Refactoring.Tests.Environment.RBBrowserEnvironmentTest.testPackageEnvironment (from Refactoring-Tests-Environment)

Stacktrace

TestTookTooMuchTime
Process>>pvtSignal:list:
RPackage>>isYourClassExtension:
[ :cat | self isYourClassExtension: cat ] in RPackage>>extensionCategoriesForClass:
[ :stream|
		1 to: self size do: [ :index |
			(aBlock value: (each := self at: index))
				ifTrue: [ stream nextPut: each ]]] in Array(SequenceableCollection)>>select:
Array class(SequenceableCollection class)>>new:streamContents:
Array(SequenceableCollection)>>select:
RPackage>>extensionCategoriesForClass:
[ :package | 
			(package includesClass: aClass) or: [ 
			(package extensionCategoriesForClass: aClass) notEmpty ]] in RBPackageEnvironment>>includesClass:
[:each | (aBlock value: each) ifTrue: [^ true]] in Set(Collection)>>anySatisfy:
Set>>do:
Set(Collection)>>anySatisfy:
RBPackageEnvironment>>includesClass:
[ :key :value | 
		| class |
		value isBehavior ifTrue: [
			(self includesClass: value) 
				ifTrue: [ keys add: key ] ].
			class := value class.
			(self includesClass: class) 
				ifTrue: [ keys add: key ] ] in RBPackageEnvironment(RBBrowserEnvironment)>>keys
[:assoc|
		aBlock value: assoc key value: assoc value] in SystemDictionary(Dictionary)>>keysAndValuesDo:
[:each |
		each ifNotNil: [aBlock value: each]] in SystemDictionary(Dictionary)>>associationsDo:
Array(SequenceableCollection)>>do:
SystemDictionary(Dictionary)>>associationsDo:
SystemDictionary(Dictionary)>>keysAndValuesDo:
RBPackageEnvironment(RBBrowserEnvironment)>>keys
RBBrowserEnvironmentTest>>keysFor:
RBBrowserEnvironmentTest>>universalTestFor:
RBBrowserEnvironmentTest>>testPackageEnvironment
RBBrowserEnvironmentTest(TestCase)>>performTest