Mercurial > hg > ucx / file diff

--- a/tests/test_list.c	Mon Oct 20 20:38:02 2025 +0200
+++ b/tests/test_list.c	Tue Oct 21 17:06:17 2025 +0200
@@ -2526,6 +2526,86 @@
     free(testdata);
 })
 
+static void *test_clone_func(void *dest, const void *src, const CxAllocator *al, void *data) {
+    if (dest == NULL) {
+        dest = cxMalloc(al, sizeof(int));
+    }
+
+    *((int*) dest) = *(int*) src + *(int*) data;
+    (*(int*) data)++;
+
+    // TODO: create a separate test with another clone func which simulates a failure after a few allocations
+    return dest;
+}
+
+static CX_TEST_SUBROUTINE(verify_clone, CxList *target, CxList *source, bool target_isptrlist) {
+    // testing allocator for the target elements if target_isptrlist is true
+    CxTestingAllocator talloc;
+    cx_testing_allocator_init(&talloc);
+    CxAllocator *testing_alloc = &talloc.base;
+
+    // register a destructor for the target list if it is storing pointers
+    if (target_isptrlist) {
+        cxDefineAdvancedDestructor(target, cxFree, testing_alloc);
+    }
+
+    // fill the source list
+    int source_data[8] = array_init(1, 2, 3, 4, 5, 6, 7, 8);
+    for (unsigned i = 0 ; i < 8 ; i++) {
+        cxListAdd(source, &source_data[i]);
+    }
+
+    // add some initial data to the target
+    int initial_data[4] = array_init(1, 2, 3, 4);
+    for (unsigned i = 0; i < 4; i++) {
+        if (target_isptrlist) {
+            int *x = cxMalloc(testing_alloc, sizeof(int));
+            *x = initial_data[i];
+            cxListAdd(target, x);
+        } else {
+            cxListAdd(target, &initial_data[i]);
+        }
+    }
+
+    // perform the test
+    int expected_data[12] = array_init(1, 2, 3, 4, 1, 3, 5, 7, 9, 11, 13, 15);
+    int c = 0;
+    size_t cloned = cxListClone(target, source, test_clone_func, testing_alloc, &c);
+    CX_TEST_ASSERT(cloned == 8);
+    CX_TEST_ASSERT(c == 8);
+    CX_TEST_ASSERT(cxListSize(target) == 12);
+    CX_TEST_ASSERT(cxListSize(source) == 8);
+    for (unsigned i = 0 ; i < 12 ; i++) {
+        CX_TEST_ASSERT(*(int*)cxListAt(target, i) == expected_data[i]);
+    }
+    for (unsigned i = 0 ; i < 8 ; i++) {
+        CX_TEST_ASSERT(*(int*)cxListAt(source, i) == source_data[i]);
+    }
+    cxListFree(target);
+    CX_TEST_ASSERT(cx_testing_allocator_verify(&talloc));
+    cx_testing_allocator_destroy(&talloc);
+}
+
+roll_out_test_combos(clone_into_arl, {
+    CxList *target = cxArrayListCreate(cxDefaultAllocator, cx_cmp_int, sizeof(int), 8);
+    CX_TEST_CALL_SUBROUTINE(verify_clone, target, list, false);
+})
+
+roll_out_test_combos(clone_into_ll, {
+    CxList *target = cxLinkedListCreate(cxDefaultAllocator, cx_cmp_int, sizeof(int));
+    CX_TEST_CALL_SUBROUTINE(verify_clone, target, list, false);
+})
+
+roll_out_test_combos(clone_into_parl, {
+    CxList *target = cxArrayListCreate(cxDefaultAllocator, cx_cmp_int, CX_STORE_POINTERS, 8);
+    CX_TEST_CALL_SUBROUTINE(verify_clone, target, list, true);
+})
+
+roll_out_test_combos(clone_into_pll, {
+    CxList *target = cxLinkedListCreate(cxDefaultAllocator, cx_cmp_int, CX_STORE_POINTERS);
+    CX_TEST_CALL_SUBROUTINE(verify_clone, target, list, true);
+})
+
 CX_TEST(test_list_pointer_list_supports_null) {
     CxList *list = cxLinkedListCreate(cxDefaultAllocator, cx_cmp_int, CX_STORE_POINTERS);
     int x = 47;
@@ -2698,6 +2778,14 @@
     cx_test_register(suite, test_list_parl_simple_destr);
     cx_test_register(suite, test_list_arl_advanced_destr);
     cx_test_register(suite, test_list_parl_advanced_destr);
+    cx_test_register(suite, test_list_arl_clone_into_arl);
+    cx_test_register(suite, test_list_parl_clone_into_arl);
+    cx_test_register(suite, test_list_arl_clone_into_ll);
+    cx_test_register(suite, test_list_parl_clone_into_ll);
+    cx_test_register(suite, test_list_arl_clone_into_parl);
+    cx_test_register(suite, test_list_parl_clone_into_parl);
+    cx_test_register(suite, test_list_arl_clone_into_pll);
+    cx_test_register(suite, test_list_parl_clone_into_pll);
 
     return suite;
 }
@@ -2817,6 +2905,14 @@
     cx_test_register(suite, test_list_pll_simple_destr);
     cx_test_register(suite, test_list_ll_advanced_destr);
     cx_test_register(suite, test_list_pll_advanced_destr);
+    cx_test_register(suite, test_list_ll_clone_into_arl);
+    cx_test_register(suite, test_list_pll_clone_into_arl);
+    cx_test_register(suite, test_list_ll_clone_into_ll);
+    cx_test_register(suite, test_list_pll_clone_into_ll);
+    cx_test_register(suite, test_list_ll_clone_into_parl);
+    cx_test_register(suite, test_list_pll_clone_into_parl);
+    cx_test_register(suite, test_list_ll_clone_into_pll);
+    cx_test_register(suite, test_list_pll_clone_into_pll);
 
     return suite;
 }
@@ -2909,6 +3005,15 @@
     cx_test_register(suite, test_list_pkvl_simple_destr);
     cx_test_register(suite, test_list_kvl_advanced_destr);
     cx_test_register(suite, test_list_pkvl_advanced_destr);
+    // note: kv-lists also support a list clone, but that does not clone the keys
+    cx_test_register(suite, test_list_kvl_clone_into_arl);
+    cx_test_register(suite, test_list_pkvl_clone_into_arl);
+    cx_test_register(suite, test_list_kvl_clone_into_ll);
+    cx_test_register(suite, test_list_pkvl_clone_into_ll);
+    cx_test_register(suite, test_list_kvl_clone_into_parl);
+    cx_test_register(suite, test_list_pkvl_clone_into_parl);
+    cx_test_register(suite, test_list_kvl_clone_into_pll);
+    cx_test_register(suite, test_list_pkvl_clone_into_pll);
 
     return suite;
 }