One of the new tests of MIME::Base64 relies on a non-core module.

p4raw-id: //depot/perl@22326

diff --git a/MANIFEST b/MANIFEST
index ebb37d8..a0394b9 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -529,6 +529,7 @@ ext/MIME/Base64/QuotedPrint.pm      MIME::Base64 extension
 ext/MIME/Base64/t/base64.t     See whether MIME::Base64 works
 ext/MIME/Base64/t/quoted-print.t       See whether MIME::QuotedPrint works
 ext/MIME/Base64/t/unicode.t    See whether MIME::Base64 works
+ext/MIME/Base64/t/warn.t       See whether MIME::Base64 works
 ext/NDBM_File/hints/cygwin.pl  Hint for NDBM_File for named architecture
 ext/NDBM_File/hints/dec_osf.pl Hint for NDBM_File for named architecture
 ext/NDBM_File/hints/dynixptx.pl        Hint for NDBM_File for named architecture

diff --git a/ext/MIME/Base64/t/bad-sv.t b/ext/MIME/Base64/t/bad-sv.t
deleted file mode 100644 (file)
index 3505b80..0000000
--- a/ext/MIME/Base64/t/bad-sv.t
+++ /dev/null
@@ -1,42 +0,0 @@
-#!perl -w
-
-BEGIN {
-    eval {
-       require Perl::API;
-    };
-    if ($@) {
-       print "1..0 # skipped: Perl::API needed for this test\n";
-       print $@;
-       exit;
-    }
-}
-
-use strict;
-use Test qw(plan ok);
-use Perl::API qw(SvCUR SvCUR_set SvLEN);
-use MIME::Base64 qw(encode_base64 decode_base64);
-use MIME::QuotedPrint qw(encode_qp decode_qp);
-
-plan tests => 6;
-
-my $a = "abc";
-
-ok(SvCUR($a), 3);
-ok(SvLEN($a), 4);
-
-# Make sure that encode_base64 does not look beyond SvCUR().
-# This was fixed in v2.21.  Valgrind would also show some
-# illegal reads on this.
-
-SvCUR_set($a, 1);
-ok(encode_base64($a), "YQ==\n");
-
-SvCUR_set($a, 4);
-ok(encode_base64($a), "YWJjAA==\n");
-
-ok(encode_qp($a), "abc=00");
-
-$a = "ab\n";
-
-SvCUR_set($a, 2);
-ok(encode_qp($a), "ab");