use Test::More tests => 12;
use_ok("Email::MIME::Encodings");

my $x = "This is a test\nof various MIME=stuff.";
for (qw(binary 7bit 8bit)) {
    is(Email::MIME::Encodings::encode($_, $x), $x, "enc $_");
    is(Email::MIME::Encodings::decode($_, $x), $x, "dec $_");
}

$y= "This is a test\nof various MIME=3Dstuff.";
is(Email::MIME::Encodings::encode(quotedprint => $x), $y, "enc qp");
is(Email::MIME::Encodings::decode(quotedprint => $y), $x, "dec qp");

$z="VGhpcyBpcyBhIHRlc3QKb2YgdmFyaW91cyBNSU1FPXN0dWZmLg==\n";
is(Email::MIME::Encodings::encode(base64 => $x), $z, "enc 64");
is(Email::MIME::Encodings::decode(base64 => $z), $x, "dec 64");

eval { 
    Email::MIME::Encodings::encode(foo => $x);
};

like ($@, qr/how to encode foo/, "Error handling");