Mercurial > hg > ucx / file revision

/*
 * tests of list implementation
 */

#include <stdio.h>
#include <stdlib.h>

#include "ucx/list.h"
#include "ucx/dlist.h"

struct foreach_testdata {
    int values[3];
    int i;
};

void* int_cpy(void* source, void* data) {
    void *dest = malloc(sizeof(int));
    if (dest != NULL) {
        *((int*)dest) = *((int*)source);
    }
    return dest;
}

int int_cmp(void* e1, void *e2, void *data) {
    if (e1 == NULL || e2 == NULL) return (e1 == e2) ? 0 : -1;

    int *i1 = (int*)e1, *i2 = (int*)e2;
    int r = (*i1) - (*i2);
    return (r < 0) ? -1 : (r == 0 ? 0 : 1);
}

int dlist_tests_foreach(void *v, void *custom) {
    UcxDlist *dl = (UcxDlist*)v;
    struct foreach_testdata *tdata = (struct foreach_testdata*)custom;

    tdata->values[tdata->i] = *(int*)dl->data;
    tdata->i++;

    return 0;
}

int dlist_free_content(void *v, void *custom) {
    UcxDlist *dl = (UcxDlist*)v;
    free(dl->data);
    return 0;
}

int dlist_tests() {
    int r = 0;
    int v[8];
    UcxDlist *dl = NULL;
    // build list 0,1,2,3,4,5,6,7
    printf("   Test ucx_dlist_append\n");
    fflush(stdout);
    for(int i=0;i<8;i++) {
        v[i] = i;
        dl = ucx_dlist_append(dl, &v[i]);
    }

    printf("   Test ucx_dlist_get\n");
    fflush(stdout);
    for(int i=0;i<8;i++) {
        UcxDlist *elm = ucx_dlist_get(dl, i);
        if(elm == NULL) {
            fprintf(stderr, "ucx_dlist_get failed: element is NULL\n");
            r--;
        } else if(elm->data == NULL) {
            fprintf(stderr, "ucx_dlist_get failed: data is NULL\n");
            r--;
        } else {
            int *data = (int*)elm->data;
            if(*data != i) {
                fprintf(stderr, "ucx_dlist_get failed with index %d\n", i);
                r--;
            }
        }
    }

    printf("   Test ucx_dlist_free\n");
    fflush(stdout);
    ucx_dlist_free(dl);

    dl = NULL;
    // build list 4,0,4
    printf("   Test ucx_dlist_prepend\n");
    dl = ucx_dlist_prepend(dl, &v[0]);
    dl = ucx_dlist_prepend(dl, &v[4]);
    dl = ucx_dlist_append(dl, &v[4]);

    struct foreach_testdata tdata;
    tdata.i = 0;
    ucx_dlist_foreach(dl, dlist_tests_foreach, &tdata);

    if(tdata.values[0] != 4 || tdata.values[1] != 0 || tdata.values[2] != 4) {
        fprintf(stderr, "prepend/append test failed\n");
        fprintf(stderr, "content: [%d, %d, %d]\n",
                tdata.values[0], tdata.values[1], tdata.values[2]);
        r--;
    }

    printf("   Test ucx_dlist_equals\n");
    UcxDlist *dl2 = NULL;
    dl2 = ucx_dlist_append(dl2, &v[4]);
    dl2 = ucx_dlist_append(dl2, &v[0]);
    dl2 = ucx_dlist_append(dl2, &v[4]);
    if (!ucx_dlist_equals(dl, dl2, NULL, NULL)) {
        fprintf(stderr, "ucx_dlist_equals failed (false negative)\n");
        r--;
    }
    dl2->next->data = NULL;
    if (ucx_dlist_equals(dl, dl2, NULL, NULL)) {
        fprintf(stderr, "ucx_dlist_equals failed (false positive)\n");
        r--;
    }
    dl2->next->data = &(tdata.values[1]);
    if (!ucx_dlist_equals(dl, dl2, int_cmp, NULL)) {
        fprintf(stderr, "ucx_dlist_equals failed (cmp_func false negative)\n");
        r--;
    }
    if (ucx_dlist_equals(dl, dl2, NULL, NULL)) {
        fprintf(stderr, "ucx_dlist_equals failed (cmp_func false positive)\n");
        r--;
    }
    ucx_dlist_free(dl2);

    printf("   Test ucx_dlist_clone\n");
    dl2 = ucx_dlist_clone(dl, NULL, NULL);
    if (!ucx_dlist_equals(dl, dl2, NULL, NULL)) {
        fprintf(stderr, "ucx_dlist_clone (without copy) failed\n");
        r--;
    }
    ucx_dlist_free(dl2);

    printf("   Test ucx_dlist_clone with copy\n");
    dl2 = ucx_dlist_clone(dl, int_cpy, NULL);
    if (!ucx_dlist_equals(dl, dl2, NULL, NULL)) {
        if (!ucx_dlist_equals(dl, dl2, int_cmp, NULL)) {
            fprintf(stderr, "ucx_dlist_clone (with copy) failed (compare)\n");
            r--;
        }
    } else {
        fprintf(stderr, "ucx_dlist_clone (with copy) failed (identity)\n");
        r--;
    }
    ucx_dlist_foreach(dl, dlist_free_content, NULL);
    ucx_dlist_free(dl2);

    ucx_dlist_free(dl);

    dl = NULL;
    printf("   Test ucx_dlist_remove\n");
    dl = ucx_dlist_append(dl, &v[4]);
    dl = ucx_dlist_append(dl, &v[0]);
    dl = ucx_dlist_append(dl, &v[3]);
    dl = ucx_dlist_remove(dl, dl->next);
    if (ucx_dlist_size(dl) == 2) {
        if ((*((int*)(dl->data)) != 4) || (*((int*)(dl->next->data)) != 3)) {
            fprintf(stderr, "ucx_dlist_remove failed (wrong data)\n");
            r--;
        }
    } else {
        fprintf(stderr, "ucx_dlist_remove failed (wrong size)\n");
        r--;
    }
    dl = ucx_dlist_remove(dl, dl);
    if (ucx_dlist_size(dl) == 1) {
        if ((*((int*)(dl->data)) != 3)) {
            fprintf(stderr, "ucx_dlist_remove first failed (wrong data)\n");
            r--;
        }
    } else {
        fprintf(stderr, "ucx_dlist_remove first failed (wrong size)\n");
        r--;
    }

    return r;
}