cross-platform codec tests

Johan Brichau · Johan Brichau · commit 64046baa560e · 2020-12-26T11:17:35.000+01:00
diff --git a/repository/Grease-Tests-Core.package/GRCountingStreamTest.class/instance/setUp.st b/repository/Grease-Tests-Core.package/GRCountingStreamTest.class/instance/setUp.st
@@ -1,5 +1,5 @@
 running
 setUp
 	| codecStream |
-	codecStream := ((GRCodec forEncoding: 'utf-8') encoderFor: (WriteStream on: ByteArray new)).
+	codecStream := ((GRCodec forEncoding: 'utf-8') encoderFor: (WriteStream on: (GRCodec forEncoding: 'utf-8') encodedStringClass new)).
 	countingStream := GRCountingStream on: codecStream
diff --git a/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/testCodecUtf8BorderLineString.st b/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/testCodecUtf8BorderLineString.st
@@ -3,7 +3,7 @@ testCodecUtf8BorderLineString
 	#('UTF-8' 'utf-8') do: [ :codecName |
 		| codec writeStream |
 		codec := GRCodec forEncoding: codecName.
-		writeStream := codec encoderFor: GRPlatform current readWriteByteStream.
+		writeStream := codec encoderFor: (GRPlatform current writeCharacterStreamOn: codec encodedStringClass new).
 		writeStream nextPut: (Character codePoint: 0).
 		writeStream nextPut: (Character codePoint: 255).
 		writeStream nextPut: (Character codePoint: 256).
diff --git a/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/testCodecUtf8ShortestForm.st b/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/testCodecUtf8ShortestForm.st
@@ -5,7 +5,9 @@ testCodecUtf8ShortestForm
 	#('UTF-8' 'utf-8') do: [ :codecName |
 		| codec abc |
 		codec := GRCodec forEncoding: codecName.
-		abc := self asByteArray: #(193 129 193 130 193 131 ).
+		codec encodedStringClass == ByteArray
+			ifTrue:[ abc := self asByteArray: #(193 129 193 130 193 131 ) ]
+			ifFalse:[ abc := self asString: #(193 129 193 130 193 131 ) ].
 		self
 			should: [ self deny: (codec decode: abc) = 'ABC' ]
 			raise: Error ]
diff --git a/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/utf8StringOrByteArrayForCodec..st b/repository/Grease-Tests-Core.package/GRUtf8CodecTest.class/instance/utf8StringOrByteArrayForCodec..st
@@ -1,5 +1,7 @@
 accessing
 utf8StringOrByteArrayForCodec: codec
+	| bytes |
+	bytes := #(195 156 98 195 168 114 115 116 114 195 174 195 177 103 195 169).
 	^ codec encodedStringClass == ByteArray
-		ifTrue:[ self asByteArray: #(195 156 98 195 168 114 115 116 114 195 174 195 177 103 195 169) ]
-		ifFalse:[ self asString: #(195 156 98 195 168 114 115 116 114 195 174 195 177 103 195 169) ]
+		ifTrue:[ self asByteArray: bytes ]
+		ifFalse:[ self asString: bytes ]
