… | |
… | |
9 | } |
9 | } |
10 | |
10 | |
11 | ok (JSON::XS->new->allow_nonref (1)->utf8 (1)->encode ("ü") eq "\"\xc3\xbc\""); |
11 | ok (JSON::XS->new->allow_nonref (1)->utf8 (1)->encode ("ü") eq "\"\xc3\xbc\""); |
12 | ok (JSON::XS->new->allow_nonref (1)->encode ("ü") eq "\"ü\""); |
12 | ok (JSON::XS->new->allow_nonref (1)->encode ("ü") eq "\"ü\""); |
13 | ok (JSON::XS->new->allow_nonref (1)->ascii (1)->utf8 (1)->encode (chr 0x8000) eq '"\u8000"'); |
13 | ok (JSON::XS->new->allow_nonref (1)->ascii (1)->utf8 (1)->encode (chr 0x8000) eq '"\u8000"'); |
14 | ok (JSON::XS->new->allow_nonref (1)->ascii (1)->utf8 (1)->pretty (1)->encode (chr 0x10402) eq '"\ud801\udc02"'); |
14 | ok (JSON::XS->new->allow_nonref (1)->ascii (1)->utf8 (1)->pretty (1)->encode (chr 0x10402) eq "\"\\ud801\\udc02\"\n"); |
15 | |
15 | |
16 | eval { JSON::XS->new->allow_nonref (1)->utf8 (1)->decode ('"ü"') }; |
16 | eval { JSON::XS->new->allow_nonref (1)->utf8 (1)->decode ('"ü"') }; |
17 | ok $@ =~ /malformed UTF-8/; |
17 | ok $@ =~ /malformed UTF-8/; |
18 | |
18 | |
19 | ok (JSON::XS->new->allow_nonref (1)->decode ('"ü"') eq "ü"); |
19 | ok (JSON::XS->new->allow_nonref (1)->decode ('"ü"') eq "ü"); |