/* This Source Code Form is subject to the terms of the Mozilla Public
 * License, v. 2.0. If a copy of the MPL was not distributed with this
 * file, You can obtain one at http://mozilla.org/MPL/2.0/. */
/*
 * test_object.c
 *
 * Test Object Allocation, toString, Equals, Destruction
 *
 */

#include "testutil.h"
#include "testutil_nss.h"

static void *plContext = NULL;

static PKIX_Error *
destructor(
    /* ARGSUSED */ PKIX_PL_Object *object,
    /* ARGSUSED */ void *plContext)
{
    (void)printf("\tUser defined destructor called\n");
    return (NULL);
}

static PKIX_Error *
toStringCallback(
    PKIX_PL_Object *obj,
    PKIX_PL_String **pString,
    /* ARGSUSED */ void *plContext)
{

    PKIX_Error *errorResult;
    PKIX_UInt32 type;
    char *format = "(addr: %x, type: %d)";
    PKIX_PL_String *formatString = NULL;

    errorResult = PKIX_PL_String_Create(
        PKIX_ESCASCII,
        format,
        PL_strlen(format),
        &formatString,
        plContext);
    if (errorResult)
        testError("PKIX_PL_String_Create failed");

    if (pString == plContext)
        testError("Null String");

    type = (unsigned int)0;

    (void)PKIX_PL_Object_GetType(obj, &type, plContext);

    errorResult = PKIX_PL_Sprintf(pString, plContext,
                                  formatString,
                                  (int)obj, type);
    if (errorResult)
        testError("PKIX_PL_Sprintf failed");

    errorResult = PKIX_PL_Object_DecRef((PKIX_PL_Object *)formatString,
                                        plContext);
    if (errorResult)
        testError("PKIX_PL_Object_DecRef failed");

    return (NULL);
}

static PKIX_Error *
comparator(
    PKIX_PL_Object *first,
    PKIX_PL_Object *second,
    PKIX_Int32 *pValue,
    /* ARGSUSED */ void *plContext)
{
    if (*(char *)first > *(char *)second)
        *pValue = 1;
    else if (*(char *)first < *(char *)second)
        *pValue = -1;
    else
        *pValue = 0;
    return (NULL);
}

static PKIX_Error *
hashcodeCallback(
    PKIX_PL_Object *object,
    PKIX_UInt32 *pValue,
    /* ARGSUSED */ void *plContext)
{
    *pValue = 123456789;
    return (NULL);
}

static PKIX_Error *
equalsCallback(
    PKIX_PL_Object *first,
    PKIX_PL_Object *second,
    PKIX_Boolean *result,
    void *plContext)
{

    PKIX_UInt32 firstType = 0, secondType = 0;

    if ((first == plContext) || (second == plContext))
        testError("Null Object");

    (void)PKIX_PL_Object_GetType(first, &firstType, plContext);

    (void)PKIX_PL_Object_GetType(second, &secondType, plContext);

    *result = (firstType == secondType) ? PKIX_TRUE : PKIX_FALSE;

    return (NULL);
}

static void
createObjects(
    PKIX_PL_Object **obj,
    PKIX_PL_Object **obj2,
    PKIX_PL_Object **obj3,
    PKIX_PL_Object **obj4)
{
    PKIX_TEST_STD_VARS();

#ifdef PKIX_USER_OBJECT_TYPE
    PKIX_TEST_EXPECT_NO_ERROR(PKIX_PL_Object_RegisterType(1000,       /* type */
                                                          "thousand", /* description */
                                                          NULL,       /* destructor */
                                                          NULL,       /* equals */
                                                          (PKIX_PL_HashcodeCallback)hashcodeCallback,
                                                          NULL, /* toString */
                                                          NULL, /* Comparator */
                                                          NULL,
                                                          plContext));

    PKIX_TEST_EXPECT_NO_ERROR(PKIX_PL_Object_Alloc(1000, /* type */
                                                   12,   /* size */
                                                   obj,
                                                   plContext));

    PKIX_TEST_EXPECT_NO_ERROR(PKIX_PL_Object_RegisterType(2000, /* type */
                                                          "two thousand" /* description */,
                                                          (PKIX_PL_DestructorCallback)destructor,
                                                          (PKIX_PL_EqualsCallback)equalsCallback,
                                                          NULL, /* hashcode */
                                                          (PKIX_PL_ToStringCallback)toStringCallback,
                                                          (PKIX_PL_ComparatorCallback)comparator,
                                                          NULL,
                                                          plContext));

    PKIX_TEST_EXPECT_NO_ERROR(PKIX_PL_Object_Alloc(2000, /* type */
                                                   1,    /* size */
                                                   obj2,
                                                   plContext));

    PKIX_TEST_EXPECT_NO_ERROR(PKIX_PL_Object_Alloc(2000, /* type */
                                                   1,    /* size */
                                                   obj4,
                                                   plContext));

    *obj3 = *obj;
    PKIX_TEST_EXPECT_NO_ERROR(PKIX_PL_Object_IncRef(*obj3, plContext));

cleanup:
#endif /* PKIX_USER_OBJECT_TYPE */
    PKIX_TEST_RETURN();
}

