Add test for GsDevKit/Grease issue 33

SeasideSt · Aug 19, 2024 · 34ad0c4 · 34ad0c4
1 parent f0dc0e9
commit 34ad0c4
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/repository/Javascript-Tests-Core.package/JSStreamTest.class/instance/testCodecStream.st b/repository/Javascript-Tests-Core.package/JSStreamTest.class/instance/testCodecStream.st
@@ -4,4 +4,10 @@ testCodecStream
 	actual := String streamContents: [ :stream |
 		(GRNullCodec new encoderFor: stream)
 			javascript: 'OK' ].
+	self assert: actual = '"OK"'.
+
+	"The second part of this test is in response to https://github.com/GsDevKit/Grease/issues/33"
+	actual := (GRCodec forEncoding: 'utf8') encodedStringClass streamContents: [ :stream |
+		((GRCodec forEncoding: 'utf8') encoderFor: stream)
+			javascript: 'OK' ].
 	self assert: actual = '"OK"'