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