olaf@9: /*
olaf@9:  * tests of list implementation
olaf@9:  */
olaf@9: 
universe@27: #include "list_tests.h"
olaf@9: 
universe@33: UCX_TEST_IMPLEMENT(test_ucx_list_append) {
universe@27:     UcxList *list = ucx_list_append(NULL, "Hello");
universe@33:     UCX_TEST_BEGIN
universe@27:     UCX_TEST_ASSERT(strncmp(list->data, "Hello", 5) == 0, "failed")
universe@27:     
universe@27:     list = ucx_list_append(list, " World!");
universe@27:     
universe@27:     UCX_TEST_ASSERT(strncmp(list->next->data, " World!", 7) == 0, "failed")
universe@27:     UCX_TEST_ASSERT(list->next->next == NULL, "failed")
universe@33: 
universe@33:     UCX_TEST_END
universe@27:     ucx_list_free(list);
universe@24: }
universe@24: 
universe@33: UCX_TEST_IMPLEMENT(test_ucx_list_prepend) {
universe@27:     UcxList *list = ucx_list_prepend(NULL, " World!");
universe@33:     UCX_TEST_BEGIN
universe@27:     list = ucx_list_prepend(list, "Hello");
universe@27:     
universe@27:     UCX_TEST_ASSERT(strncmp(list->data, "Hello", 5) == 0, "failed")
universe@27:     UCX_TEST_ASSERT(strncmp(list->next->data, " World!", 7) == 0, "failed")
universe@27:     UCX_TEST_ASSERT(list->next->next == NULL, "failed")
universe@27:     
universe@33:     UCX_TEST_END
universe@27:     ucx_list_free(list);
universe@18: }
universe@18: 
universe@33: UCX_TEST_IMPLEMENT(test_ucx_list_equals) {
universe@27:     UcxList *list = ucx_list_append(NULL, "Hello");
universe@27:     list = ucx_list_append(list, " World!");
universe@27:     UcxList *list2 = ucx_list_prepend(NULL, " World!");
universe@27:     list2 = ucx_list_prepend(list2, "Hello");
universe@27:     UcxList *list3 = ucx_list_prepend(NULL, " Welt!");
universe@27:     list3 = ucx_list_prepend(list3, "Hallo");
universe@27:     
universe@33:     UCX_TEST_BEGIN
universe@27:     UCX_TEST_ASSERT(ucx_list_equals(list, list2, cmp_string, NULL), "failed")
universe@27:     UCX_TEST_ASSERT(!ucx_list_equals(list, list3, cmp_string, NULL), "failed")
universe@33:     UCX_TEST_END
universe@27:     
universe@27:     ucx_list_free(list3);
universe@27:     ucx_list_free(list2);
universe@27:     ucx_list_free(list);
universe@24: }
universe@24: 
universe@33: UCX_TEST_IMPLEMENT(test_ucx_list_concat) {
universe@27:     UcxList *list = ucx_list_append(NULL, "Hello");
universe@27:     UcxList *list2 = ucx_list_prepend(NULL, " World!");
universe@27:     
universe@27:     list = ucx_list_concat(list, list2);
universe@33:     UCX_TEST_BEGIN
universe@27:     
universe@27:     UCX_TEST_ASSERT(strncmp(list->data, "Hello", 5) == 0, "failed")
universe@27:     UCX_TEST_ASSERT(strncmp(list->next->data, " World!", 7) == 0, "failed")
universe@27:     UCX_TEST_ASSERT(list->next->next == NULL, "failed")
universe@27:     
universe@33:     UCX_TEST_END
universe@33:     if (list->next == NULL) {
universe@33:         ucx_list_free(list2);
universe@33:     }
universe@27:     ucx_list_free(list);
olaf@9: }
olaf@9: 
universe@33: UCX_TEST_IMPLEMENT(test_ucx_list_size) {
universe@27:     UcxList *list = ucx_list_append(NULL, "This ");
universe@33:     UCX_TEST_BEGIN
universe@27:     list = ucx_list_append(list, "list ");
universe@27:     list = ucx_list_append(list, "has ");
universe@27:     list = ucx_list_append(list, "size ");
universe@27:     list = ucx_list_append(list, "5!");
universe@27:     
universe@27:     UCX_TEST_ASSERT(ucx_list_size(list) == 5, "failed");
universe@27:     
universe@33:     UCX_TEST_END
universe@27:     ucx_list_free(list);
olaf@9: }
olaf@11: 
universe@33: UCX_TEST_IMPLEMENT(test_ucx_list_last) {
universe@27:     UcxList *list = ucx_list_append(NULL, "Find ");
universe@33:     UCX_TEST_BEGIN
universe@27:     list = ucx_list_append(list, "the ");
universe@27:     list = ucx_list_append(list, "last!");
universe@27:     
universe@27:     char* last = (char*) (ucx_list_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_list_free(list);
universe@27:     
universe@27: }
universe@27: 
universe@33: UCX_TEST_IMPLEMENT(test_ucx_list_get) {
universe@27:     UcxList *list = ucx_list_append(NULL, "Find ");
universe@33:     UCX_TEST_BEGIN
universe@27:     list = ucx_list_append(list, "the ");
universe@27:     list = ucx_list_append(list, "mid!");
universe@27:     
universe@27:     char* mid = (char*) (ucx_list_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_list_free(list);
universe@27: }
universe@27: 
universe@33: UCX_TEST_IMPLEMENT(test_ucx_list_remove) {
universe@27:     UcxList *list = ucx_list_append(NULL, "Hello");
universe@33:     UCX_TEST_BEGIN
universe@27:     list = ucx_list_append(list, " fucking");
universe@27:     list = ucx_list_append(list, " World!");
universe@27:     
universe@27:     list = ucx_list_remove(list, ucx_list_get(list, 1));
universe@27:     
universe@27:     UCX_TEST_ASSERT(strncmp(list->data, "Hello", 5) == 0, "failed")
universe@27:     UCX_TEST_ASSERT(strncmp(list->next->data, " World!", 7) == 0, "failed")
universe@27:     UCX_TEST_ASSERT(list->next->next == NULL, "failed")
universe@33:     UCX_TEST_END
universe@27:     
universe@27:     ucx_list_free(list);
universe@27: }
universe@27: 
universe@33: UCX_TEST_IMPLEMENT(test_ucx_list_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:     UcxList *list = ucx_list_append(NULL, hello);
universe@27:     list = ucx_list_append(list, world);
universe@27:     
universe@27:     UcxList *copy = ucx_list_clone(list, copy_string, NULL);
universe@33:     UCX_TEST_BEGIN
universe@27: 
universe@27:     UCX_TEST_ASSERT(ucx_list_equals(list, copy, cmp_string, NULL), "failed")
universe@27:     UCX_TEST_ASSERT(hello != copy->data, "first element is no copy")
universe@27:     UCX_TEST_ASSERT(world != copy->next->data, "second element is no copy")
universe@33: 
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_list_free(list);
olaf@30:     ucx_list_free(copy);
universe@27: }
universe@35: 
universe@36: UCX_TEST_IMPLEMENT(test_ucx_list_sort) {
universe@35:     UcxList *list = ucx_list_append(NULL, "this");
universe@35:     list = ucx_list_append(list, "is");
universe@35:     list = ucx_list_append(list, "a");
universe@35:     list = ucx_list_append(list, "test");
universe@35:     list = ucx_list_append(list, "for");
universe@35:     list = ucx_list_append(list, "partial");
universe@35:     list = ucx_list_append(list, "correctness");
universe@35: 
universe@35:     UcxList *expected = ucx_list_append(NULL, "a");
universe@35:     expected = ucx_list_append(expected, "correctness");
universe@35:     expected = ucx_list_append(expected, "for");
universe@35:     expected = ucx_list_append(expected, "is");
universe@35:     expected = ucx_list_append(expected, "partial");
universe@35:     expected = ucx_list_append(expected, "test");
universe@35:     expected = ucx_list_append(expected, "this");
universe@35: 
universe@36:     list = ucx_list_sort(list, cmp_string, NULL);
universe@35: 
universe@35:     UCX_TEST_BEGIN
universe@35:     UCX_TEST_ASSERT(
universe@35:             ucx_list_equals(list, expected, cmp_string, NULL), "failed");
universe@35:     UCX_TEST_END
universe@35: 
universe@35:     ucx_list_free(expected);
universe@35:     ucx_list_free(list);
universe@35: }