- Made Halt print without context when signalled directly, to match e…

…xisting behavior
emdonahue · Sep 7, 2022 · a4e8527 · a4e8527
1 parent 19f014f
commit a4e8527
Show file tree

Hide file tree

Showing 3 changed files with 17 additions and 1 deletion.
diff --git a/src/NewTools-Debugger-Tests/StDebuggerContextPredicateTest.class.st b/src/NewTools-Debugger-Tests/StDebuggerContextPredicateTest.class.st
@@ -80,6 +80,14 @@ StDebuggerContextPredicateTest >> testPrintHaltIfDescription [
 		equals: 'Halt in [ Halt if: [ true ] ] in StDebuggerContextPredicateTest>>testPrintHaltIfDescription'.
 ]
 
+{ #category : #tests }
+StDebuggerContextPredicateTest >> testPrintHaltNowDescription [
+	self assert: (StDebuggerActionModel on: 
+			([ Halt now ] on: Exception do: 
+				[ :e | StTestDebuggerProvider new sessionFor: nil exception: e ]) session) statusStringForContext
+		equals: 'Halt'.
+]
+
 { #category : #tests }
 StDebuggerContextPredicateTest >> testPrintPostMortemDescription [
 	self skip.

diff --git a/src/NewTools-Debugger/Halt.extension.st b/src/NewTools-Debugger/Halt.extension.st
@@ -0,0 +1,8 @@
+Extension { #name : #Halt }
+
+{ #category : #'*NewTools-Debugger' }
+Halt >> description [
+	(self signalContext receiver isKindOf: Exception) 
+		& (self signalContext selector = #signal) ifTrue: [ ^ 'Halt' ].
+	^ 'Halt in ', self signalContext asString.
+]
diff --git a/src/NewTools-Debugger/StDebuggerActionModel.class.st b/src/NewTools-Debugger/StDebuggerActionModel.class.st
@@ -351,7 +351,7 @@ StDebuggerActionModel >> stackOfSize: anInteger [
 { #category : #context }
 StDebuggerActionModel >> statusStringForContext [
 
-	^ self contextPredicate printDescription
+	^ self exception description
 ]
 
 { #category : #'debug - stepping' }