Add base 64 encoding support

marschall · marschall · commit b00facf24af9 · 2022-08-20T18:56:37.000+02:00
diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/base64Encode..st b/repository/Grease-Core.package/GRPlatform.class/instance/base64Encode..st
@@ -0,0 +1,4 @@
+encoding
+base64Encode: aByteArray
+	"Base64 encode the given byte array and answer the result as a String."
+	self subclassResponsibility
diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/base64Encode..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/base64Encode..st
@@ -0,0 +1,3 @@
+encoding
+base64Encode: aByteArray
+	^ aByteArray base64Encoded
diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testBase64Encode.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testBase64Encode.st
@@ -0,0 +1,14 @@
+tests
+testBase64Encode
+	| input |
+	input := #(
+		(97 110 121 32 99 97 114 110 97 108 32 112 108 101 97 115 117 114 101 46) 'YW55IGNhcm5hbCBwbGVhc3VyZS4=' 
+		(97 110 121 32 99 97 114 110 97 108 32 112 108 101 97 115 117 114 101) 'YW55IGNhcm5hbCBwbGVhc3VyZQ=='
+		(97 110 121 32 99 97 114 110 97 108 32 112 108 101 97 115 117 114) 'YW55IGNhcm5hbCBwbGVhc3Vy'
+		(97 110 121 32 99 97 114 110 97 108 32 112 108 101 97 115 117) 'YW55IGNhcm5hbCBwbGVhc3U=' 
+		(97 110 121 32 99 97 114 110 97 108 32 112 108 101 97 115) 'YW55IGNhcm5hbCBwbGVhcw==').
+	1 to: input size by: 2 do: [ :index |
+		| decoded expected |
+		decoded := GRPlatform current base64Encode: (input at: index) asByteArray.
+		expected := input at: index + 1.
+		self assert: decoded = expected ]

Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,3 @@`
	`1`	`+encoding`
	`2`	`+base64Encode: aByteArray`
	`3`	`+ ^ aByteArray base64Encoded`