[Pharo-dev] Puzzled

Camille Teruel camille.teruel at gmail.com
Fri Apr 4 03:21:11 EDT 2014


I tried on my machine in latest image and no matter how many times I run this test, this test still passes and I don't notice any slowdown nor image freeze. 
But I see the hanging processes.
Adding 'process terminate' at the end works for me.


On 3 avr. 2014, at 19:41, Pharo4Stef <pharo4Stef at free.fr> wrote:

> Hi guys
> 
> I need your brain cells.
> 
> When I execute the test 
> 
> testBasic
> 	| context process debugger printedString |
> 	context := [ 20 factorial ] asContext.
> 
> 	process := Process 
> 		forContext: context
> 		priority: Processor userInterruptPriority.
> 
> 	debugger := Smalltalk tools debugger new
> 						process: process
> 						controller: nil
> 						context: context.
> 	debugger stack expand.
> 
> 	self assert: debugger stack selectedIndex = 1.
> 	printedString := OpalCompiler isActive 
> 		ifTrue: [	'[ 20 factorial ] in DebuggerTest>>testBasic']
> 		ifFalse: [  '[...] in DebuggerTest>>testBasic' ]. 
> 	self assert: debugger stack selectedItem printString = printedString.
> 	
> 	debugger send.
> 	debugger send.
> 	self assert: debugger code getText = (Integer>>#factorial) sourceCode.
> 	self assert: debugger stack selectedItem printString =  'SmallInteger(Integer)>>factorial'.
> 
> two times my image (latest get totally unusable). 
> I thought that may be the process should be terminated 
> so I added 
> 
> 	process terminate
> 
> But nothing changes. I tried to debug the code but not chance.
> I tried self halt after [ 20 factorial ] asContext.
> 
> I tried to execute the beginning in a workspace and not as a test to eliminate problem.
> But again no chance.
> 
> 
> So did I miss something obvious?
> 
> Stef
> 	
> 
> 
> 
> 





More information about the Pharo-dev mailing list