2008-02-11 00:07:40 -05:00
|
|
|
USING: kernel tools.test base64 strings ;
|
2007-09-20 18:09:08 -04:00
|
|
|
|
|
|
|
|
[ "abcdefghijklmnopqrstuvwxyz" ] [ "abcdefghijklmnopqrstuvwxyz" >base64 base64>
|
|
|
|
|
] unit-test
|
|
|
|
|
[ "" ] [ "" >base64 base64> ] unit-test
|
|
|
|
|
[ "a" ] [ "a" >base64 base64> ] unit-test
|
|
|
|
|
[ "ab" ] [ "ab" >base64 base64> ] unit-test
|
|
|
|
|
[ "abc" ] [ "abc" >base64 base64> ] unit-test
|
