basis/base64/base64-tests.factor

   1 USING: base64 io.encodings.ascii io.encodings.string kernel
   2 sequences splitting strings tools.test ;
   3
   4 { "abcdefghijklmnopqrstuvwxyz" } [ "abcdefghijklmnopqrstuvwxyz" ascii encode >base64 base64> ascii decode
   5 ] unit-test
   6 { "" } [ "" ascii encode >base64 base64> ascii decode ] unit-test
   7 { "a" } [ "a" ascii encode >base64 base64> ascii decode ] unit-test
   8 { "ab" } [ "ab" ascii encode >base64 base64> ascii decode ] unit-test
   9 { "abc" } [ "abc" ascii encode >base64 base64> ascii decode ] unit-test
  10 { "abcde" } [ "abcde" ascii encode >base64 3 cut "\r\n" swap 3append base64> ascii decode ] unit-test
  11
  12 ! From http://en.wikipedia.org/wiki/Base64
  13 { "TWFuIGlzIGRpc3Rpbmd1aXNoZWQsIG5vdCBvbmx5IGJ5IGhpcyByZWFzb24sIGJ1dCBieSB0aGlzIHNpbmd1bGFyIHBhc3Npb24gZnJvbSBvdGhlciBhbmltYWxzLCB3aGljaCBpcyBhIGx1c3Qgb2YgdGhlIG1pbmQsIHRoYXQgYnkgYSBwZXJzZXZlcmFuY2Ugb2YgZGVsaWdodCBpbiB0aGUgY29udGludWVkIGFuZCBpbmRlZmF0aWdhYmxlIGdlbmVyYXRpb24gb2Yga25vd2xlZGdlLCBleGNlZWRzIHRoZSBzaG9ydCB2ZWhlbWVuY2Ugb2YgYW55IGNhcm5hbCBwbGVhc3VyZS4=" }
  14 [
  15     "Man is distinguished, not only by his reason, but by this singular passion from other animals, which is a lust of the mind, that by a perseverance of delight in the continued and indefatigable generation of knowledge, exceeds the short vehemence of any carnal pleasure."
  16     ascii encode >base64 >string
  17 ] unit-test
  18
  19 { "TWFuIGlzIGRpc3Rpbmd1aXNoZWQsIG5vdCBvbmx5IGJ5IGhpcyByZWFzb24sIGJ1dCBieSB0aGlz\r\nIHNpbmd1bGFyIHBhc3Npb24gZnJvbSBvdGhlciBhbmltYWxzLCB3aGljaCBpcyBhIGx1c3Qgb2Yg\r\ndGhlIG1pbmQsIHRoYXQgYnkgYSBwZXJzZXZlcmFuY2Ugb2YgZGVsaWdodCBpbiB0aGUgY29udGlu\r\ndWVkIGFuZCBpbmRlZmF0aWdhYmxlIGdlbmVyYXRpb24gb2Yga25vd2xlZGdlLCBleGNlZWRzIHRo\r\nZSBzaG9ydCB2ZWhlbWVuY2Ugb2YgYW55IGNhcm5hbCBwbGVhc3VyZS4=" }
  20 [
  21     "Man is distinguished, not only by his reason, but by this singular passion from other animals, which is a lust of the mind, that by a perseverance of delight in the continued and indefatigable generation of knowledge, exceeds the short vehemence of any carnal pleasure."
  22     ascii encode >base64-lines >string
  23 ] unit-test
  24
  25 [ { 33 52 17 40 12 51 33 43 18 33 23 } base64> ]
  26 [ malformed-base64? ] must-fail-with
  27
  28 {
  29     {
  30         B{ 123 34 97 108 103 34 58 34 72 83 50 53 54 34 125 }
  31         B{ 123 34 115 117 98 34 58 34 74 111 101 34 125 }
  32         B{
  33             138 151 175 68 219 145 63 161 223 148 111 28 20 169 230
  34             80 251 114 166 187 145 11 135 219 212 53 173 160 178 250
  35             217 38
  36         }
  37     }
  38 } [
  39     "eyJhbGciOiJIUzI1NiJ9.eyJzdWIiOiJKb2UifQ.ipevRNuRP6HflG8cFKnmUPtypruRC4fb1DWtoLL62SY"
  40     "." split [ base64> ] map
  41 ] unit-test
  42
  43 { "01a+b/cd" } [ "\xd3V\xbeo\xf7\x1d" >base64 "" like ] unit-test
  44 { "\xd3V\xbeo\xf7\x1d" } [ "01a+b/cd" base64> "" like ] unit-test
  45
  46 { "01a-b_cd" } [ "\xd3V\xbeo\xf7\x1d" >urlsafe-base64 "" like ] unit-test
  47 { "\xd3V\xbeo\xf7\x1d" } [ "01a-b_cd" urlsafe-base64> "" like ] unit-test