From ff199ccb9fe38b00f1c81a65ff1bf5849aa57dfc Mon Sep 17 00:00:00 2001 From: CyrilFerlicot Date: Fri, 7 Apr 2023 20:20:41 +0200 Subject: [PATCH 1/2] NewTools-Debugger-Breakpoints-Tools leaves the image in a dirty state. This fixes it --- .../StHaltAndBreakpointControlTest.class.st | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/NewTools-Debugger-Breakpoints-Tools/StHaltAndBreakpointControlTest.class.st b/src/NewTools-Debugger-Breakpoints-Tools/StHaltAndBreakpointControlTest.class.st index 1f3a3be48..a44c285d2 100644 --- a/src/NewTools-Debugger-Breakpoints-Tools/StHaltAndBreakpointControlTest.class.st +++ b/src/NewTools-Debugger-Breakpoints-Tools/StHaltAndBreakpointControlTest.class.st @@ -30,8 +30,8 @@ StHaltAndBreakpointControlTest >> methodWithHaltSources [ { #category : #helpers } StHaltAndBreakpointControlTest >> removeMethodsWithHalts [ - self testClass methods - do: [ :method | self testClass removeSelector: method selector] + + (self testClass methods select: [ :m | m selector includesSubstring: 'Halt' ]) do: [ :method | self testClass removeSelector: method selector ] ] { #category : #running } From 69bc2b5de3067a5744ae5913f567787587c98e8c Mon Sep 17 00:00:00 2001 From: CyrilFerlicot Date: Mon, 10 Apr 2023 01:52:49 +0200 Subject: [PATCH 2/2] Fix tests --- .../StHaltCacheTest.class.st | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/NewTools-Debugger-Breakpoints-Tools/StHaltCacheTest.class.st b/src/NewTools-Debugger-Breakpoints-Tools/StHaltCacheTest.class.st index 7818aaf00..4abe11b89 100644 --- a/src/NewTools-Debugger-Breakpoints-Tools/StHaltCacheTest.class.st +++ b/src/NewTools-Debugger-Breakpoints-Tools/StHaltCacheTest.class.st @@ -58,7 +58,7 @@ StHaltCacheTest >> testInitialCacheBuild [ self assert: cache methodsWithHalts size equals: 6. (self testClass methods reject: [ :m | - #('StDummyTestClassWithHalts>>#mNoHalt' 'StDummyTestClassWithHalts>>#mRejectHalt') + #('StDummyTestClassWithHalts>>#mNoHalt' 'StDummyTestClassWithHalts>>#mRejectHalt' 'StDummyTestClassWithHalts>>#var') includes: m printString ]) do: [ :method | | haltNode nodeCache |