X Tutup
Skip to content

Commit 3760bc7

Browse files
author
Johan Brichau
authored
Merge pull request SeasideSt#140 from marschall/base64Encode
Add base 64 encoding support
2 parents d05db98 + 6106bc7 commit 3760bc7

File tree

9 files changed

+39
-0
lines changed

9 files changed

+39
-0
lines changed

‎repository/Grease-Core.package/GRPlatform.class/instance/base64Encode..st‎

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,4 @@
1+
encoding
2+
base64Encode: aByteArray
3+
"Base64 encode the given byte array and answer the result as a String."
4+
self subclassResponsibility

‎repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/base64Encode..st‎

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,3 @@
1+
encoding
2+
base64Encode: aByteArray
3+
^ (Base64MimeConverter mimeEncode: aByteArray readStream) contents

‎repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/base64Encode..st‎

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,3 @@
1+
encoding
2+
base64Encode: aByteArray
3+
^ aByteArray base64Encoded

‎repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/base64Encode..st‎

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,3 @@
1+
encoding
2+
base64Encode: aByteArray
3+
^ (Base64MimeConverter base64Encode: aByteArray readStream) contents

‎repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/base64Encode..st‎

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,3 @@
1+
encoding
2+
base64Encode: aByteArray
3+
^ aByteArray base64Encoded

‎repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/base64Encode..st‎

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,3 @@
1+
encoding
2+
base64Encode: aByteArray
3+
^ aByteArray base64Encoded

‎repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/base64Encode..st‎

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,3 @@
1+
encoding
2+
base64Encode: aByteArray
3+
^ aByteArray base64Encoded

‎repository/Grease-Squeak6-Core.package/GRPharoPlatform.class/instance/base64Encode..st‎

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,3 @@
1+
encoding
2+
base64Encode: aByteArray
3+
^ aByteArray base64Encoded

‎repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testBase64Encode.st‎

Lines changed: 14 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,14 @@
1+
tests
2+
testBase64Encode
3+
| input |
4+
input := #(
5+
(97 110 121 32 99 97 114 110 97 108 32 112 108 101 97 115 117 114 101 46) 'YW55IGNhcm5hbCBwbGVhc3VyZS4='
6+
(97 110 121 32 99 97 114 110 97 108 32 112 108 101 97 115 117 114 101) 'YW55IGNhcm5hbCBwbGVhc3VyZQ=='
7+
(97 110 121 32 99 97 114 110 97 108 32 112 108 101 97 115 117 114) 'YW55IGNhcm5hbCBwbGVhc3Vy'
8+
(97 110 121 32 99 97 114 110 97 108 32 112 108 101 97 115 117) 'YW55IGNhcm5hbCBwbGVhc3U='
9+
(97 110 121 32 99 97 114 110 97 108 32 112 108 101 97 115) 'YW55IGNhcm5hbCBwbGVhcw==').
10+
1 to: input size by: 2 do: [ :index |
11+
| decoded expected |
12+
decoded := GRPlatform current base64Encode: (input at: index) asByteArray.
13+
expected := input at: index + 1.
14+
self assert: decoded = expected ]

0 commit comments

Comments
 (0)
X Tutup