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