4 May 2012 11:12:04.036 pm

VM: Mac OS - intel - 1068 - CoInterpreter VMMaker-oscog-EstebanLorenzano.139 uuid: 5aa53979-d7d8-4ca3-91fe-cfc3b4109c33 Dec  4 2011, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.139 uuid: 5aa53979-d7d8-4ca3-91fe-cfc3b4109c33 Dec  4 2011, https://git.gitorious.org/cogvm/blessed.git Commit: e8ff57da448f1809a8ed4ec31e66815842113e05 Date: Sat Dec 3 16:18:36 2011 -0300 By: Esteban Lorenzano <estebanlm@gmail.com>
Image: Pharo2.0a [Latest update: #20044]

Trait(Object)>>halt
	Receiver: FLTraitForTestingaTrait
	Arguments and temporary variables: 

	Receiver's instance variables: 
		methodDict: 	a MethodDictionary(#instanceBindings->(FLTraitForTestingaTrait>>#in...etc...
		traitComposition: 	{}
		localSelectors: 	nil
		users: 	an IdentitySet()
		organization: 	a ClassOrganizer
		name: 	#FLTraitForTestingaTrait
		environment: 	a SystemDictionary(lots of globals)
		classTrait: 	FLTraitForTestingaTrait classTrait
		category: 	#'CategoryForTestToBeDeleted-Default'

Trait(TraitDescription)>>collectMethodsFor:into:
	Receiver: FLTraitForTestingaTrait
	Arguments and temporary variables: 
		aSelector: 	#instanceBindings
		methodDescription: 	a TraitMethodDescription
	Receiver's instance variables: 
		methodDict: 	a MethodDictionary(#instanceBindings->(FLTraitForTestingaTrait>>#in...etc...
		traitComposition: 	{}
		localSelectors: 	nil
		users: 	an IdentitySet()
		organization: 	a ClassOrganizer
		name: 	#FLTraitForTestingaTrait
		environment: 	a SystemDictionary(lots of globals)
		classTrait: 	FLTraitForTestingaTrait classTrait
		category: 	#'CategoryForTestToBeDeleted-Default'

[:each | each collectMethodsFor: aSymbol into: description] in TraitComposition>>methodDescriptionForSelector:
	Receiver: FLTraitForTestingaTrait
	Arguments and temporary variables: 
		aSymbol: 	FLTraitForTestingaTrait
		description: 	#instanceBindings
		each: 	a TraitMethodDescription
	Receiver's instance variables: 
		transformations: 	an OrderedCollection(FLTraitForTestingaTrait)

OrderedCollection>>do:
	Receiver: an OrderedCollection(FLTraitForTestingaTrait)
	Arguments and temporary variables: 
		aBlock: 	[:each | each collectMethodsFor: aSymbol into: description]
		index: 	1
	Receiver's instance variables: 
		array: 	{FLTraitForTestingaTrait}
		firstIndex: 	1
		lastIndex: 	1

TraitComposition>>methodDescriptionForSelector:
	Receiver: FLTraitForTestingaTrait
	Arguments and temporary variables: 
		aSymbol: 	#instanceBindings
		description: 	a TraitMethodDescription
	Receiver's instance variables: 
		transformations: 	an OrderedCollection(FLTraitForTestingaTrait)

[:each | collection
		add: (self methodDescriptionForSelector: each)] in TraitComposition>>methodDescriptionsForSelector:
	Receiver: FLTraitForTestingaTrait
	Arguments and temporary variables: 
		collection: 	#instanceBindings
		each: 	an OrderedCollection()
	Receiver's instance variables: 
		transformations: 	an OrderedCollection(FLTraitForTestingaTrait)

IdentitySet(Set)>>do:
	Receiver: an IdentitySet(#instanceBindings)
	Arguments and temporary variables: 
		aBlock: 	[:each | collection
		add: (self methodDescriptionForSelector: each)]
		index: 	5
		each: 	#instanceBindings
		indexLimiT: 	5
	Receiver's instance variables: 
		tally: 	1
		array: 	#(nil nil nil nil #instanceBindings)

TraitComposition>>methodDescriptionsForSelector:
	Receiver: FLTraitForTestingaTrait
	Arguments and temporary variables: 
		aSymbol: 	#instanceBindings
		selectors: 	an IdentitySet(#instanceBindings)
		collection: 	an OrderedCollection()
	Receiver's instance variables: 
		transformations: 	an OrderedCollection(FLTraitForTestingaTrait)

ClassForTestToBeDeleted1 class(Behavior)>>updateMethodDictionarySelector:
	Receiver: ClassForTestToBeDeleted1
	Arguments and temporary variables: 
		aSymbol: 	#instanceBindings
		modifiedSelectors: 	an IdentitySet()
		descriptions: 	nil
	Receiver's instance variables: 
		superclass: 	Object
		methodDict: 	a MethodDictionary()
		format: 	2
		layout: 	nil
		instanceVariables: 	nil
		organization: 	nil
		subclasses: 	nil
		name: 	#ClassForTestToBeDeleted1
		classPool: 	nil
		sharedPools: 	nil
		environment: 	a SystemDictionary(lots of globals)
		category: 	nil
		traitComposition: 	FLTraitForTestingaTrait
		localSelectors: 	nil

[:selector | affectedSelectors
		addAll: (self updateMethodDictionarySelector: selector)] in ClassForTestToBeDeleted1 class(Behavior)>>noteChangedSelectors:
	Receiver: ClassForTestToBeDeleted1
	Arguments and temporary variables: 
		affectedSelectors: 	#instanceBindings
		selector: 	an IdentitySet()
	Receiver's instance variables: 
		superclass: 	Object
		methodDict: 	a MethodDictionary()
		format: 	2
		layout: 	nil
		instanceVariables: 	nil
		organization: 	nil
		subclasses: 	nil
		name: 	#ClassForTestToBeDeleted1
		classPool: 	nil
		sharedPools: 	nil
		environment: 	a SystemDictionary(lots of globals)
		category: 	nil
		traitComposition: 	FLTraitForTestingaTrait
		localSelectors: 	nil

IdentitySet(Set)>>do:
	Receiver: an IdentitySet(#instanceBindings)
	Arguments and temporary variables: 
		aBlock: 	[:selector | affectedSelectors
		addAll: (self updateMethodDictionarySe...etc...
		index: 	5
		each: 	#instanceBindings
		indexLimiT: 	5
	Receiver's instance variables: 
		tally: 	1
		array: 	#(nil nil nil nil #instanceBindings)

ClassForTestToBeDeleted1 class(Behavior)>>noteChangedSelectors:
	Receiver: ClassForTestToBeDeleted1
	Arguments and temporary variables: 
		aCollection: 	an IdentitySet(#instanceBindings)
		affectedSelectors: 	an IdentitySet()
	Receiver's instance variables: 
		superclass: 	Object
		methodDict: 	a MethodDictionary()
		format: 	2
		layout: 	nil
		instanceVariables: 	nil
		organization: 	nil
		subclasses: 	nil
		name: 	#ClassForTestToBeDeleted1
		classPool: 	nil
		sharedPools: 	nil
		environment: 	a SystemDictionary(lots of globals)
		category: 	nil
		traitComposition: 	FLTraitForTestingaTrait
		localSelectors: 	nil

ClassForTestToBeDeleted1 class(Behavior)>>applyChangesOfNewTraitCompositionReplacing:
	Receiver: ClassForTestToBeDeleted1
	Arguments and temporary variables: 
		oldComposition: 	{}
		changedSelectors: 	an IdentitySet(#instanceBindings)
	Receiver's instance variables: 
		superclass: 	Object
		methodDict: 	a MethodDictionary()
		format: 	2
		layout: 	nil
		instanceVariables: 	nil
		organization: 	nil
		subclasses: 	nil
		name: 	#ClassForTestToBeDeleted1
		classPool: 	nil
		sharedPools: 	nil
		environment: 	a SystemDictionary(lots of globals)
		category: 	nil
		traitComposition: 	FLTraitForTestingaTrait
		localSelectors: 	nil

ClassForTestToBeDeleted1 class(ClassDescription)>>applyChangesOfNewTraitCompositionReplacing:
	Receiver: ClassForTestToBeDeleted1
	Arguments and temporary variables: 
		oldComposition: 	{}
		changedSelectors: 	nil
	Receiver's instance variables: 
		superclass: 	Object
		methodDict: 	a MethodDictionary()
		format: 	2
		layout: 	nil
		instanceVariables: 	nil
		organization: 	nil
		subclasses: 	nil
		name: 	#ClassForTestToBeDeleted1
		classPool: 	nil
		sharedPools: 	nil
		environment: 	a SystemDictionary(lots of globals)
		category: 	nil
		traitComposition: 	FLTraitForTestingaTrait
		localSelectors: 	nil

ClassForTestToBeDeleted1 class(Class)>>applyChangesOfNewTraitCompositionReplacing:
	Receiver: ClassForTestToBeDeleted1
	Arguments and temporary variables: 
		oldComposition: 	{}
		changedSelectors: 	nil
	Receiver's instance variables: 
		superclass: 	Object
		methodDict: 	a MethodDictionary()
		format: 	2
		layout: 	nil
		instanceVariables: 	nil
		organization: 	nil
		subclasses: 	nil
		name: 	#ClassForTestToBeDeleted1
		classPool: 	nil
		sharedPools: 	nil
		environment: 	a SystemDictionary(lots of globals)
		category: 	nil
		traitComposition: 	FLTraitForTestingaTrait
		localSelectors: 	nil

ClassForTestToBeDeleted1 class(Behavior)>>setTraitComposition:
	Receiver: ClassForTestToBeDeleted1
	Arguments and temporary variables: 
		aTraitComposition: 	FLTraitForTestingaTrait
		oldComposition: 	{}
	Receiver's instance variables: 
		superclass: 	Object
		methodDict: 	a MethodDictionary()
		format: 	2
		layout: 	nil
		instanceVariables: 	nil
		organization: 	nil
		subclasses: 	nil
		name: 	#ClassForTestToBeDeleted1
		classPool: 	nil
		sharedPools: 	nil
		environment: 	a SystemDictionary(lots of globals)
		category: 	nil
		traitComposition: 	FLTraitForTestingaTrait
		localSelectors: 	nil

ClassForTestToBeDeleted1 class(Behavior)>>addToComposition:
	Receiver: ClassForTestToBeDeleted1
	Arguments and temporary variables: 
		aTrait: 	FLTraitForTestingaTrait
	Receiver's instance variables: 
		superclass: 	Object
		methodDict: 	a MethodDictionary()
		format: 	2
		layout: 	nil
		instanceVariables: 	nil
		organization: 	nil
		subclasses: 	nil
		name: 	#ClassForTestToBeDeleted1
		classPool: 	nil
		sharedPools: 	nil
		environment: 	a SystemDictionary(lots of globals)
		category: 	nil
		traitComposition: 	FLTraitForTestingaTrait
		localSelectors: 	nil

FLPackageLoaderTest>>testTraitLoad
	Receiver: FLPackageLoaderTest>>#testTraitLoad
	Arguments and temporary variables: 
		aClass: 	ClassForTestToBeDeleted1
		name: 	#ClassForTestToBeDeleted1
		materializedClass: 	nil
		materializedTrait: 	nil
		aTrait: 	FLTraitForTestingaTrait
		traitName: 	nil
	Receiver's instance variables: 
		testSelector: 	#testTraitLoad
		expectedFails: 	nil
		serializer: 	a FLSerializer
		materializer: 	a FLMaterializer
		classFactory: 	a ClassFactoryForTestCase
		streamFactory: 	a FLMultiByteStreamStrategy

FLPackageLoaderTest(TestCase)>>performTest
	Receiver: FLPackageLoaderTest>>#testTraitLoad
	Arguments and temporary variables: 

	Receiver's instance variables: 
		testSelector: 	#testTraitLoad
		expectedFails: 	nil
		serializer: 	a FLSerializer
		materializer: 	a FLMaterializer
		classFactory: 	a ClassFactoryForTestCase
		streamFactory: 	a FLMultiByteStreamStrategy

[self setUp.
	self performTest] in FLPackageLoaderTest(TestCase)>>runCase
	Receiver: FLPackageLoaderTest>>#testTraitLoad
	Arguments and temporary variables: 

	Receiver's instance variables: 
		testSelector: 	#testTraitLoad
		expectedFails: 	nil
		serializer: 	a FLSerializer
		materializer: 	a FLMaterializer
		classFactory: 	a ClassFactoryForTestCase
		streamFactory: 	a FLMultiByteStreamStrategy

BlockClosure>>ensure:
	Receiver: [self setUp.
	self performTest]
	Arguments and temporary variables: 
		aBlock: 	[self tearDown.
	self cleanUpInstanceVariables]
		complete: 	nil
		returnValue: 	nil
	Receiver's instance variables: 
		outerContext: 	FLPackageLoaderTest(TestCase)>>runCase
		startpc: 	57
		numArgs: 	0

FLPackageLoaderTest(TestCase)>>runCase
	Receiver: FLPackageLoaderTest>>#testTraitLoad
	Arguments and temporary variables: 

	Receiver's instance variables: 
		testSelector: 	#testTraitLoad
		expectedFails: 	nil
		serializer: 	a FLSerializer
		materializer: 	a FLMaterializer
		classFactory: 	a ClassFactoryForTestCase
		streamFactory: 	a FLMultiByteStreamStrategy

[aTestCase announce: TestCaseStarted withResult: self.
	aTestCase runCase.
	aTestCase announce: TestCaseEnded withResult: self.
	self addPass: aTestCase] in TestResult>>runCase:
	Receiver: 0 run, 0 passes, 0 expected failures, 0 failures, 0 errors, 0 unexpected passes
	Arguments and temporary variables: 
		aTestCase: 	FLPackageLoaderTest>>#testTraitLoad
	Receiver's instance variables: 
		timeStamp: 	2012-05-04T23:11:10.884+02:00
		failures: 	a Set()
		errors: 	an OrderedCollection()
		passed: 	an OrderedCollection()

BlockClosure>>on:do:
	Receiver: [aTestCase announce: TestCaseStarted withResult: self.
	aTestCase runCase.
	aTestCase anno...etc...
	Arguments and temporary variables: 
		exception: 	an ExceptionSet
		handlerAction: 	[:ex | ex sunitAnnounce: aTestCase toResult: self]
		handlerActive: 	true
	Receiver's instance variables: 
		outerContext: 	TestResult>>runCase:
		startpc: 	66
		numArgs: 	0

TestResult>>runCase:
	Receiver: 0 run, 0 passes, 0 expected failures, 0 failures, 0 errors, 0 unexpected passes
	Arguments and temporary variables: 
		aTestCase: 	FLPackageLoaderTest>>#testTraitLoad
	Receiver's instance variables: 
		timeStamp: 	2012-05-04T23:11:10.884+02:00
		failures: 	a Set()
		errors: 	an OrderedCollection()
		passed: 	an OrderedCollection()

FLPackageLoaderTest(TestCase)>>run:
	Receiver: FLPackageLoaderTest>>#testTraitLoad
	Arguments and temporary variables: 
		aResult: 	0 run, 0 passes, 0 expected failures, 0 failures, 0 errors, 0 unexpect...etc...
	Receiver's instance variables: 
		testSelector: 	#testTraitLoad
		expectedFails: 	nil
		serializer: 	a FLSerializer
		materializer: 	a FLMaterializer
		classFactory: 	a ClassFactoryForTestCase
		streamFactory: 	a FLMultiByteStreamStrategy

[self run: result] in FLPackageLoaderTest(TestCase)>>run
	Receiver: FLPackageLoaderTest>>#testTraitLoad
	Arguments and temporary variables: 
		result: 	0 run, 0 passes, 0 expected failures, 0 failures, 0 errors, 0 unexpecte...etc...
	Receiver's instance variables: 
		testSelector: 	#testTraitLoad
		expectedFails: 	nil
		serializer: 	a FLSerializer
		materializer: 	a FLMaterializer
		classFactory: 	a ClassFactoryForTestCase
		streamFactory: 	a FLMultiByteStreamStrategy

BlockClosure>>ensure:
	Receiver: [self run: result]
	Arguments and temporary variables: 
		aBlock: 	[TestResource resetResources: self resources]
		complete: 	nil
		returnValue: 	nil
	Receiver's instance variables: 
		outerContext: 	FLPackageLoaderTest(TestCase)>>run
		startpc: 	45
		numArgs: 	0

FLPackageLoaderTest(TestCase)>>run
	Receiver: FLPackageLoaderTest>>#testTraitLoad
	Arguments and temporary variables: 
		result: 	0 run, 0 passes, 0 expected failures, 0 failures, 0 errors, 0 unexpecte...etc...
	Receiver's instance variables: 
		testSelector: 	#testTraitLoad
		expectedFails: 	nil
		serializer: 	a FLSerializer
		materializer: 	a FLMaterializer
		classFactory: 	a ClassFactoryForTestCase
		streamFactory: 	a FLMultiByteStreamStrategy

FLPackageLoaderTest class(TestCase class)>>run:
	Receiver: FLPackageLoaderTest
	Arguments and temporary variables: 
		aSymbol: 	#testTraitLoad
	Receiver's instance variables: 
		superclass: 	FLSerializationTest
		methodDict: 	a MethodDictionary(#categoryForMethodExtensions->(FLPackageLoaderTe...etc...
		format: 	142
		layout: 	nil
		instanceVariables: 	nil
		organization: 	a ClassOrganizer
		subclasses: 	nil
		name: 	#FLPackageLoaderTest
		classPool: 	nil
		sharedPools: 	nil
		environment: 	a SystemDictionary(lots of globals)
		category: 	#FuelPackageLoaderTests
		traitComposition: 	{}
		localSelectors: 	nil
		history: 	a Dictionary(#errors->a Set() #failures->a Set(#testMethodWithUndeclar...etc...

[| vScroll testClass testResult |
vScroll := methodWidget vScrollValue.
	testClass := testMethod methodClass.
	testResult := testClass run: testMethod selector.
	testResult updateResultsInHistory.
	testSemaphoreForMethod signal.
	testSemaphore signal.
	(testResult failures isEmpty not
			or: [testResult errors isEmpty not])
		ifTrue: [testClass debug: testMethod selector].
	ClassesIconsCache
		removeKey: aMethod methodClass
		ifAbsent: [].
	WorldState
		addDeferredUIMessage: [methodWidget vScrollValue: vScroll]] in NautilusUI>>runTestForAMethod:notifying:
	Receiver: a NautilusUI
	Arguments and temporary variables: 
		aMethod: 	(FLPackageLoaderTest>>#testTraitLoad "a CompiledMethod(745275392)")
		testMethod: 	(FLPackageLoaderTest>>#testTraitLoad "a CompiledMethod(745275392)")...etc...
		testSemaphoreForMethod: 	a Semaphore()
		vScroll: 	0.0
		testClass: 	FLPackageLoaderTest
		testResult: 	nil
	Receiver's instance variables: 
		model: 	a Nautilus
		window: 	a NautilusWindow(30146560)
		hierarchyClass: 	nil
		cachedHierarchy: 	an IdentityDictionary(FLPackageLoaderDummy->an OrderedCollecti...etc...
		sourceTextArea: 	a PluggableTextMorphWithLimits(219938816)
		firstColumn: 	a PanelMorph(695730176)
		secondColumn: 	a PanelMorph(322961408)
		groupsSelection: 	a Dictionary()
		packagesSelection: 	a Dictionary(a RPackage(FuelPackageLoaderTests)->true )
		classesSelection: 	a Dictionary(FLPackageLoaderTest->true )
		list: 	a PluggableIconListMorph(731906048)
		list2: 	a PluggableIconListMorph(359137280)
		sourceCodePanel: 	a PanelMorph(183762944)
		commentTextArea: 	nil
		currentDisplayChoice: 	#SourceCode
		sourceTextAreaLimit: 	350
		sourceCodeContainer: 	a PanelMorph(314048512)
		list2Elements: 	{FLPackageLoaderDummy. FLPackageLoaderTest}
		listElements: 	an Array(a RPackage(AST-Core) a RPackage(AST-Core-Matching) a RPa...etc...
		shouldUpdateTitle: 	true
		testSemaphore: 	a Semaphore()
		categories: 	nil
		categoryWidget: 	a CategoryWidget
		methodWidget: 	a MethodWidget
		methods: 	nil

NautilusUI>>runTestForAMethod:notifying:
	Receiver: a NautilusUI
	Arguments and temporary variables: 
		aMethod: 	(FLPackageLoaderTest>>#testTraitLoad "a CompiledMethod(745275392)")
		aBoolean: 	false
		testMethod: 	(FLPackageLoaderTest>>#testTraitLoad "a CompiledMethod(745275392)")...etc...
		testSemaphoreForMethod: 	a Semaphore()
		blockToEvaluate: 	[| vScroll testClass testResult |
vScroll := methodWidget vScr...etc...
		color: 	nil
	Receiver's instance variables: 
		model: 	a Nautilus
		window: 	a NautilusWindow(30146560)
		hierarchyClass: 	nil
		cachedHierarchy: 	an IdentityDictionary(FLPackageLoaderDummy->an OrderedCollecti...etc...
		sourceTextArea: 	a PluggableTextMorphWithLimits(219938816)
		firstColumn: 	a PanelMorph(695730176)
		secondColumn: 	a PanelMorph(322961408)
		groupsSelection: 	a Dictionary()
		packagesSelection: 	a Dictionary(a RPackage(FuelPackageLoaderTests)->true )
		classesSelection: 	a Dictionary(FLPackageLoaderTest->true )
		list: 	a PluggableIconListMorph(731906048)
		list2: 	a PluggableIconListMorph(359137280)
		sourceCodePanel: 	a PanelMorph(183762944)
		commentTextArea: 	nil
		currentDisplayChoice: 	#SourceCode
		sourceTextAreaLimit: 	350
		sourceCodeContainer: 	a PanelMorph(314048512)
		list2Elements: 	{FLPackageLoaderDummy. FLPackageLoaderTest}
		listElements: 	an Array(a RPackage(AST-Core) a RPackage(AST-Core-Matching) a RPa...etc...
		shouldUpdateTitle: 	true
		testSemaphore: 	a Semaphore()
		categories: 	nil
		categoryWidget: 	a CategoryWidget
		methodWidget: 	a MethodWidget
		methods: 	nil

[self runTestForAMethod: method notifying: false] in [:method | method isTestMethod
		ifTrue: [size := size + 1.
			[self runTestForAMethod: method notifying: false]
				on: Error
				do: []]] in [aClass methodDict
		do: [:method | method isTestMethod
				ifTrue: [size := size + 1.
					[self runTestForAMethod: method notifying: false]
						on: Error
						do: []]]] in NautilusUI(AbstractNautilusUI)>>runTestsOfClass:notifying:
	Receiver: a NautilusUI
	Arguments and temporary variables: 
		method: 	(FLPackageLoaderTest>>#testTraitLoad "a CompiledMethod(745275392)")
	Receiver's instance variables: 
		model: 	a Nautilus
		window: 	a NautilusWindow(30146560)
		hierarchyClass: 	nil
		cachedHierarchy: 	an IdentityDictionary(FLPackageLoaderDummy->an OrderedCollecti...etc...
		sourceTextArea: 	a PluggableTextMorphWithLimits(219938816)
		firstColumn: 	a PanelMorph(695730176)
		secondColumn: 	a PanelMorph(322961408)
		groupsSelection: 	a Dictionary()
		packagesSelection: 	a Dictionary(a RPackage(FuelPackageLoaderTests)->true )
		classesSelection: 	a Dictionary(FLPackageLoaderTest->true )
		list: 	a PluggableIconListMorph(731906048)
		list2: 	a PluggableIconListMorph(359137280)
		sourceCodePanel: 	a PanelMorph(183762944)
		commentTextArea: 	nil
		currentDisplayChoice: 	#SourceCode
		sourceTextAreaLimit: 	350
		sourceCodeContainer: 	a PanelMorph(314048512)
		list2Elements: 	{FLPackageLoaderDummy. FLPackageLoaderTest}
		listElements: 	an Array(a RPackage(AST-Core) a RPackage(AST-Core-Matching) a RPa...etc...
		shouldUpdateTitle: 	true
		testSemaphore: 	a Semaphore()
		categories: 	nil
		categoryWidget: 	a CategoryWidget
		methodWidget: 	a MethodWidget
		methods: 	nil

BlockClosure>>on:do:
	Receiver: [self runTestForAMethod: method notifying: false]
	Arguments and temporary variables: 
		exception: 	Error
		handlerAction: 	[]
		handlerActive: 	true
	Receiver's instance variables: 
		outerContext: 	[:method | method isTestMethod
		ifTrue: [size := size + 1.
			[s...etc...
		startpc: 	146
		numArgs: 	0

[:method | method isTestMethod
		ifTrue: [size := size + 1.
			[self runTestForAMethod: method notifying: false]
				on: Error
				do: []]] in [aClass methodDict
		do: [:method | method isTestMethod
				ifTrue: [size := size + 1.
					[self runTestForAMethod: method notifying: false]
						on: Error
						do: []]]] in NautilusUI(AbstractNautilusUI)>>runTestsOfClass:notifying:
	Receiver: a NautilusUI
	Arguments and temporary variables: 
		size: 	(FLPackageLoaderTest>>#testTraitLoad "a CompiledMethod(745275392)")
		method: 	#(1)
	Receiver's instance variables: 
		model: 	a Nautilus
		window: 	a NautilusWindow(30146560)
		hierarchyClass: 	nil
		cachedHierarchy: 	an IdentityDictionary(FLPackageLoaderDummy->an OrderedCollecti...etc...
		sourceTextArea: 	a PluggableTextMorphWithLimits(219938816)
		firstColumn: 	a PanelMorph(695730176)
		secondColumn: 	a PanelMorph(322961408)
		groupsSelection: 	a Dictionary()
		packagesSelection: 	a Dictionary(a RPackage(FuelPackageLoaderTests)->true )
		classesSelection: 	a Dictionary(FLPackageLoaderTest->true )
		list: 	a PluggableIconListMorph(731906048)
		list2: 	a PluggableIconListMorph(359137280)
		sourceCodePanel: 	a PanelMorph(183762944)
		commentTextArea: 	nil
		currentDisplayChoice: 	#SourceCode
		sourceTextAreaLimit: 	350
		sourceCodeContainer: 	a PanelMorph(314048512)
		list2Elements: 	{FLPackageLoaderDummy. FLPackageLoaderTest}
		listElements: 	an Array(a RPackage(AST-Core) a RPackage(AST-Core-Matching) a RPa...etc...
		shouldUpdateTitle: 	true
		testSemaphore: 	a Semaphore()
		categories: 	nil
		categoryWidget: 	a CategoryWidget
		methodWidget: 	a MethodWidget
		methods: 	nil

MethodDictionary>>valuesDo:
	Receiver: a MethodDictionary(#categoryForMethodExtensions->(FLPackageLoaderTest>>#categoryForMethodE...etc...
	Arguments and temporary variables: 
		aBlock: 	[:method | method isTestMethod
		ifTrue: [size := size + 1.
			[self ru...etc...
		value: 	(FLPackageLoaderTest>>#testTraitLoad "a CompiledMethod(745275392)")
		i: 	1
		iLimiT: 	32
	Receiver's instance variables: 
		tally: 	22
		array: 	{(FLPackageLoaderTest>>#testTraitLoad "a CompiledMethod(745275392)"). (F...etc...

MethodDictionary(Dictionary)>>do:
	Receiver: a MethodDictionary(#categoryForMethodExtensions->(FLPackageLoaderTest>>#categoryForMethodE...etc...
	Arguments and temporary variables: 
		aBlock: 	[:method | method isTestMethod
		ifTrue: [size := size + 1.
			[self ru...etc...
	Receiver's instance variables: 
		tally: 	22
		array: 	{(FLPackageLoaderTest>>#testTraitLoad "a CompiledMethod(745275392)"). (F...etc...

[aClass methodDict
		do: [:method | method isTestMethod
				ifTrue: [size := size + 1.
					[self runTestForAMethod: method notifying: false]
						on: Error
						do: []]]] in NautilusUI(AbstractNautilusUI)>>runTestsOfClass:notifying:
	Receiver: a NautilusUI
	Arguments and temporary variables: 
		aClass: 	FLPackageLoaderTest
		size: 	#(1)
	Receiver's instance variables: 
		model: 	a Nautilus
		window: 	a NautilusWindow(30146560)
		hierarchyClass: 	nil
		cachedHierarchy: 	an IdentityDictionary(FLPackageLoaderDummy->an OrderedCollecti...etc...
		sourceTextArea: 	a PluggableTextMorphWithLimits(219938816)
		firstColumn: 	a PanelMorph(695730176)
		secondColumn: 	a PanelMorph(322961408)
		groupsSelection: 	a Dictionary()
		packagesSelection: 	a Dictionary(a RPackage(FuelPackageLoaderTests)->true )
		classesSelection: 	a Dictionary(FLPackageLoaderTest->true )
		list: 	a PluggableIconListMorph(731906048)
		list2: 	a PluggableIconListMorph(359137280)
		sourceCodePanel: 	a PanelMorph(183762944)
		commentTextArea: 	nil
		currentDisplayChoice: 	#SourceCode
		sourceTextAreaLimit: 	350
		sourceCodeContainer: 	a PanelMorph(314048512)
		list2Elements: 	{FLPackageLoaderDummy. FLPackageLoaderTest}
		listElements: 	an Array(a RPackage(AST-Core) a RPackage(AST-Core-Matching) a RPa...etc...
		shouldUpdateTitle: 	true
		testSemaphore: 	a Semaphore()
		categories: 	nil
		categoryWidget: 	a CategoryWidget
		methodWidget: 	a MethodWidget
		methods: 	nil

[self value.
	Processor terminateActive] in BlockClosure>>newProcess
	Receiver: [aClass methodDict
		do: [:method | method isTestMethod
				ifTrue: [size := size + 1.
			...etc...
	Arguments and temporary variables: 

	Receiver's instance variables: 
		outerContext: 	NautilusUI(AbstractNautilusUI)>>runTestsOfClass:notifying:
		startpc: 	122
		numArgs: 	0

--- The full stack ---
Trait(Object)>>halt
Trait(TraitDescription)>>collectMethodsFor:into:
[:each | each collectMethodsFor: aSymbol into: description] in TraitComposition>>methodDescriptionForSelector:
OrderedCollection>>do:
TraitComposition>>methodDescriptionForSelector:
[:each | collection
		add: (self methodDescriptionForSelector: each)] in TraitComposition>>methodDescriptionsForSelector:
IdentitySet(Set)>>do:
TraitComposition>>methodDescriptionsForSelector:
ClassForTestToBeDeleted1 class(Behavior)>>updateMethodDictionarySelector:
[:selector | affectedSelectors
		addAll: (self updateMethodDictionarySelector: selector)] in ClassForTestToBeDeleted1 class(Behavior)>>noteChangedSelectors:
IdentitySet(Set)>>do:
ClassForTestToBeDeleted1 class(Behavior)>>noteChangedSelectors:
ClassForTestToBeDeleted1 class(Behavior)>>applyChangesOfNewTraitCompositionReplacing:
ClassForTestToBeDeleted1 class(ClassDescription)>>applyChangesOfNewTraitCompositionReplacing:
ClassForTestToBeDeleted1 class(Class)>>applyChangesOfNewTraitCompositionReplacing:
ClassForTestToBeDeleted1 class(Behavior)>>setTraitComposition:
ClassForTestToBeDeleted1 class(Behavior)>>addToComposition:
FLPackageLoaderTest>>testTraitLoad
FLPackageLoaderTest(TestCase)>>performTest
[self setUp.
	self performTest] in FLPackageLoaderTest(TestCase)>>runCase
BlockClosure>>ensure:
FLPackageLoaderTest(TestCase)>>runCase
[aTestCase announce: TestCaseStarted withResult: self.
	aTestCase runCase.
	aTestCase announce: TestCaseEnded withResult: self.
	self addPass: aTestCase] in TestResult>>runCase:
BlockClosure>>on:do:
TestResult>>runCase:
FLPackageLoaderTest(TestCase)>>run:
[self run: result] in FLPackageLoaderTest(TestCase)>>run
BlockClosure>>ensure:
FLPackageLoaderTest(TestCase)>>run
FLPackageLoaderTest class(TestCase class)>>run:
[| vScroll testClass testResult |
vScroll := methodWidget vScrollValue.
	testClass := testMethod methodClass.
	testResult := testClass run: testMethod selector.
	testResult updateResultsInHistory.
	testSemaphoreForMethod signal.
	testSemaphore signal.
	(testResult failures isEmpty not
			or: [testResult errors isEmpty not])
		ifTrue: [testClass debug: testMethod selector].
	ClassesIconsCache
		removeKey: aMethod methodClass
		ifAbsent: [].
	WorldState
		addDeferredUIMessage: [methodWidget vScrollValue: vScroll]] in NautilusUI>>runTestForAMethod:notifying:
NautilusUI>>runTestForAMethod:notifying:
[self runTestForAMethod: method notifying: false] in [:method | method isTestMethod
		ifTrue: [size := size + 1.
			[self runTestForAMethod: method notifying: false]
				on: Error
				do: []]] in [aClass methodDict
		do: [:method | method isTestMethod
				ifTrue: [size := size + 1.
					[self runTestForAMethod: method notifying: false]
						on: Error
						do: []]]] in NautilusUI(AbstractNautilusUI)>>runTestsOfClass:notifying:
BlockClosure>>on:do:
[:method | method isTestMethod
		ifTrue: [size := size + 1.
			[self runTestForAMethod: method notifying: false]
				on: Error
				do: []]] in [aClass methodDict
		do: [:method | method isTestMethod
				ifTrue: [size := size + 1.
					[self runTestForAMethod: method notifying: false]
						on: Error
						do: []]]] in NautilusUI(AbstractNautilusUI)>>runTestsOfClass:notifying:
MethodDictionary>>valuesDo:
MethodDictionary(Dictionary)>>do:
[aClass methodDict
		do: [:method | method isTestMethod
				ifTrue: [size := size + 1.
					[self runTestForAMethod: method notifying: false]
						on: Error
						do: []]]] in NautilusUI(AbstractNautilusUI)>>runTestsOfClass:notifying:
[self value.
	Processor terminateActive] in BlockClosure>>newProcess