Change ascii to utf8 encoding for text files in Pharo 9

Johan Brichau · Johan Brichau · commit 13977794b6a4 · 2021-08-15T11:43:25.000+02:00
diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/readFileStreamOn.do.binary..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/readFileStreamOn.do.binary..st
@@ -3,4 +3,4 @@ readFileStreamOn: aString do: aBlock binary: aBoolean
 
 	^ aBoolean
 		ifTrue: [ aString asFileReference binaryReadStreamDo: aBlock ]
-		ifFalse: [ aString asFileReference readStreamEncoded: 'ascii' do: aBlock ]
+		ifFalse: [ aString asFileReference readStreamEncoded: 'utf-8' do: aBlock ]
diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/writeFileStreamOn.do.binary..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/writeFileStreamOn.do.binary..st
@@ -2,4 +2,4 @@ file library
 writeFileStreamOn: aString do: aBlock binary: aBoolean
 	^ aBoolean
 		ifTrue: [ aString asFileReference binaryWriteStreamDo: aBlock ]
-		ifFalse: [ aString asFileReference writeStreamEncoded: 'ascii' do: [ :str | aBlock value: (ZnNewLineWriterStream on: str) ] ]
+		ifFalse: [ aString asFileReference writeStreamEncoded: 'utf-8' do: [ :str | aBlock value: (ZnNewLineWriterStream on: str) ] ]
diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteToFileInFolderText.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testReadWriteToFileInFolderText.st
@@ -1,8 +1,7 @@
 tests-filestreams
 testReadWriteToFileInFolderText
-	| text |
-	text := 'Ph''nglui mglw''nafh Cthulhu R''lyeh wgah''nagl fhtagn'.
-	self 
-		writeToFile: text 
-		withFileNameDo:[ :fileName |
-			self assert: (text = (GRPlatform current contentsOfFile: fileName binary: false)) ] 
+	#('Ph''nglui mglw''nafh Cthulhu R''lyeh wgah''nagl fhtagn' 'Übèrstrîñgé') do:[ :text | 
+		self 
+			writeToFile: text 
+			withFileNameDo:[ :fileName |
+				self assert: text equals: (GRPlatform current contentsOfFile: fileName binary: false) ] ].
