Merge pull request #8457 from samakhov/8377-Fix-testOpenLog-should-no…

…t-let-files-on-disk

Clean the log file created on the disk by the test

src/System-Support-Tests/SmalltalkImageTest.class.st

@@ -114,7 +114,10 @@ SmalltalkImageTest >> testOpenLog [
 	"Other cases where a file with the given name can not be created."
 	self 
 		writeToLogWithFileNamed: '';
-		writeToLogWithFileNamed: '.'
+		writeToLogWithFileNamed: '.'.
+
+	"clean the created log file"	
+	'file.log' asFileReference ensureDelete
 
 ]
 
@@ -126,6 +129,7 @@ SmalltalkImageTest >> writeToLogWithFileNamed: filename [
 	[ 
 	| stream |
 	stream := Smalltalk image openLog.
-	stream nextPutAll: 'foobar'	"We just make sure we can write something. I don't know any reliable way to check if it has really been written" ]
+	stream nextPutAll: 'foobar'."We just make sure we can write something. I don't know any reliable way to check if it has really been written"
+	Smalltalk closeLog: stream ]
 		ensure: [ Smalltalk logFileName: oldLogFileName ]
 ]