1 |
BEGIN { $| = 1; print "1..21\n"; } |
2 |
|
3 |
use Types::Serialiser; |
4 |
use CBOR::XS; |
5 |
|
6 |
print "ok 1\n"; |
7 |
|
8 |
$enc = encode_cbor Types::Serialiser::false; |
9 |
print $enc ne "\xf4" ? "not " : "", "ok 2\n"; |
10 |
|
11 |
$dec = decode_cbor $enc; |
12 |
print Types::Serialiser::is_false $dec ? "" : "not ", "ok 3\n"; |
13 |
print Types::Serialiser::is_bool $dec ? "" : "not ", "ok 4\n"; |
14 |
|
15 |
$enc = encode_cbor Types::Serialiser::true; |
16 |
print $enc ne "\xf5" ? "not " : "", "ok 5\n"; |
17 |
|
18 |
$dec = decode_cbor $enc; |
19 |
print Types::Serialiser::is_true $dec ? "" : "not ", "ok 6\n"; |
20 |
print Types::Serialiser::is_bool $dec ? "" : "not ", "ok 7\n"; |
21 |
|
22 |
$enc = encode_cbor Types::Serialiser::error; |
23 |
print $enc ne "\xf7" ? "not " : "", "ok 8\n"; |
24 |
|
25 |
$dec = decode_cbor $enc; |
26 |
print Types::Serialiser::is_error $dec ? "" : "not ", "ok 9\n"; |
27 |
|
28 |
$enc = encode_cbor undef; |
29 |
print $enc ne "\xf6" ? "not " : "", "ok 10\n"; |
30 |
|
31 |
$dec = decode_cbor $enc; |
32 |
print !defined $dec ? "" : "not ", "ok 11\n"; |
33 |
|
34 |
my $c = CBOR::XS->new->allow_sharing; |
35 |
|
36 |
$enc = $c->encode (Types::Serialiser::false); |
37 |
print $enc ne "\xf4" ? "not " : "", "ok 12\n"; |
38 |
|
39 |
$dec = $c->decode ($enc); |
40 |
print Types::Serialiser::is_false $dec ? "" : "not ", "ok 13\n"; |
41 |
print Types::Serialiser::is_bool $dec ? "" : "not ", "ok 14\n"; |
42 |
|
43 |
$enc = $c->encode (Types::Serialiser::true); |
44 |
print $enc ne "\xf5" ? "not " : "", "ok 15\n"; |
45 |
|
46 |
$dec = $c->decode ($enc); |
47 |
print Types::Serialiser::is_true $dec ? "" : "not ", "ok 16\n"; |
48 |
print Types::Serialiser::is_bool $dec ? "" : "not ", "ok 17\n"; |
49 |
|
50 |
$enc = $c->encode (Types::Serialiser::error); |
51 |
print $enc ne "\xf7" ? "not " : "", "ok 18\n"; |
52 |
|
53 |
$dec = $c->decode ($enc); |
54 |
print Types::Serialiser::is_error $dec ? "" : "not ", "ok 19\n"; |
55 |
|
56 |
$enc = $c->encode (undef); |
57 |
print $enc ne "\xf6" ? "not " : "", "ok 20\n"; |
58 |
|
59 |
$dec = $c->decode ($enc); |
60 |
print !defined $dec ? "" : "not ", "ok 21\n"; |
61 |
|