Garbage collect after example tests

OpenPonk · Jul 25, 2024 · 3c5a1c5 · 3c5a1c5
1 parent 0e68d38
commit 3c5a1c5
Showing 1 changed file with 9 additions and 5 deletions.
diff --git a/repository/OpenPonk-Core/OPExamplePersistenceTest.class.st b/repository/OpenPonk-Core/OPExamplePersistenceTest.class.st
@@ -35,13 +35,17 @@ OPExamplePersistenceTest >> setUp [
 { #category : 'running' }
 OPExamplePersistenceTest >> tearDown [
 
-	super tearDown.
 	sourceWorkbench ifNotNil: [ :workbench |
-		workbench application closeAllWindows ].
+		workbench application closeAllWindows.
+		sourceWorkbench := nil ].
 	targetWorkbench ifNotNil: [ :workbench |
-		workbench application closeAllWindows ].
-	file ifNil: [ ^ self ].
-	file ensureDelete
+		workbench application closeAllWindows.
+		targetWorkbench := nil ].
+	file ifNotNil: [
+		file ensureDelete.
+		file := nil ].
+	Smalltalk garbageCollect.
+	super tearDown
 ]
 
 { #category : 'tests' }