Move utf8 test file read/write test to Pharo specific test package and mark it as expected failure for Pharo 7 (and earlier)

Johan Brichau · Johan Brichau · commit d305fd5012ac · 2021-08-16T09:44:20.000+02:00
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,7 +1,8 @@
 tests-filestreams
 testReadWriteToFileInFolderText
-	#('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) ] ].
+	| 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)) ] 
diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/expectedFailures.st b/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/expectedFailures.st
@@ -0,0 +1,10 @@
+running
+expectedFailures
+	"UTF8 encoding/decoding for text files only available from Pharo7"
+	Smalltalk at: #SystemVersion ifPresent: [ :systemVersion |
+		| versionString |
+		versionString := systemVersion current version.
+		(versionString beginsWith: 'Pharo') ifTrue: [
+			systemVersion current major <= 7
+				ifTrue: [ ^ #(testReadWriteToFileInFolderTextUTF8) ] ] ].
+	^ #()
diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testReadWriteToFileInFolderTextUTF8.st b/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testReadWriteToFileInFolderTextUTF8.st
@@ -0,0 +1,7 @@
+tests-filestreams
+testReadWriteToFileInFolderTextUTF8
+	#('Übèrstrîñgé' '£ęλ~') do:[ :text | 
+		self 
+			writeToFile: text 
+			withFileNameDo:[ :fileName |
+				self assert: text equals: (GRPlatform current contentsOfFile: fileName binary: false) ] ].
