/** Check home blocks. */
static
void su_home_check_blocks(su_block_t const *b)
{
#if MEMCHECK != 0
if (b) {
size_t i, used;
assert(b->sub_used <= b->sub_n);
for (i = 0, used = 0; i < b->sub_n; i++)
if (b->sub_nodes[i].sua_data) {
su_alloc_check(b, &b->sub_nodes[i]), used++;
if (b->sub_nodes[i].sua_home)
su_home_check((su_home_t *)b->sub_nodes[i].sua_data);
}
#ifdef DEBUG
SU_DEBUG_9(("%s: block %p sub_used is %ld sub_n %ld used %ld\n", __func__, b, b->sub_used, b->sub_n, used)) ;
#endif
assert(used == b->sub_used);
}
#endif
}
/** Test basic memory home operations */
static int test_alloc(void)
{
exhome_t *h0, *h1, *h2, *h3;
su_home_t home[1] = { SU_HOME_INIT(home) };
su_home_t home0[1];
enum { N = 40 };
void *m0[N], *m1[N], *m;
char *c, *c0, *p0, *p1;
int i;
enum { destructed_once = 1 };
int d0, d1a, d1, d2, d3;
BEGIN();
/* su_home_init() was not initializing suh_locks */
memset(home0, 0xff, sizeof home0);
TEST(su_home_init(home0), 0);
TEST_VOID(su_home_deinit(home0));
TEST_1(h0 = su_home_new(sizeof(*h0)));
TEST_1(h1 = su_home_clone(h0->home, sizeof(*h1)));
d0 = d1a = d1 = d2 = d3 = 0;
h0->p = &d0; h1->p = &d1a;
TEST(su_home_destructor(h0->home, exdestructor), 0);
TEST(su_home_destructor(h1->home, exdestructor), 0);
TEST_1(h2 = su_home_ref(h0->home));
su_home_unref(h0->home);
TEST(d0, 0);
for (i = 0; i < 128; i++)
TEST_1(su_alloc(h0->home, 16));
for (i = 0; i < 128; i++)
TEST_1(su_alloc(h1->home, 16));
su_home_unref(h1->home);
TEST(d1a, destructed_once);
TEST_1(h1 = su_home_clone(h0->home, sizeof(*h1)));
TEST(su_home_destructor(h1->home, exdestructor), 0);
h1->p = &d1;
for (i = 0; i < 128; i++)
TEST_1(su_alloc(h1->home, 16));
for (i = 0; i < 128; i++)
TEST_1(su_alloc(h2->home, 16));
su_home_unref(h2->home); /* Should call destructor of cloned home, too */
TEST(d0, destructed_once);
TEST(d1, destructed_once);
TEST_1(h0 = su_home_new(sizeof(*h0)));
TEST_1(h1 = su_home_clone(h0->home, sizeof(*h1)));
TEST_1(h2 = su_home_clone(h1->home, sizeof(*h2)));
TEST_1(h3 = su_home_clone(h2->home, sizeof(*h3)));
TEST(su_home_threadsafe(h0->home), 0);
for (i = 0; i < N; i++) {
TEST_1(m0[i] = su_zalloc(h3->home, 20));
TEST_1(m1[i] = su_zalloc(h2->home, 20));
}
TEST_1(m = su_zalloc(h2->home, 20));
TEST_1(su_in_home(h2->home, m));
TEST_1(!su_in_home(h2->home, (char *)m + 1));
TEST_1(!su_in_home(h2->home, (void *)(intptr_t)su_in_home));
TEST_1(!su_in_home(h3->home, m));
TEST_1(!su_in_home(NULL, m));
TEST_1(!su_in_home(h3->home, NULL));
TEST(su_home_move(home, NULL), 0);
TEST(su_home_move(NULL, home), 0);
TEST(su_home_move(home, h3->home), 0);
TEST(su_home_move(h2->home, h3->home), 0);
TEST(su_home_move(h1->home, h2->home), 0);
su_home_preload(home, 1, 1024 + 2 * 8);
TEST_1(c = su_zalloc(home, 64)); p0 = c; p1 = c + 1024;
c0 = c;
TEST_P(c = su_realloc(home, c0, 127), c0);
TEST_1(c = c0 = su_zalloc(home, 1024 - 128));
TEST_1(p0 <= c); TEST_1(c < p1);
TEST_P(c = su_realloc(home, c, 128), c0);
TEST_P(c = su_realloc(home, c, 1023 - 128), c0);
TEST_P(c = su_realloc(home, c, 1024 - 128), c0);
TEST_1(c = su_realloc(home, c, 1024));
TEST_1(c = su_realloc(home, c, 2 * 1024));
TEST_P(c = su_realloc(home, p0, 126), p0);
TEST_1(c = su_realloc(home, p0, 1024));
TEST_P(c = su_realloc(home, c, 0), NULL);
su_home_check(home);
su_home_deinit(home);
su_home_check(h2->home);
su_home_zap(h2->home);
su_home_check(h0->home);
su_home_zap(h0->home);
{
su_home_t h1[1];
memset(h1, 0, sizeof h1);
TEST(su_home_init(h1), 0);
TEST(su_home_threadsafe(h1), 0);
TEST_1(su_home_ref(h1));
TEST_1(su_home_ref(h1));
TEST(su_home_destructor(h1, test_destructor), 0);
TEST_1(!su_home_unref(h1));
TEST_1(!su_home_unref(h1));
TEST_1(su_home_unref(h1));
TEST(h1->suh_size, 13);
}
/* Test su_home_parent() */
TEST_1(h0 = su_home_new(sizeof *h0));
TEST_1(h1 = su_home_clone(h0->home, sizeof *h1));
TEST_1(h2 = su_home_clone(h1->home, sizeof *h2));
TEST_1(h3 = su_home_clone(h2->home, sizeof *h3));
TEST_P(su_home_parent(h0->home), NULL);
TEST_P(su_home_parent(h1->home), h0);
TEST_P(su_home_parent(h2->home), h1);
TEST_P(su_home_parent(h3->home), h2);
TEST(su_home_move(h0->home, h1->home), 0);
TEST_P(su_home_parent(h2->home), h0);
TEST_P(su_home_parent(h3->home), h2);
TEST(su_home_move(h0->home, h2->home), 0);
TEST_P(su_home_parent(h3->home), h0);
su_home_move(NULL, h0->home);
TEST_P(su_home_parent(h0->home), NULL);
TEST_P(su_home_parent(h1->home), NULL);
TEST_P(su_home_parent(h2->home), NULL);
TEST_P(su_home_parent(h3->home), NULL);
su_home_unref(h0->home);
su_home_unref(h1->home);
su_home_unref(h2->home);
su_home_unref(h3->home);
END();
}
static int test_vectors(void)
{
su_home_t home[1] = { SU_HOME_INIT(home) };
su_vector_t *v, *w;
test_data_t *data1, *data2, *data3, *data4;
char foo[] = "foo";
char bar[] = "bar";
char baz[] = "baz";
void **a;
int i;
BEGIN();
TEST_1(v = su_vector_create(home, NULL));
TEST_1(su_vector_is_empty(v));
TEST(su_vector_append(v, foo), 0);
TEST(su_vector_append(v, bar), 0);
TEST(su_vector_insert(v, 0, baz), 0);
TEST_P(su_vector_item(v, 0), baz);
TEST_P(su_vector_item(v, 1), foo);
TEST_P(su_vector_item(v, 2), bar);
TEST_P(su_vector_item(v, 3), NULL);
TEST_P(su_vector_item(v, (unsigned)-1), NULL);
TEST_1(!su_vector_is_empty(v));
su_vector_destroy(v);
TEST_1(v = su_vector_create(home, NULL));
TEST(su_vector_insert(v, 0, "j"), 0);
TEST(su_vector_insert(v, 0, "i"), 0);
TEST(su_vector_insert(v, 0, "h"), 0);
TEST(su_vector_insert(v, 0, "g"), 0);
TEST(su_vector_insert(v, 0, "f"), 0);
TEST(su_vector_insert(v, 0, "e"), 0);
TEST(su_vector_insert(v, 0, "d"), 0);
TEST(su_vector_insert(v, 0, "c"), 0);
TEST(su_vector_insert(v, 0, "b"), 0);
TEST(su_vector_insert(v, 0, "a"), 0);
TEST_SIZE(su_vector_len(v), 10);
TEST_1(a = su_vector_get_array(v));
for (i = 0; i < 10; i++) {
TEST_S(su_vector_item(v, i), a[i]);
}
TEST_P(su_vector_item(v, 10), NULL);
TEST_P(a[10], NULL);
TEST_1(w = su_vector_create(home, NULL));
TEST(su_vector_append(w, "a"), 0);
TEST(su_vector_append(w, "b"), 0);
TEST(su_vector_append(w, "c"), 0);
TEST(su_vector_append(w, "d"), 0);
TEST(su_vector_append(w, "e"), 0);
TEST(su_vector_append(w, "f"), 0);
TEST(su_vector_append(w, "g"), 0);
TEST(su_vector_append(w, "h"), 0);
TEST(su_vector_append(w, "i"), 0);
TEST(su_vector_append(w, "j"), 0);
TEST_SIZE(su_vector_len(w), 10);
for (i = 0; i < 10; i++) {
TEST_S(su_vector_item(v, i), a[i]);
}
su_vector_empty(w);
TEST_1(su_vector_is_empty(w));
su_vector_destroy(v);
su_vector_destroy(w);
TEST_1(v = su_vector_create(home, test_vector_free));
data1 = su_home_clone(home, sizeof(test_data_t));
data1->data = 1;
data2 = su_home_clone(home, sizeof(test_data_t));
data2->data = 2;
data3 = su_home_clone(home, sizeof(test_data_t));
data3->data = 3;
data4 = su_home_clone(home, sizeof(test_data_t));
data4->data = 4;
TEST(su_vector_append(v, data1), 0);
TEST(su_vector_append(v, data2), 0);
TEST(su_vector_append(v, data3), 0);
TEST(su_vector_append(v, data4), 0);
TEST_SIZE(su_vector_len(v), 4);
TEST_P(su_vector_item(v, 0), data1);
TEST_P(su_vector_item(v, 1), data2);
TEST_P(su_vector_item(v, 2), data3);
TEST_P(su_vector_item(v, 3), data4);
TEST(data1->data, 1);
TEST(data2->data, 2);
TEST(data3->data, 3);
TEST(data4->data, 4);
TEST(su_vector_remove(v, 2), 0);
TEST_SIZE(su_vector_len(v), 3);
TEST_P(su_vector_item(v, 0), data1);
TEST_P(su_vector_item(v, 1), data2);
TEST_P(su_vector_item(v, 2), data4);
TEST(data1->data, 1);
TEST(data2->data, 2);
TEST(data4->data, 4);
su_vector_destroy(v);
su_home_check(home);
su_home_deinit(home);
END();
}
static int test_strlst(void)
{
su_home_t home[1] = { SU_HOME_INIT(home) };
su_strlst_t *l, *l1, *l2;
char *s;
char foo[] = "foo";
char bar[] = "bar";
char baz[] = "baz";
su_home_stat_t parent[1], kids[2];
BEGIN();
parent->hs_size = (sizeof parent);
kids[0].hs_size = (sizeof kids[0]);
kids[1].hs_size = (sizeof kids[1]);
su_home_init_stats(home);
/* Test API for invalid arguments */
TEST_1(l = su_strlst_create(NULL));
TEST_1(l2 = su_strlst_dup(home, l));
TEST_VOID(su_strlst_destroy(l2));
TEST_1(!su_strlst_dup(home, NULL));
TEST_1(l1 = su_strlst_copy(home, l));
TEST_VOID(su_strlst_destroy(l1));
TEST_1(!su_strlst_copy(home, NULL));
TEST_VOID(su_strlst_destroy(NULL));
TEST_VOID(su_strlst_destroy(l));
TEST_1(!su_strlst_dup_append(NULL, "aa"));
TEST_1(!su_strlst_append(NULL, "bee"));
TEST_1(!su_strlst_item(NULL, 1));
TEST_1(!su_strlst_set_item(NULL, 1, "cee"));
TEST_1(!su_strlst_remove(NULL, 1));
TEST_S(s = su_strlst_join(NULL, home, "a"), "");
TEST_VOID(su_free(home, s));
TEST_1(!su_strlst_split(home, NULL, "."));
TEST_1(s = su_strdup(home, "aaa"));
TEST_1(l = su_strlst_split(home, s, NULL));
TEST_S(su_strlst_item(l, 0), "aaa");
TEST_VOID(su_strlst_destroy(l));
TEST_VOID(su_free(home, s));
TEST_1(!su_strlst_dup_split(home, NULL, "."));
TEST_1(l1 = su_strlst_dup_split(home, "aaa", ""));
TEST_S(su_strlst_item(l1, 0), "aaa");
TEST_VOID(su_strlst_destroy(l1));
TEST_SIZE(su_strlst_len(NULL), 0);
TEST_1(!su_strlst_get_array(NULL));
TEST_VOID(su_strlst_free_array(NULL, NULL));
TEST_1(l = su_strlst_create(home));
TEST_VOID(su_strlst_free_array(l, NULL));
TEST_S(su_strlst_dup_append(l, "oh"), "oh");
TEST_VOID(su_strlst_free_array(l, NULL));
TEST_VOID(su_strlst_destroy(l));
/* Test functionality */
TEST_1(l = su_strlst_create(home));
su_home_init_stats(su_strlst_home(l));
TEST_S(su_strlst_join(l, home, "bar"), "");
TEST_S(su_strlst_append(l, foo), "foo");
TEST_S(su_strlst_dup_append(l, bar), "bar");
TEST_S(su_strlst_append(l, baz), "baz");
TEST_S((s = su_strlst_join(l, home, "!")), "foo!bar!baz");
TEST_S(su_strlst_item(l, 0), foo);
TEST_S(su_strlst_item(l, 1), bar);
TEST_S(su_strlst_item(l, 2), baz);
TEST_P(su_strlst_item(l, 3), NULL);
TEST_P(su_strlst_item(l, (unsigned)-1), NULL);
TEST_1(l1 = su_strlst_copy(su_strlst_home(l), l));
TEST_1(l2 = su_strlst_dup(su_strlst_home(l), l));
strcpy(foo, "hum"); strcpy(bar, "pah"); strcpy(baz, "hah");
TEST_S(su_strlst_dup_append(l1, "kuik"), "kuik");
TEST_S(su_strlst_dup_append(l2, "uik"), "uik");
TEST_S((s = su_strlst_join(l, home, ".")), "hum.bar.hah");
TEST_S((su_strlst_join(l1, home, ".")), "hum.bar.hah.kuik");
TEST_S((su_strlst_join(l2, home, ".")), "foo.bar.baz.uik");
su_strlst_destroy(l2);
su_home_get_stats(su_strlst_home(l), 0, kids, sizeof kids);
TEST_SIZE(kids->hs_clones, 2);
TEST64(kids->hs_allocs.hsa_number, 3);
TEST64(kids->hs_frees.hsf_number, 1);
su_strlst_destroy(l);
TEST_S(s, "hum.bar.hah");
TEST_1(l = su_strlst_create(home));
su_home_init_stats(su_strlst_home(l));
TEST_S(su_strlst_join(l, home, "bar"), "");
TEST_S(su_strlst_append(l, "a"), "a");
TEST_S(su_strlst_append(l, "b"), "b");
TEST_S(su_strlst_append(l, "c"), "c");
TEST_S(su_strlst_append(l, "d"), "d");
TEST_S(su_strlst_append(l, "e"), "e");
TEST_S(su_strlst_append(l, "f"), "f");
TEST_S(su_strlst_append(l, "g"), "g");
TEST_S(su_strlst_append(l, "h"), "h");
TEST_S(su_strlst_append(l, "i"), "i");
TEST_S(su_strlst_append(l, "j"), "j");
TEST_S((s = su_strlst_join(l, home, "")), "abcdefghij");
TEST_S(su_strlst_append(l, "a"), "a");
TEST_S(su_strlst_append(l, "b"), "b");
TEST_S(su_strlst_append(l, "c"), "c");
TEST_S(su_strlst_append(l, "d"), "d");
TEST_S(su_strlst_append(l, "e"), "e");
TEST_S(su_strlst_append(l, "f"), "f");
TEST_S(su_strlst_append(l, "g"), "g");
TEST_S(su_strlst_append(l, "h"), "h");
TEST_S(su_strlst_append(l, "i"), "i");
TEST_S(su_strlst_append(l, "j"), "j");
TEST_S((s = su_strlst_join(l, home, "")), "abcdefghijabcdefghij");
su_home_get_stats(su_strlst_home(l), 0, kids + 1, (sizeof kids[1]));
su_home_stat_add(kids, kids + 1);
su_strlst_destroy(l);
su_home_get_stats(home, 1, parent, (sizeof parent));
su_home_check(home);
su_home_deinit(home);
su_home_init(home);
{
char s[] = "foo\nfaa\n";
TEST_1((l = su_strlst_split(home, s, "\n")));
TEST_SIZE(su_strlst_len(l), 3);
TEST_1(su_strlst_append(l, "bar"));
TEST_S(su_strlst_join(l, home, "\n"), "foo\nfaa\n\nbar");
}
{
char s[] = "foo";
TEST_1((l = su_strlst_split(home, s, "\n")));
TEST_SIZE(su_strlst_len(l), 1);
}
{
char s[] = "\n\n";
TEST_1((l = su_strlst_split(home, s, "\n")));
TEST_SIZE(su_strlst_len(l), 3);
}
{
char s[] = "";
TEST_1((l = su_strlst_split(home, s, "\n")));
TEST_SIZE(su_strlst_len(l), 1);
}
{
int i;
#define S \
"a\nb\nc\nd\ne\nf\ng\nh\ni\nj\nk\nl\nm\n" \
"n\no\np\nq\nr\ns\nt\nu\nv\nw\nx\ny\nz\n" \
"A\nB\nC\nD\nE\nF\nG\nH\nI\nJ\nK\nL\nM\n" \
"N\nO\nP\nQ\nR\nS\nT\nU\nV\nW\nX\nY\nZ\n"
char s[] = S;
TEST_1((l = su_strlst_split(home, s, "\n")));
TEST_SIZE(su_strlst_len(l), 53);
TEST_1(su_strlst_append(l, "bar"));
TEST_S(su_strlst_join(l, home, "\n"), S "\nbar");
TEST_1(!su_strlst_remove(l, 54));
for (i = 0; i < 54; i++) {
TEST_1(su_strlst_remove(l, 0));
TEST_1(!su_strlst_remove(l, 53 - i));
TEST_SIZE(su_strlst_len(l), 53 - i);
}
TEST_1(!su_strlst_remove(l, 0));
TEST_SIZE(su_strlst_len(l), 0);
}
{
char const *s0;
TEST_1(l = su_strlst_create_with(NULL, s0 = "a", "b", NULL));
TEST_1(su_strlst_item(l, 0) == s0);
TEST_S(su_strlst_item(l, 0), "a");
TEST_S(su_strlst_item(l, 1), "b");
TEST_1(su_strlst_item(l, 2) == NULL);
TEST_S(su_slprintf(l, "1: %u", 1), "1: 1");
TEST_S(su_slprintf(l, "1.0: %g", 1.0), "1.0: 1");
TEST_1(su_strlst_append(l, ""));
TEST_S(su_strlst_join(l, home, "\n"),
"a\n" "b\n" "1: 1\n" "1.0: 1\n");
TEST_VOID(su_strlst_destroy(l));
TEST_1(l2 = su_strlst_create_with_dup(NULL,
s0 = "0", "1", "2", "3",
"4", "5", "6", "7",
NULL));
TEST_1(su_strlst_item(l2, 0) != s0);
TEST_S(su_strlst_item(l2, 0), "0");
TEST_S(su_strlst_item(l2, 1), "1");
TEST_S(su_strlst_item(l2, 2), "2");
TEST_S(su_strlst_item(l2, 3), "3");
TEST_S(su_strlst_item(l2, 4), "4");
TEST_S(su_strlst_item(l2, 5), "5");
TEST_S(su_strlst_item(l2, 6), "6");
TEST_S(su_strlst_item(l2, 7), "7");
TEST_1(su_strlst_item(l2, 8) == NULL);
TEST_S(su_strlst_join(l2, home, ""), "01234567");
TEST_VOID(su_strlst_destroy(l2));
}
su_home_check(home);
su_home_deinit(home);
END();
}
