Convert all tests to use Test::More rather than Test.pm

Makefile.PL

@@ -25,7 +25,6 @@ my %WriteMakefileArgs = (
   "TEST_REQUIRES" => {
     "ExtUtils::MakeMaker" => 0,
     "File::Spec" => 0,
-    "Test" => 0,
     "Test::More" => 0,
     "strict" => 0,
     "warnings" => 0

t/base64url.t

@@ -2,7 +2,7 @@
 
 use strict;
 use warnings;
-use Test qw(plan ok);
+use Test::More;
 
 use MIME::Base64 qw(encode_base64url decode_base64url);
 
@@ -18,8 +18,8 @@ plan tests => 2 * @tests;
 for (@tests) {
     my($name, $input, $output) = @$_;
     print "# $name\n";
-    ok(decode_base64url($input), $output);
-    ok(encode_base64url($output), $input);
+    is(decode_base64url($input), $output);
+    is(encode_base64url($output), $input);
 }
 
 __END__

t/length.t

@@ -2,49 +2,47 @@
 
 use strict;
 use warnings;
-use Test qw(plan ok);
-
-plan tests => 129;
+use Test::More tests => 129;
 
 use MIME::Base64 qw(encode_base64 encoded_base64_length decoded_base64_length);
 *elen = *encoded_base64_length;
 *dlen = *decoded_base64_length;
 
-ok(elen(""), 0);
-ok(elen("a"), 5);
-ok(elen("aa"), 5);
-ok(elen("aaa"), 5);
-ok(elen("aaaa"), 9);
-ok(elen("aaaaa"), 9);
-
-ok(elen("", ""), 0);
-ok(elen("a", ""), 4);
-ok(elen("aa", ""), 4);
-ok(elen("aaa", ""), 4);
-ok(elen("aaaa", ""), 8);
-ok(elen("aaaaa", ""), 8);
-
-ok(dlen(""), 0);
-ok(dlen("a"), 0);
-ok(dlen("aa"), 1);
-ok(dlen("aaa"), 2);
-ok(dlen("aaaa"), 3);
-ok(dlen("aaaaa"), 3);
-ok(dlen("aaaaaa"), 4);
-ok(dlen("aaaaaaa"), 5);
-ok(dlen("aaaaaaaa"), 6);
-
-ok(dlen("=aaaa"), 0);
-ok(dlen("a=aaa"), 0);
-ok(dlen("aa=aa"), 1);
-ok(dlen("aaa=a"), 2);
-ok(dlen("aaaa="), 3);
-
-ok(dlen("a\na\na a"), 3);
+is(elen(""), 0);
+is(elen("a"), 5);
+is(elen("aa"), 5);
+is(elen("aaa"), 5);
+is(elen("aaaa"), 9);
+is(elen("aaaaa"), 9);
+
+is(elen("", ""), 0);
+is(elen("a", ""), 4);
+is(elen("aa", ""), 4);
+is(elen("aaa", ""), 4);
+is(elen("aaaa", ""), 8);
+is(elen("aaaaa", ""), 8);
+
+is(dlen(""), 0);
+is(dlen("a"), 0);
+is(dlen("aa"), 1);
+is(dlen("aaa"), 2);
+is(dlen("aaaa"), 3);
+is(dlen("aaaaa"), 3);
+is(dlen("aaaaaa"), 4);
+is(dlen("aaaaaaa"), 5);
+is(dlen("aaaaaaaa"), 6);
+
+is(dlen("=aaaa"), 0);
+is(dlen("a=aaa"), 0);
+is(dlen("aa=aa"), 1);
+is(dlen("aaa=a"), 2);
+is(dlen("aaaa="), 3);
+
+is(dlen("a\na\na a"), 3);
 
 for my $i (50..100) {
     my $a = "a" x $i;
     my $a_enc = encode_base64($a);
-    ok(elen($a), length($a_enc));
-    ok(dlen($a_enc), $i);
+    is(elen($a), length($a_enc));
+    is(dlen($a_enc), $i);
 }

t/unicode.t

@@ -1,8 +1,7 @@
 use strict;
 use warnings;
 
-use Test;
-plan tests => 11;
+use Test::More tests => 11;
 
 require MIME::Base64;
 require MIME::QuotedPrint;