[perl5.git] / cpan / JSON-PP / t / 014_latin1.t

# copied over from JSON::PP::XS and modified to use JSON::PP

use Test::More;
use strict;
BEGIN { plan tests => 4 };

BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }

BEGIN {
    use lib qw(t);
    use _unicode_handling;
}

use JSON::PP;

SKIP: {
    skip "UNICODE handling is disabale.", 4 unless $JSON::PP::can_handle_UTF16_and_utf8;

my $xs = JSON::PP->new->latin1->allow_nonref;

ok $xs->encode ("\x{12}\x{89}       ") eq "\"\\u0012\x{89}       \"";
ok $xs->encode ("\x{12}\x{89}\x{abc}") eq "\"\\u0012\x{89}\\u0abc\"";

ok $xs->decode ("\"\\u0012\x{89}\""       ) eq "\x{12}\x{89}";
ok $xs->decode ("\"\\u0012\x{89}\\u0abc\"") eq "\x{12}\x{89}\x{abc}";

}
Commit	Line	Data
d5424315 DG	1	# copied over from JSON::PP::XS and modified to use JSON::PP
	2
	3	use Test::More;
	4	use strict;
	5	BEGIN { plan tests => 4 };
	6
	7	BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
	8
	9	BEGIN {
	10	use lib qw(t);
	11	use _unicode_handling;
	12	}
	13
	14	use JSON::PP;
	15
	16	SKIP: {
	17	skip "UNICODE handling is disabale.", 4 unless $JSON::PP::can_handle_UTF16_and_utf8;
	18
	19	my $xs = JSON::PP->new->latin1->allow_nonref;
	20
	21	ok $xs->encode ("\x{12}\x{89} ") eq "\"\\u0012\x{89} \"";
	22	ok $xs->encode ("\x{12}\x{89}\x{abc}") eq "\"\\u0012\x{89}\\u0abc\"";
	23
	24	ok $xs->decode ("\"\\u0012\x{89}\"" ) eq "\x{12}\x{89}";
	25	ok $xs->decode ("\"\\u0012\x{89}\\u0abc\"") eq "\x{12}\x{89}\x{abc}";
	26
	27	}