13 my $str = "\x{99f1}\x{99dd}"; # "camel" in Japanese kanji
16 ok utf8::is_utf8($1), "is_utf8(unistr)";
17 scalar "$1"; # invoke SvGETMAGIC
18 ok utf8::is_utf8($1), "is_utf8(unistr)";
20 utf8::encode($str); # off the utf8 flag
23 ok !utf8::is_utf8($1), "is_utf8(bytes)";
24 scalar "$1"; # invoke SvGETMAGIC
25 ok !utf8::is_utf8($1), "is_utf8(bytes)";
27 sub TIESCALAR { bless [pop] }
28 sub FETCH { $_[0][0] }
29 sub STORE { $::stored = pop }
31 tie my $str2, "", "a";
34 is $::stored, "a", 'utf8::encode respects get-magic on POK scalars';
36 tie $str2, "", "\xc4\x80";
38 is $::stored, "\x{100}", 'utf8::decode respects set-magic';