Last changes + test while debugging with Carolina

Author: StevenCostiou

src/Sindarin-Tests/SindarinDebuggerTest.class.st

@@ -2011,6 +2011,21 @@ SindarinDebuggerTest >> testStepUntil [
 	self assert: i equals: 12
 ]
 
+{ #category : 'tests' }
+SindarinDebuggerTest >> testStepUntilOverAnEnsureBlock [
+	| i sindarin startingContext |
+	i := 20.
+	sindarin := SindarinDebugger
+		debug:  [[ 5 timesRepeat:[i := i + 1]] ensure: [i := 42] ].
+	startingContext := sindarin context. 
+	sindarin stepUntil: [ i = 23 ].
+	self assert: i equals: 23.
+	self should: [sindarin stepUntil: [ i = 30 ]] raise: DebuggedExecutionIsFinished.
+	self assert: i equals: 42.
+	"self assert: sindarin context identicalTo: startingContext "
+	
+]
+
 { #category : 'tests' }
 SindarinDebuggerTest >> testSteppingAnExecutionSignalingExceptions [
 	| scdbg |

src/Sindarin/SindarinDebugSession.class.st

@@ -43,6 +43,12 @@ SindarinDebugSession >> basicStepOver: aContext [
 	^ self debugSession stepOver: aContext
 ]
 
+{ #category : 'api - debug session' }
+SindarinDebugSession >> basicStepThrough: aContext [
+
+	^ self debugSession stepThrough: aContext
+]
+
 { #category : 'accessing' }
 SindarinDebugSession >> canBeTerminated [
 

src/Sindarin/SindarinDebugger.class.st

@@ -618,7 +618,7 @@ SindarinDebugger >> stepUntil: aBlock [
 			self method primitive = 198
 				ifTrue: [
 						self isExecutionFinished ifFalse: [
-							sindarinSession basicStepOver: self context sender ] ]
+							sindarinSession basicStepThrough: self context sender] ]
 				ifFalse: [ self step ] ]
 ]