[squeak-dev] The Trunk: ToolsTests-tbn.5.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Apr 15 09:19:05 UTC 2010


Torsten Bergmann uploaded a new version of ToolsTests to project The Trunk:
http://source.squeak.org/trunk/ToolsTests-tbn.5.mcz

==================== Summary ====================

Name: ToolsTests-tbn.5
Author: tbn
Time: 15 April 2010, 11:19:01.066 am
UUID: 35fefd63-e097-c248-8c78-f6532dd339ef
Ancestors: ToolsTests-ar.4

categorize methods

=============== Diff against ToolsTests-ar.4 ===============

Item was changed:
+ ----- Method: DebuggerUnwindBug>>testUnwindDebugger (in category 'testing') -----
- ----- Method: DebuggerUnwindBug>>testUnwindDebugger (in category 'as yet unclassified') -----
  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: DebuggerUnwindBug>>testUnwindBlock (in category 'testing') -----
- ----- Method: DebuggerUnwindBug>>testUnwindBlock (in category 'as yet unclassified') -----
  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.
  !




More information about the Squeak-dev mailing list