basis/base64/base64-tests.factor

   1 USING: kernel tools.test base64 strings ;
   2
   3 [ "abcdefghijklmnopqrstuvwxyz" ] [ "abcdefghijklmnopqrstuvwxyz" >base64 base64> >string
   4 ] unit-test
   5 [ "" ] [ "" >base64 base64> >string ] unit-test
   6 [ "a" ] [ "a" >base64 base64> >string ] unit-test
   7 [ "ab" ] [ "ab" >base64 base64> >string ] unit-test
   8 [ "abc" ] [ "abc" >base64 base64> >string ] unit-test
   9
  10 ! From http://en.wikipedia.org/wiki/Base64
  11 [ "TWFuIGlzIGRpc3Rpbmd1aXNoZWQsIG5vdCBvbmx5IGJ5IGhpcyByZWFzb24sIGJ1dCBieSB0aGlzIHNpbmd1bGFyIHBhc3Npb24gZnJvbSBvdGhlciBhbmltYWxzLCB3aGljaCBpcyBhIGx1c3Qgb2YgdGhlIG1pbmQsIHRoYXQgYnkgYSBwZXJzZXZlcmFuY2Ugb2YgZGVsaWdodCBpbiB0aGUgY29udGludWVkIGFuZCBpbmRlZmF0aWdhYmxlIGdlbmVyYXRpb24gb2Yga25vd2xlZGdlLCBleGNlZWRzIHRoZSBzaG9ydCB2ZWhlbWVuY2Ugb2YgYW55IGNhcm5hbCBwbGVhc3VyZS4=" ]
  12 [
  13     "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."
  14     >base64 >string
  15 ] unit-test
  16
  17 \ >base64 must-infer
  18 \ base64> must-infer