1 |
root |
1.3 |
BEGIN { $| = 1; print "1..21\n"; } |
2 |
root |
1.1 |
|
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 |
root |
1.2 |
$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 |
root |
1.3 |
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 |
|
|
|