Add back the GC as fallback for windows only

jecisc · Nov 21, 2023 · a377d0d · a377d0d
1 parent dbb753b
commit a377d0d
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 2 deletions.
diff --git a/Iceberg-Tests/IceGitTestFactory.class.st b/Iceberg-Tests/IceGitTestFactory.class.st
@@ -109,6 +109,10 @@ IceGitTestFactory >> tearDownWithRepository: aRepository [
 
 	aRepository ifNotNil: [
 		aRepository free.
-		aRepository location ifNotNil: #ensureDeleteAll ].
+		[ aRepository location ifNotNil: #ensureDeleteAll ]
+			on: CannotDeleteFileException
+			do: [ "On windows it is possible we need to finalize everything before deleting the files. We do not do it directly to avoid to lose too much speed"
+				Smalltalk garbageCollect.
+				aRepository location ifNotNil: #ensureDeleteAll ] ].
 	self remoteFileUrl asFileReference ensureDeleteAll
 ]
diff --git a/Iceberg-Tests/IceNotYetClonedRepositoryFixture.class.st b/Iceberg-Tests/IceNotYetClonedRepositoryFixture.class.st
@@ -110,5 +110,9 @@ IceNotYetClonedRepositoryFixture >> setUp [
 { #category : 'running' }
 IceNotYetClonedRepositoryFixture >> tearDown [
 
-	self location ifNotNil: #ensureDeleteAll
+	[ self location ifNotNil: #ensureDeleteAll ]
+		on: CannotDeleteFileException
+		do: [ "On windows it is possible we need to finalize everything before deleting the files. We do not do it directly to avoid to lose too much speed"
+			Smalltalk garbageCollect.
+			self location ifNotNil: #ensureDeleteAll ]
 ]