| 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 |
|
