test/dlist_tests.c

/*
 * tests of dlist implementation
 */

#include "dlist_tests.h"

UCX_TEST_IMPLEMENT(test_ucx_dlist_append) {
    UcxDlist *list = ucx_dlist_append(NULL, "Hello");
    UCX_TEST_BEGIN
    
    UCX_TEST_ASSERT(strncmp(list->data, "Hello", 5) == 0, "failed");
    
    list = ucx_dlist_append(list, " World!");
    
    UCX_TEST_ASSERT(strncmp(list->next->data, " World!", 7) == 0, "failed");
    UCX_TEST_ASSERT(list->next->next == NULL, "failed");
    UCX_TEST_END
    
    ucx_dlist_free(list);
}

UCX_TEST_IMPLEMENT(test_ucx_dlist_prepend) {
    UcxDlist *list = ucx_dlist_prepend(NULL, " World!");
    UCX_TEST_BEGIN

    list = ucx_dlist_prepend(list, "Hello");
    
    UCX_TEST_ASSERT(strncmp(list->data, "Hello", 5) == 0, "failed");
    UCX_TEST_ASSERT(strncmp(list->next->data, " World!", 7) == 0, "failed");
    UCX_TEST_ASSERT(list->next->next == NULL, "failed");
    
    UCX_TEST_END
    ucx_dlist_free(list);
}

UCX_TEST_IMPLEMENT(test_ucx_dlist_equals) {
    UcxDlist *list = ucx_dlist_append(NULL, "Hello");
    list = ucx_dlist_append(list, " World!");
    UcxDlist *list2 = ucx_dlist_prepend(NULL, " World!");
    list2 = ucx_dlist_prepend(list2, "Hello");
    UcxDlist *list3 = ucx_dlist_prepend(NULL, " Welt!");
    list3 = ucx_dlist_prepend(list3, "Hallo");
    UCX_TEST_BEGIN
    
    UCX_TEST_ASSERT(ucx_dlist_equals(list, list2, cmp_string, NULL), "failed");
    UCX_TEST_ASSERT(!ucx_dlist_equals(list, list3, cmp_string, NULL), "failed");
    
    UCX_TEST_END
    ucx_dlist_free(list3);
    ucx_dlist_free(list2);
    ucx_dlist_free(list);
}

UCX_TEST_IMPLEMENT(test_ucx_dlist_concat) {
    UcxDlist *list = ucx_dlist_append(NULL, "Hello");
    UcxDlist *list2 = ucx_dlist_prepend(NULL, " World!");
    UCX_TEST_BEGIN
    
    list = ucx_dlist_concat(list, list2);
    
    UCX_TEST_ASSERT(strncmp(list->data, "Hello", 5) == 0, "failed");
    UCX_TEST_ASSERT(strncmp(list->next->data, " World!", 7) == 0, "failed");
    UCX_TEST_ASSERT(list->next->next == NULL, "failed");
    
    UCX_TEST_END
    ucx_dlist_free(list);
}

UCX_TEST_IMPLEMENT(test_ucx_dlist_size) {
    UcxDlist *list = ucx_dlist_append(NULL, "This ");
    UCX_TEST_BEGIN
    list = ucx_dlist_append(list, "list ");
    list = ucx_dlist_append(list, "has ");
    list = ucx_dlist_append(list, "size ");
    list = ucx_dlist_append(list, "5!");
    
    UCX_TEST_ASSERT(ucx_dlist_size(list) == 5, "failed");
    
    UCX_TEST_END
    ucx_dlist_free(list);
}

UCX_TEST_IMPLEMENT(test_ucx_dlist_first) {
    UcxDlist *list = ucx_dlist_append(NULL, "Find ");
    UCX_TEST_BEGIN
    list = ucx_dlist_append(list, "the ");
    list = ucx_dlist_append(list, "first!");
    
    char* first = (char*) (ucx_dlist_first(list)->data);
    
    UCX_TEST_ASSERT(strncmp(first, "Find ", 5) == 0, "failed");
    
    UCX_TEST_END
    ucx_dlist_free(list);
}

