### ----------------------------------------------------
### -- MIME::Base64
### -- Licenses: Artistic-2.0
### -- Authors: 
### -- File: t/basic.rakutest
### ----------------------------------------------------
use Test;
use MIME::Base64;

plan 18;

my MIME::Base64 $mime .= new;

is $mime.encode_base64(""), '', 'Encoding the empty string';
is $mime.decode_base64(""), '', 'Decoding the empty string';

is $mime.encode_base64("A"), 'QQ==', 'Encoding "A"';
is $mime.decode_base64("QQ=="), 'A', 'Decoding "A"';

is $mime.encode_base64("Ab"), 'QWI=', 'Encoding "Ab"';
is $mime.decode_base64("QWI="), 'Ab', 'Decoding "Ab"';

is $mime.encode_base64("Abc"), 'QWJj', 'Encoding "Abc"';
is $mime.decode_base64("QWJj"), 'Abc', 'Decoding "Abc"';

is $mime.encode_base64("Abcd"), 'QWJjZA==', 'Encoding "Abcd"';
is $mime.decode_base64("QWJjZA=="), 'Abcd', 'Decoding "Abcd"';

is $mime.encode_base64("Perl"), 'UGVybA==', 'Encoding "Perl"';
is $mime.decode_base64("UGVybA=="), 'Perl', 'Decoding "Perl"';

is $mime.encode_base64("Raku"), 'UmFrdQ==', 'Encoding "Raku"';
is $mime.decode_base64("UmFrdQ=="), 'Raku', 'Decoding "Raku"';

is $mime.encode_base64("Another test!"), 'QW5vdGhlciB0ZXN0IQ==', 'Encoding "Another test!"';
is $mime.decode_base64("QW5vdGhlciB0ZXN0IQ=="), 'Another test!', 'Decoding "Another test!"';

is $mime.encode_base64("username:thisisnotmypassword"), 'dXNlcm5hbWU6dGhpc2lzbm90bXlwYXNzd29yZA==', 'Encoding "username:thisisnotmypassword"';
is $mime.decode_base64("dXNlcm5hbWU6dGhpc2lzbm90bXlwYXNzd29yZA=="), 'username:thisisnotmypassword', 'Decoding "username:thisisnotmypassword"';

# vim: expandtab shiftwidth=4


