diff --git a/sources/JadeDebugger.cls b/sources/JadeDebugger.cls index 16b21d63..a43514c6 100644 --- a/sources/JadeDebugger.cls +++ b/sources/JadeDebugger.cls @@ -43,6 +43,7 @@ answer left in a state in which the cursor is not set back to its original value. We mitigate that problem by changing it to the default." + | suspendingList | Cursor reset. waitingForAnswerProcess := [[SessionManager inputState loopWhile: [answer isNil]] ensure: @@ -57,10 +58,13 @@ answer [:proc | "need to resume the suspended main process as main process" SessionManager current inputState main: Processor activeProcess. - proc resume. + proc resume: suspendingList. Processor terminateActive]]]] fork. + waitingForAnswerProcess name: 'debugger waitingForAnswerProcess' , self identityHash printString. debuggerProcess := Processor activeProcess. + debuggerProcess name: 'debuggerProcess' , self identityHash printString. + [suspendingList := debuggerProcess suspendingList] forkAt: Processor activePriority + 1. Processor suspendActive. debuggerProcess := nil. ^answer! diff --git a/sources/JadeiteTestResource.cls b/sources/JadeiteTestResource.cls index 1425fc07..781ae3b4 100644 --- a/sources/JadeiteTestResource.cls +++ b/sources/JadeiteTestResource.cls @@ -309,6 +309,9 @@ isAvailable sampleProject1Name ^'RowanSample1'! +sampleProject9Name + ^'RowanSample9'! + signalInitializationError "TestSuite>>run: in the SUnit pacakge sends this method to the class, but implements it on the instance. That appears @@ -320,6 +323,7 @@ signalInitializationError current!Accessing!public! ! isAvailable!public! ! sampleProject1Name!constants!public! ! +sampleProject9Name!constants!public! ! signalInitializationError!error handling!public! ! !