[View] [Edit] [Lock] [References] [Attachments] [History] [Home] [Changes] [Search] [Help]
test[u8Debugger] 001 - Check debugee
"Check debugger is paused"
| debugee failed |
failed := [
self note: 'Debugger must be running and paused at this time.'.
self note: 'Read more on how to run this testset at <a href="http://swiki.smalltalking.net/s8-media/TestU8DebuggerIndex">U8Debugger testset index page</a>'.
self abort
].
debugee := U8Debugee current.
debugee isNil ifTrue: [ ^failed value ].
debugee state = #paused ifFalse: [
self note: 'The debugger must be paused'.
self note: 'Evaluate "self halt" on debugee to pause the debugger'.
^self abort
].
self note: 'U8Debugger OK'