UCX_TEST_IMPLEMENT(test_ucx_dlist_last) {
    UcxDlist *list = ucx_dlist_append(NULL, "Find ");
    UCX_TEST_BEGIN
    list = ucx_dlist_append(list, "the ");
    list = ucx_dlist_append(list, "last!");
    
    char* last = (char*) (ucx_dlist_last(list)->data);
    
    UCX_TEST_ASSERT(strncmp(last, "last!", 5) == 0, "failed");
    
    UCX_TEST_END
    ucx_dlist_free(list);
}

UCX_TEST_IMPLEMENT(test_ucx_dlist_get) {
    UcxDlist *list = ucx_dlist_append(NULL, "Find ");
    UCX_TEST_BEGIN
    list = ucx_dlist_append(list, "the ");
    list = ucx_dlist_append(list, "mid!");
    
    char* mid = (char*) (ucx_dlist_get(list, 1)->data);
    
    UCX_TEST_ASSERT(strncmp(mid, "the ", 4) == 0, "failed");
    
    UCX_TEST_END
    ucx_dlist_free(list);
}

UCX_TEST_IMPLEMENT(test_ucx_dlist_remove) {
    UcxDlist *list = ucx_dlist_append(NULL, "Hello");
    UCX_TEST_BEGIN
    list = ucx_dlist_append(list, " fucking");
    list = ucx_dlist_append(list, " World!");
    
    list = ucx_dlist_remove(list, ucx_dlist_get(list, 1));
    
    UCX_TEST_ASSERT(strncmp(list->data, "Hello", 5) == 0, "failed");
    UCX_TEST_ASSERT(strncmp(list->next->data, " World!", 7) == 0, "failed");
    UCX_TEST_ASSERT(list->next->next == NULL, "failed");
    
    UCX_TEST_END
    ucx_dlist_free(list);
}

UCX_TEST_IMPLEMENT(test_ucx_dlist_clone) {
   
    char *hello = (char*)malloc(6);
    char *world = (char*)malloc(8);
    
    memcpy(hello, "Hello", 6);
    memcpy(world, " World!", 8);
    
    UcxDlist *list = ucx_dlist_append(NULL, hello);
    list = ucx_dlist_append(list, world);
    
    UcxDlist *copy = ucx_dlist_clone(list, copy_string, NULL);
    UCX_TEST_BEGIN

    UCX_TEST_ASSERT(ucx_dlist_equals(list, copy, cmp_string, NULL), "failed");
    UCX_TEST_ASSERT(hello != copy->data, "first element is no copy");
    UCX_TEST_ASSERT(world != copy->next->data, "second element is no copy");

    UCX_TEST_END
    free(copy->next->data);
    free(copy->data);

    free(world);
    free(hello);
    ucx_dlist_free(list);
    ucx_dlist_free(copy);
}

UCX_TEST_IMPLEMENT(test_ucx_dlist_sort) {
    UcxDlist *list = ucx_dlist_append(NULL, "this");
    list = ucx_dlist_append(list, "is");
    list = ucx_dlist_append(list, "a");
    list = ucx_dlist_append(list, "test");
    list = ucx_dlist_append(list, "for");
    list = ucx_dlist_append(list, "partial");
    list = ucx_dlist_append(list, "correctness");

    UcxDlist *expected = ucx_dlist_append(NULL, "a");
    expected = ucx_dlist_append(expected, "correctness");
    expected = ucx_dlist_append(expected, "for");
    expected = ucx_dlist_append(expected, "is");
    expected = ucx_dlist_append(expected, "partial");
    expected = ucx_dlist_append(expected, "test");
    expected = ucx_dlist_append(expected, "this");

    list = ucx_dlist_sort(list, cmp_string, NULL);

    UCX_TEST_BEGIN
    UCX_TEST_ASSERT(
            ucx_dlist_equals(list, expected, cmp_string, NULL), "failed");
    UcxDlist *l = list;
    UCX_TEST_ASSERT(l->prev == NULL, "prev field of first entry is not null");
    while (l->next != NULL) {
        UCX_TEST_ASSERT(l->next->prev == l, "prev pointer corrupted");
        l = l->next;
    }
    UCX_TEST_END

    ucx_dlist_free(expected);
    ucx_dlist_free(list);
}