Merge pull request #504 from pharo-spec/NewTools-tests-let-image-in-d…

…irty-state NewTools-Debugger-Breakpoints-Tools leaves the image in a dirty state.
pharo-spec · Apr 10, 2023 · 16dd8af · 16dd8af
2 parents df4dfc6 + 69bc2b5
commit 16dd8af
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git 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 }

diff --git 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 |