1use strict; 2use warnings; 3 4BEGIN { 5 unless ($] >= 5.006) { 6 print "1..0\n"; 7 exit(0); 8 } 9 if ($ENV{PERL_CORE}) { 10 chdir 't' if -d 't'; 11 @INC = '../lib'; 12 } 13} 14 15use Test; 16plan tests => 11; 17 18require MIME::Base64; 19require MIME::QuotedPrint; 20 21eval { 22 my $tmp = MIME::Base64::encode(v300); 23 print "# enc: $tmp\n"; 24}; 25print "# $@" if $@; 26ok($@); 27 28eval { 29 my $tmp = MIME::QuotedPrint::encode(v300); 30 print "# enc: $tmp\n"; 31}; 32print "# $@" if $@; 33ok($@); 34 35if (defined &utf8::is_utf8) { 36 my $str = "aaa" . v300; 37 ok(utf8::is_utf8($str)); 38 chop($str); 39 ok(utf8::is_utf8($str)); 40 ok(MIME::Base64::encode($str, ""), "YWFh"); 41 ok(utf8::is_utf8($str)); 42 ok(MIME::QuotedPrint::encode($str), "aaa=\n"); 43 ok(utf8::is_utf8($str)); 44 45 utf8::downgrade($str); 46 ok(!utf8::is_utf8($str)); 47 ok(MIME::Base64::encode($str, ""), "YWFh"); 48 ok(!utf8::is_utf8($str)); 49} 50else { 51 skip("Missing is_utf8") for 1..9; 52} 53