From bebab73acbc7983ff7bfeb8391a5b359fa6091f1 Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Tue, 17 Feb 2004 23:18:25 +0000 Subject: One of the new tests of MIME::Base64 relies on a non-core module. p4raw-id: //depot/perl@22326 --- ext/MIME/Base64/t/bad-sv.t | 42 ------------------------------------------ 1 file changed, 42 deletions(-) delete mode 100644 ext/MIME/Base64/t/bad-sv.t (limited to 'ext/MIME') diff --git a/ext/MIME/Base64/t/bad-sv.t b/ext/MIME/Base64/t/bad-sv.t deleted file mode 100644 index 3505b80ce1..0000000000 --- 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"); -- cgit v1.2.1