olaf@9: /*
universe@27:  * tests of dlist implementation
olaf@9:  */
olaf@9: 
universe@27: #include "dlist_tests.h"
olaf@9: 
universe@33: UCX_TEST_IMPLEMENT(test_ucx_dlist_append) {
universe@27:     UcxDlist *list = ucx_dlist_append(NULL, "Hello");
universe@33:     UCX_TEST_BEGIN
universe@27:     
universe@69:     UCX_TEST_ASSERT(strncmp((const char*)list->data, "Hello", 5) == 0,
universe@69:             "failed");
universe@27:     
universe@27:     list = ucx_dlist_append(list, " World!");
universe@27:     
universe@69:     UCX_TEST_ASSERT(strncmp((const char*)list->next->data, " World!", 7) == 0,
universe@69:             "failed");
universe@40:     UCX_TEST_ASSERT(list->next->next == NULL, "failed");
universe@33:     UCX_TEST_END
universe@27:     
universe@27:     ucx_dlist_free(list);
universe@24: }
universe@24: 
universe@33: UCX_TEST_IMPLEMENT(test_ucx_dlist_prepend) {
universe@27:     UcxDlist *list = ucx_dlist_prepend(NULL, " World!");
universe@33:     UCX_TEST_BEGIN
universe@33: 
universe@27:     list = ucx_dlist_prepend(list, "Hello");
universe@27:     
universe@69:     UCX_TEST_ASSERT(strncmp((const char*)list->data, "Hello", 5) == 0,
universe@69:             "failed");
universe@69:     UCX_TEST_ASSERT(strncmp((const char*)list->next->data, " World!", 7) == 0,
universe@69:             "failed");
universe@40:     UCX_TEST_ASSERT(list->next->next == NULL, "failed");
universe@27:     
universe@33:     UCX_TEST_END
universe@27:     ucx_dlist_free(list);
universe@18: }
universe@18: 
universe@33: UCX_TEST_IMPLEMENT(test_ucx_dlist_equals) {
universe@27:     UcxDlist *list = ucx_dlist_append(NULL, "Hello");
universe@27:     list = ucx_dlist_append(list, " World!");
universe@27:     UcxDlist *list2 = ucx_dlist_prepend(NULL, " World!");
universe@27:     list2 = ucx_dlist_prepend(list2, "Hello");
universe@27:     UcxDlist *list3 = ucx_dlist_prepend(NULL, " Welt!");
universe@27:     list3 = ucx_dlist_prepend(list3, "Hallo");
universe@33:     UCX_TEST_BEGIN
universe@27:     
universe@40:     UCX_TEST_ASSERT(ucx_dlist_equals(list, list2, cmp_string, NULL), "failed");
universe@40:     UCX_TEST_ASSERT(!ucx_dlist_equals(list, list3, cmp_string, NULL), "failed");
universe@27:     
universe@33:     UCX_TEST_END
universe@27:     ucx_dlist_free(list3);
universe@27:     ucx_dlist_free(list2);
universe@27:     ucx_dlist_free(list);
universe@24: }
universe@24: 
universe@33: UCX_TEST_IMPLEMENT(test_ucx_dlist_concat) {
universe@27:     UcxDlist *list = ucx_dlist_append(NULL, "Hello");
universe@27:     UcxDlist *list2 = ucx_dlist_prepend(NULL, " World!");
universe@33:     UCX_TEST_BEGIN
universe@27:     
universe@27:     list = ucx_dlist_concat(list, list2);
universe@27:     
universe@69:     UCX_TEST_ASSERT(strncmp((const char*)list->data, "Hello", 5) == 0,
universe@69:             "failed");
universe@69:     UCX_TEST_ASSERT(strncmp((const char*)list->next->data, " World!", 7) == 0,
universe@69:             "failed");
universe@40:     UCX_TEST_ASSERT(list->next->next == NULL, "failed");
universe@27:     
universe@33:     UCX_TEST_END
universe@27:     ucx_dlist_free(list);
olaf@9: }
olaf@9: 
universe@33: UCX_TEST_IMPLEMENT(test_ucx_dlist_size) {
universe@27:     UcxDlist *list = ucx_dlist_append(NULL, "This ");
universe@33:     UCX_TEST_BEGIN
universe@27:     list = ucx_dlist_append(list, "list ");
universe@27:     list = ucx_dlist_append(list, "has ");
universe@27:     list = ucx_dlist_append(list, "size ");
universe@27:     list = ucx_dlist_append(list, "5!");
universe@27:     
universe@27:     UCX_TEST_ASSERT(ucx_dlist_size(list) == 5, "failed");
universe@27:     
universe@33:     UCX_TEST_END
universe@27:     ucx_dlist_free(list);
olaf@9: }
olaf@11: 
universe@33: UCX_TEST_IMPLEMENT(test_ucx_dlist_first) {
universe@27:     UcxDlist *list = ucx_dlist_append(NULL, "Find ");
universe@33:     UCX_TEST_BEGIN
universe@27:     list = ucx_dlist_append(list, "the ");
universe@27:     list = ucx_dlist_append(list, "first!");
universe@27:     
universe@69:     const char* first = (const char*) (ucx_dlist_first(list)->data);
universe@27:     
universe@27:     UCX_TEST_ASSERT(strncmp(first, "Find ", 5) == 0, "failed");
universe@27:     
universe@33:     UCX_TEST_END
universe@27:     ucx_dlist_free(list);
universe@27: }
universe@27: 
universe@33: UCX_TEST_IMPLEMENT(test_ucx_dlist_last) {
universe@27:     UcxDlist *list = ucx_dlist_append(NULL, "Find ");
universe@33:     UCX_TEST_BEGIN
universe@27:     list = ucx_dlist_append(list, "the ");
universe@27:     list = ucx_dlist_append(list, "last!");
universe@27:     
universe@69:     const char* last = (const char*) (ucx_dlist_last(list)->data);
universe@27:     
universe@27:     UCX_TEST_ASSERT(strncmp(last, "last!", 5) == 0, "failed");
universe@27:     
universe@33:     UCX_TEST_END
universe@27:     ucx_dlist_free(list);
universe@27: }
universe@27: 
universe@33: UCX_TEST_IMPLEMENT(test_ucx_dlist_get) {
universe@27:     UcxDlist *list = ucx_dlist_append(NULL, "Find ");
universe@33:     UCX_TEST_BEGIN
universe@27:     list = ucx_dlist_append(list, "the ");
universe@27:     list = ucx_dlist_append(list, "mid!");
universe@27:     
universe@69:     const char* mid = (const char*) (ucx_dlist_get(list, 1)->data);
universe@27:     
universe@27:     UCX_TEST_ASSERT(strncmp(mid, "the ", 4) == 0, "failed");
universe@27:     
universe@33:     UCX_TEST_END
universe@27:     ucx_dlist_free(list);
universe@27: }
universe@27: 
universe@33: UCX_TEST_IMPLEMENT(test_ucx_dlist_remove) {
universe@27:     UcxDlist *list = ucx_dlist_append(NULL, "Hello");
universe@33:     UCX_TEST_BEGIN
universe@27:     list = ucx_dlist_append(list, " fucking");
universe@27:     list = ucx_dlist_append(list, " World!");
universe@27:     
universe@27:     list = ucx_dlist_remove(list, ucx_dlist_get(list, 1));
universe@27:     
universe@69:     UCX_TEST_ASSERT(strncmp((const char*)list->data, "Hello", 5) == 0,
universe@69:             "failed");
universe@69:     UCX_TEST_ASSERT(strncmp((const char*)list->next->data, " World!", 7) == 0,
universe@69:             "failed");
universe@40:     UCX_TEST_ASSERT(list->next->next == NULL, "failed");
universe@27:     
universe@33:     UCX_TEST_END
universe@27:     ucx_dlist_free(list);
universe@27: }
universe@27: 
universe@33: UCX_TEST_IMPLEMENT(test_ucx_dlist_clone) {
universe@27:    
universe@27:     char *hello = (char*)malloc(6);
universe@27:     char *world = (char*)malloc(8);
universe@27:     
universe@27:     memcpy(hello, "Hello", 6);
universe@27:     memcpy(world, " World!", 8);
universe@27:     
universe@27:     UcxDlist *list = ucx_dlist_append(NULL, hello);
universe@27:     list = ucx_dlist_append(list, world);
universe@27:     
universe@27:     UcxDlist *copy = ucx_dlist_clone(list, copy_string, NULL);
universe@33:     UCX_TEST_BEGIN
universe@27: 
universe@40:     UCX_TEST_ASSERT(ucx_dlist_equals(list, copy, cmp_string, NULL), "failed");
universe@40:     UCX_TEST_ASSERT(hello != copy->data, "first element is no copy");
universe@40:     UCX_TEST_ASSERT(world != copy->next->data, "second element is no copy");
universe@27: 
universe@33:     UCX_TEST_END
universe@27:     free(copy->next->data);
universe@27:     free(copy->data);
universe@27: 
universe@27:     free(world);
universe@27:     free(hello);
olaf@30:     ucx_dlist_free(list);
olaf@30:     ucx_dlist_free(copy);
universe@27: }
universe@35: 
universe@36: UCX_TEST_IMPLEMENT(test_ucx_dlist_sort) {
universe@35:     UcxDlist *list = ucx_dlist_append(NULL, "this");
universe@35:     list = ucx_dlist_append(list, "is");
universe@35:     list = ucx_dlist_append(list, "a");
universe@35:     list = ucx_dlist_append(list, "test");
universe@35:     list = ucx_dlist_append(list, "for");
universe@35:     list = ucx_dlist_append(list, "partial");
universe@35:     list = ucx_dlist_append(list, "correctness");
universe@35: 
universe@35:     UcxDlist *expected = ucx_dlist_append(NULL, "a");
universe@35:     expected = ucx_dlist_append(expected, "correctness");
universe@35:     expected = ucx_dlist_append(expected, "for");
universe@35:     expected = ucx_dlist_append(expected, "is");
universe@35:     expected = ucx_dlist_append(expected, "partial");
universe@35:     expected = ucx_dlist_append(expected, "test");
universe@35:     expected = ucx_dlist_append(expected, "this");
universe@35: 
universe@36:     list = ucx_dlist_sort(list, cmp_string, NULL);
universe@35: 
universe@35:     UCX_TEST_BEGIN
universe@35:     UCX_TEST_ASSERT(
universe@35:             ucx_dlist_equals(list, expected, cmp_string, NULL), "failed");
universe@35:     UcxDlist *l = list;
universe@35:     UCX_TEST_ASSERT(l->prev == NULL, "prev field of first entry is not null");
universe@35:     while (l->next != NULL) {
universe@35:         UCX_TEST_ASSERT(l->next->prev == l, "prev pointer corrupted");
universe@35:         l = l->next;
universe@35:     }
universe@35:     UCX_TEST_END
universe@35: 
universe@35:     ucx_dlist_free(expected);
universe@35:     ucx_dlist_free(list);
universe@35: }