tdb2: allow multiple chain locks.
[ccan] / ccan / tdb2 / test / run-001-encode.c
1 #include <ccan/tdb2/tdb.c>
2 #include <ccan/tdb2/open.c>
3 #include <ccan/tdb2/free.c>
4 #include <ccan/tdb2/lock.c>
5 #include <ccan/tdb2/hash.c>
6 #include <ccan/tdb2/io.c>
7 #include <ccan/tdb2/transaction.c>
8 #include <ccan/tdb2/check.c>
9 #include <ccan/tap/tap.h>
10 #include "logging.h"
11
12 int main(int argc, char *argv[])
13 {
14         unsigned int i;
15         struct tdb_used_record rec;
16         struct tdb_context tdb = { .log_fn = tap_log_fn };
17
18         plan_tests(64 + 32 + 48*6 + 1);
19
20         /* We should be able to encode any data value. */
21         for (i = 0; i < 64; i++)
22                 ok1(set_header(&tdb, &rec, TDB_USED_MAGIC, 0, 1ULL << i,
23                                1ULL << i, 0) == 0);
24
25         /* And any key and data with < 64 bits between them. */
26         for (i = 0; i < 32; i++) {
27                 tdb_len_t dlen = 1ULL >> (63 - i), klen = 1ULL << i;
28                 ok1(set_header(&tdb, &rec, TDB_USED_MAGIC, klen, dlen,
29                                klen + dlen, 0)  == 0);
30         }
31
32         /* We should neatly encode all values. */
33         for (i = 0; i < 48; i++) {
34                 uint64_t h = 1ULL << (i < 5 ? i : 4);
35                 uint64_t klen = 1ULL << (i < 16 ? i : 15);
36                 uint64_t dlen = 1ULL << i;
37                 uint64_t xlen = 1ULL << (i < 32 ? i : 31);
38                 ok1(set_header(&tdb, &rec, TDB_USED_MAGIC, klen, dlen,
39                                klen+dlen+xlen, h) == 0);
40                 ok1(rec_key_length(&rec) == klen);
41                 ok1(rec_data_length(&rec) == dlen);
42                 ok1(rec_extra_padding(&rec) == xlen);
43                 ok1((uint64_t)rec_hash(&rec) == h);
44                 ok1(rec_magic(&rec) == TDB_USED_MAGIC);
45         }
46         ok1(tap_log_messages == 0);
47         return exit_status();
48 }