CBOR-XS/t/55_utf8.t

BEGIN { $| = 1; print "1..9\n"; }
BEGIN { $^W = 0 } # hate

use CBOR::XS;

print "ok 1\n";

$dec = CBOR::XS->new->decode ("\x62\xc3\xbc");
print $dec eq "\xfc" ? "" : "not ", "ok 2 # $dec\n";

$dec = eval { CBOR::XS->new->decode ("\x62\xc3\xc3"); 1 };
print $dec eq 1 ? "" : "not ", "ok 3 # $dec\n";

$dec = eval { CBOR::XS->new->decode ("\x61\xc3"); 1 };
print $dec eq 1 ? "" : "not ", "ok 4 # $dec\n";

$dec = eval { CBOR::XS->new->validate_utf8->decode ("\x62\xc3\xc3"); 1 };
print !$dec ? "" : "not ", "ok 5 # $dec\n";

$dec = eval { CBOR::XS->new->validate_utf8->decode ("\x61\xc3"); 1 };
print !$dec ? "" : "not ", "ok 6 # $dec\n";

$dec = CBOR::XS->new->decode ("\xa1\x62\xc3\xbc\xf6");
print "\xfc" eq (keys %$dec)[0] ? "" : "not ", "ok 7 # $dec\n";

$dec = eval { CBOR::XS->new->decode ("\xa1\x62\xc3\xc3\xf6"); 1 };
print $dec eq 1 ? "" : "not ", "ok 8 # $dec\n";

$dec = eval { CBOR::XS->new->validate_utf8->decode ("\xa1\x62\xc3\xc3\xf6"); 1 };
print !$dec ? "" : "not ", "ok 9 # $dec\n";

Revision:	1.1
Committed:	Sun Dec 1 14:30:52 2013 UTC (10 years, 6 months ago) by root
Content type:	application/x-troff
Branch:	MAIN
CVS Tags:	rel-1_8, rel-1_71, rel-1_4, rel-1_5, rel-1_41, rel-1_82, rel-1_83, rel-1_3, rel-1_81, rel-1_86, rel-1_87, rel-1_84, rel-1_85, rel-1_11, rel-1_7, rel-1_12, rel-1_25, rel-1_26, rel-1_6, HEAD
Log Message:	* empty log message *
#	User	Rev	Content
1	root	1.1	BEGIN { $\| = 1; print "1..9\n"; }
2			BEGIN { $^W = 0 } # hate
3
4			use CBOR::XS;
5
6			print "ok 1\n";
7
8			$dec = CBOR::XS->new->decode ("\x62\xc3\xbc");
9			print $dec eq "\xfc" ? "" : "not ", "ok 2 # $dec\n";
10
11			$dec = eval { CBOR::XS->new->decode ("\x62\xc3\xc3"); 1 };
12			print $dec eq 1 ? "" : "not ", "ok 3 # $dec\n";
13
14			$dec = eval { CBOR::XS->new->decode ("\x61\xc3"); 1 };
15			print $dec eq 1 ? "" : "not ", "ok 4 # $dec\n";
16
17			$dec = eval { CBOR::XS->new->validate_utf8->decode ("\x62\xc3\xc3"); 1 };
18			print !$dec ? "" : "not ", "ok 5 # $dec\n";
19
20			$dec = eval { CBOR::XS->new->validate_utf8->decode ("\x61\xc3"); 1 };
21			print !$dec ? "" : "not ", "ok 6 # $dec\n";
22
23			$dec = CBOR::XS->new->decode ("\xa1\x62\xc3\xbc\xf6");
24			print "\xfc" eq (keys %$dec)[0] ? "" : "not ", "ok 7 # $dec\n";
25
26			$dec = eval { CBOR::XS->new->decode ("\xa1\x62\xc3\xc3\xf6"); 1 };
27			print $dec eq 1 ? "" : "not ", "ok 8 # $dec\n";
28
29			$dec = eval { CBOR::XS->new->validate_utf8->decode ("\xa1\x62\xc3\xc3\xf6"); 1 };
30			print !$dec ? "" : "not ", "ok 9 # $dec\n";
31