From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 17 Feb 2004 23:18:25 +0000 (+0000)
Subject: One of the new tests of MIME::Base64 relies on a non-core module.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bebab73acbc7983ff7bfeb8391a5b359fa6091f1;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
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");