20626-Fixing-Tests-in-CI

src/CodeExport/ChunkWriteStream.class.st

@@ -8,7 +8,7 @@ symbols
 Class {
 	#name : #ChunkWriteStream,
 	#superclass : #DecoratorStream,
-	#category : 'CodeExport'
+	#category : #CodeExport
 }
 
 { #category : #writing }

src/CodeExport/CodeExporter.class.st

@@ -1,19 +1,23 @@
 Class {
 	#name : #CodeExporter,
 	#superclass : #Object,
-	#category : 'CodeExport'
+	#category : #CodeExport
 }
 
 { #category : #file-out }
 CodeExporter class >> writeSourceCodeFrom: aStream baseName: baseName isSt: stOrCsFlag [
 
-	| extension converter fileName  |
+	| extension fileName  outputStream |
 	extension := stOrCsFlag ifTrue: ['.st']  ifFalse: ['.cs'].
 	fileName := baseName, extension.
 	fileName := FileSystem disk checkName: fileName fixErrors: true.
+	outputStream := (File named: fileName) writeStream.
+
 	(ZnCrPortableWriteStream on: (ZnCharacterWriteStream
-		on: (File named: fileName) writeStream
+		on: outputStream
 		encoding: 'utf8')) nextPutAll: aStream contents.
 
+	outputStream close.
+
 	self inform: 'Filed out to: ', String cr, fileName.
 ]

src/CodeExport/ManifestCodeExport.class.st

@@ -4,7 +4,7 @@ I store metadata for this package. These meta data are used by other tools such
 Class {
 	#name : #ManifestCodeExport,
 	#superclass : #PackageManifest,
-	#category : 'CodeExport'
+	#category : #CodeExport
 }
 
 { #category : #'meta-data - dependency analyser' }

src/Files-Tests/BinaryFileStreamTest.class.st

@@ -1,7 +1,7 @@
 Class {
 	#name : #BinaryFileStreamTest,
 	#superclass : #TestCase,
-	#category : 'Files-Tests'
+	#category : #Files-Tests
 }
 
 { #category : #running }

src/Files-Tests/FileTest.class.st

@@ -1,7 +1,7 @@
 Class {
 	#name : #FileTest,
 	#superclass : #TestCase,
-	#category : 'Files-Tests'
+	#category : #Files-Tests
 }
 
 { #category : #running }
@@ -15,7 +15,7 @@ FileTest >> testCheckExistenceOfExistingFileThrowsException [
 
 	| file |
 	file := File named: 'asd.txt'.
-	file writeStream.
+	file writeStream close.
 	self should: [file checkDoesNotExist] raise: FileAlreadyExistsException.
 ]