| … | |
… | |
| 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 "ü"); |
