From bebab73acbc7983ff7bfeb8391a5b359fa6091f1 Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Tue, 17 Feb 2004 23:18:25 +0000 Subject: [PATCH] One of the new tests of MIME::Base64 relies on a non-core module. p4raw-id: //depot/perl@22326 --- MANIFEST | 1 + ext/MIME/Base64/t/bad-sv.t | 42 ------------------------------------------ 2 files changed, 1 insertion(+), 42 deletions(-) delete mode 100644 ext/MIME/Base64/t/bad-sv.t 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"); -- 2.7.4