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