static void
testGetType(
    PKIX_PL_Object *obj,
    PKIX_PL_Object *obj2,
    PKIX_PL_Object *obj3)
{
    PKIX_UInt32 testType;

    PKIX_TEST_STD_VARS();

    PKIX_TEST_EXPECT_NO_ERROR(PKIX_PL_Object_GetType(obj, &testType, plContext));

    if (testType != 1000)
        testError("Object 1 returned the wrong type");

    PKIX_TEST_EXPECT_NO_ERROR(PKIX_PL_Object_GetType(obj2, &testType, plContext));
    if (testType != 2000)
        testError("Object 2 returned the wrong type");

    PKIX_TEST_EXPECT_NO_ERROR(PKIX_PL_Object_GetType(obj3, &testType, plContext));
    if (testType != 1000)
        testError("Object 3 returned the wrong type");

cleanup:

    PKIX_TEST_RETURN();
}

static void
testCompare(
    PKIX_PL_Object *obj2,
    PKIX_PL_Object *obj4)
{
    PKIX_Int32 cmpResult;
    PKIX_TEST_STD_VARS();

    *(char *)obj2 = 0x20;
    *(char *)obj4 = 0x10;
    PKIX_TEST_EXPECT_NO_ERROR(PKIX_PL_Object_Compare(obj2, obj4, &cmpResult, plContext));
    if (cmpResult <= 0)
        testError("Invalid Result from Object Compare");

    PKIX_TEST_EXPECT_NO_ERROR(PKIX_PL_Object_Compare(obj4, obj2, &cmpResult, plContext));
    if (cmpResult >= 0)
        testError("Invalid Result from Object Compare");

    PKIX_TEST_EXPECT_NO_ERROR(PKIX_PL_Object_Compare(obj4, obj4, &cmpResult, plContext));

    *(char *)obj2 = 0x10;
    if (cmpResult != 0)
        testError("Invalid Result from Object Compare");

cleanup:

    PKIX_TEST_RETURN();
}

static void
testDestroy(
    PKIX_PL_Object *obj,
    PKIX_PL_Object *obj2,
    PKIX_PL_Object *obj3,
    PKIX_PL_Object *obj4)
{
    PKIX_TEST_STD_VARS();

    PKIX_TEST_DECREF_BC(obj);
    PKIX_TEST_DECREF_BC(obj2);
    PKIX_TEST_DECREF_BC(obj3);
    PKIX_TEST_DECREF_BC(obj4);

cleanup:

    PKIX_TEST_RETURN();
}

int
test_object(int argc, char *argv[])
{

#ifdef PKIX_USER_OBJECT_TYPE
    PKIX_PL_Object *obj, *obj2, *obj3, *obj4;
    PKIX_UInt32 actualMinorVersion;
    PKIX_UInt32 j = 0;

    PKIX_TEST_STD_VARS();

    startTests("Objects");

    PKIX_TEST_EXPECT_NO_ERROR(
        PKIX_PL_NssContext_Create(0, PKIX_FALSE, NULL, &plContext));

    subTest("PKIX_PL_Object_Create");
    createObjects(&obj, &obj2, &obj3, &obj4);

    PKIX_TEST_EQ_HASH_TOSTR_DUP(obj, obj3, obj2, NULL, Object, PKIX_FALSE);

    subTest("PKIX_PL_Object_GetType");
    testGetType(obj, obj2, obj3);

    subTest("PKIX_PL_Object_Compare");
    testCompare(obj2, obj4);

    subTest("PKIX_PL_Object_Destroy");
    testDestroy(obj, obj2, obj3, obj4);

cleanup:

    PKIX_Shutdown(plContext);

    endTests("Objects");
#endif /* PKIX_USER_OBJECT_TYPE */
    return (0);
}