Regression

osx-64 / Tests-osx-64 / MacOSX64.Refactoring.Tests.Environment.RBBrowserEnvironmentTest.testOrEnvironment (from Refactoring-Tests-Environment)

Failing for the past 1 build (Since Failed#351 )
Took 15 sec.

Stacktrace

TestTookTooMuchTime
Process>>pvtSignal:list:
IdentitySet>>scanFor:
IdentitySet(HashedCollection)>>findElementOrNil:
IdentitySet(Set)>>includes:
Protocol>>includesSelector:
[:each | each includesSelector: aSelector ] in ProtocolOrganizer>>protocolsOfSelector:
[ :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:
ProtocolOrganizer>>protocolsOfSelector:
ClassOrganization>>categoryOfElement:ifAbsent:
RBOrEnvironment(RBBrowserEnvironment)>>whichProtocolIncludes:in:
[ :class :selector |
		| protocol |
		protocol := aBrowserEnvironment whichProtocolIncludes: selector in: class.
		self assert: (aBrowserEnvironment includesProtocol: protocol in: class) ] in RBBrowserEnvironmentTest>>protocolsFor:
[ :sel | 
			aBlock value: class value: sel ] in [ :class | 
		self selectorsForClass: class do: [ :sel | 
			aBlock value: class value: sel ]] in RBOrEnvironment(RBBrowserEnvironment)>>classesAndSelectorsDo:
[:each | 
			(enumerated includes: each) 
				ifFalse: [ aBlock value: each ] ] in RBOrEnvironment>>selectorsForClass:do:
[:each :meth | 
			(self includesSelector: each in: aClass) ifTrue: [aBlock value: each]] in RBNotEnvironment(RBBrowserEnvironment)>>selectorsForClass:do:
MethodDictionary>>keysAndValuesDo:
RBParseTreeRewriter class(Behavior)>>selectorsAndMethodsDo:
RBNotEnvironment(RBBrowserEnvironment)>>selectorsForClass:do:
RBOrEnvironment>>selectorsForClass:do:
[ :class | 
		self selectorsForClass: class do: [ :sel | 
			aBlock value: class value: sel ]] in RBOrEnvironment(RBBrowserEnvironment)>>classesAndSelectorsDo:
[ :each | 
		(enumerated includes: each) 
			ifFalse: [ aBlock value: each ] ] in RBOrEnvironment>>classesDo:
[ :each |
		(self includesClass: each)
			ifTrue: [aBlock value: each ] ] in RBNotEnvironment(RBBrowserEnvironment)>>classesDo:
[:class |
		 aBlock value: class; value: class classSide] in RBNotEnvironment(RBBrowserEnvironment)>>systemDictionaryClassesDo:
[:name | aBlock value: (self at: name)] in SystemDictionary>>allClassesDo:
OrderedCollection>>do:
SystemDictionary>>allClassesDo:
RBNotEnvironment(RBBrowserEnvironment)>>systemDictionaryClassesDo:
RBNotEnvironment(RBBrowserEnvironment)>>classesDo:
RBOrEnvironment>>classesDo:
RBOrEnvironment(RBBrowserEnvironment)>>classesAndSelectorsDo:
RBBrowserEnvironmentTest>>protocolsFor:
RBBrowserEnvironmentTest>>universalTestFor:
RBBrowserEnvironmentTest>>testOrEnvironment
RBBrowserEnvironmentTest(TestCase)>>performTest