Perl_op_sibling_splice(0 remove dead code
[perl.git] / t / op / utf8magic.t
1 #!perl
2
3 BEGIN {
4     chdir 't' if -d 't';
5     require './test.pl';
6     set_up_inc('../lib');
7     require './charset_tools.pl';
8 }
9
10 plan tests => 6;
11
12 use strict;
13
14 my $str = "\x{99f1}\x{99dd}"; # "camel" in Japanese kanji
15 $str =~ /(.)/;
16
17 ok utf8::is_utf8($1), "is_utf8(unistr)";
18 scalar "$1"; # invoke SvGETMAGIC
19 ok utf8::is_utf8($1), "is_utf8(unistr)";
20
21 utf8::encode($str); # off the utf8 flag
22 $str =~ /(.)/;
23
24 ok !utf8::is_utf8($1), "is_utf8(bytes)";
25 scalar "$1"; # invoke SvGETMAGIC
26 ok !utf8::is_utf8($1), "is_utf8(bytes)";
27
28 sub TIESCALAR { bless [pop] }
29 sub FETCH     { $_[0][0] }
30 sub STORE     { $::stored = pop }
31
32 tie my $str2, "", "a";
33 $str2 = "b";
34 utf8::encode $str2;
35 is $::stored, "a", 'utf8::encode respects get-magic on POK scalars';
36
37 tie $str2, "", byte_utf8a_to_utf8n("\xc4\x80");
38 utf8::decode $str2;
39 is $::stored, "\x{100}", 'utf8::decode respects set-magic';