/*
 * Copyright (c) 2017 Cisco and/or its affiliates.
 * Licensed under the Apache License, Version 2.0 (the "License");
 * you may not use this file except in compliance with the License.
 * You may obtain a copy of the License at:
 *
 *     http://www.apache.org/licenses/LICENSE-2.0
 *
 * Unless required by applicable law or agreed to in writing, software
 * distributed under the License is distributed on an "AS IS" BASIS,
 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 * See the License for the specific language governing permissions and
 * limitations under the License.
 */

// Include the file(s) containing the functions to be tested.
// This permits internal static functions to be visible to this Test Framework.
#include "../metis_Logger.c"
#include <stdio.h>
#include <LongBow/unit-test.h>
#include <parc/algol/parc_SafeMemory.h>

LONGBOW_TEST_RUNNER(metis_Logger)
{
    LONGBOW_RUN_TEST_FIXTURE(Global);
}

// The Test Runner calls this function once before any Test Fixtures are run.
LONGBOW_TEST_RUNNER_SETUP(metis_Logger)
{
    return LONGBOW_STATUS_SUCCEEDED;
}

// The Test Runner calls this function once after all the Test Fixtures are run.
LONGBOW_TEST_RUNNER_TEARDOWN(metis_Logger)
{
    return LONGBOW_STATUS_SUCCEEDED;
}

// ==========================================================

/*
 * _testWritter will vsprintf to this buffer
 */
#define _logLength 1024
static char _lastLogMessage[_logLength];

static int
_testWriter(const char *message)
{
    int written = 0;
    written = snprintf(_lastLogMessage, _logLength, "%s", message);
    return written;
}

static PARCLogReporter *
_testWriter_Acquire(const PARCLogReporter *reporter)
{
    return parcObject_Acquire(reporter);
}

static void
_testWriter_Release(PARCLogReporter **reporterPtr)
{
    parcObject_Release((void **) reporterPtr);
}

static void
_testWriter_Report(PARCLogReporter *reporter, const PARCLogEntry *entry)
{
    char *string = parcLogEntry_ToString(entry);
    _testWriter(string);
    parcMemory_Deallocate((void **) &string);
}

static PARCLogReporter *
_testWriter_Create(void)
{
    return parcLogReporter_Create(_testWriter_Acquire, _testWriter_Release, _testWriter_Report, NULL);
}

// ==========================================================

LONGBOW_TEST_FIXTURE(Global)
{
    LONGBOW_RUN_TEST_CASE(Global, metisLogger_FacilityString_Found);
    LONGBOW_RUN_TEST_CASE(Global, metisLogger_FacilityString_NotFound);
    LONGBOW_RUN_TEST_CASE(Global, metisLogger_Create);
    LONGBOW_RUN_TEST_CASE(Global, metisLogger_Acquire);
    LONGBOW_RUN_TEST_CASE(Global, metisLogger_SetLogLevel);
    LONGBOW_RUN_TEST_CASE(Global, metisLogger_IsLoggable_True);
    LONGBOW_RUN_TEST_CASE(Global, metisLogger_IsLoggable_False);
    LONGBOW_RUN_TEST_CASE(Global, metisLogger_Log_IsLoggable);
    LONGBOW_RUN_TEST_CASE(Global, metisLogger_Log_IsNotLoggable);
}

LONGBOW_TEST_FIXTURE_SETUP(Global)
{
    return LONGBOW_STATUS_SUCCEEDED;
}

LONGBOW_TEST_FIXTURE_TEARDOWN(Global)
{
    uint32_t outstandingAllocations = parcSafeMemory_ReportAllocation(STDERR_FILENO);
    if (outstandingAllocations != 0) {
        printf("%s leaks memory by %d allocations\n", longBowTestCase_GetName(testCase), outstandingAllocations);
        return LONGBOW_STATUS_MEMORYLEAK;
    }
    return LONGBOW_STATUS_SUCCEEDED;
}

LONGBOW_TEST_CASE(Global, metisLogger_FacilityString_Found)
{
    for (MetisLoggerFacility i = 0; i < MetisLoggerFacility_END; i++) {
        const char *test = metisLogger_FacilityString(i);
        assertNotNull(test, "Got null string for facility %d", i);
    }
}

LONGBOW_TEST_CASE(Global, metisLogger_FacilityString_NotFound)
{
    const char *test = metisLogger_FacilityString(1000);
    assertTrue(strcmp(test, "Unknown") == 0, "Got wrong string for unknown facility");
}

LONGBOW_TEST_CASE(Global, metisLogger_Create)
{
    PARCLogReporter *reporter = _testWriter_Create();
    MetisLogger *logger = metisLogger_Create(reporter, parcClock_Wallclock());
    parcLogReporter_Release(&reporter);

    metisLogger_Release(&logger);
}

LONGBOW_TEST_CASE(Global, metisLogger_Acquire)
{
    PARCLogReporter *reporter = _testWriter_Create();
    MetisLogger *logger = metisLogger_Create(reporter, parcClock_Wallclock());
    parcLogReporter_Release(&reporter);

    MetisLogger *copy = metisLogger_Acquire(logger);
    metisLogger_Release(&logger);
    metisLogger_Release(&copy);
}

LONGBOW_TEST_CASE(Global, metisLogger_SetLogLevel)
{
    PARCLogReporter *reporter = _testWriter_Create();
    MetisLogger *logger = metisLogger_Create(reporter, parcClock_Wallclock());
    parcLogReporter_Release(&reporter);

    metisLogger_SetLogLevel(logger, MetisLoggerFacility_IO, PARCLogLevel_Off);

    PARCLogLevel test = parcLog_GetLevel(logger->loggerArray[MetisLoggerFacility_IO]);
    assertTrue(test == PARCLogLevel_Off, "wrong log level, expected %d got %d", PARCLogLevel_Off, test);
    metisLogger_Release(&logger);
}

LONGBOW_TEST_CASE(Global, metisLogger_IsLoggable_True)
{
    PARCLogReporter *reporter = _testWriter_Create();
    MetisLogger *logger = metisLogger_Create(reporter, parcClock_Wallclock());
    parcLogReporter_Release(&reporter);

    metisLogger_SetLogLevel(logger, MetisLoggerFacility_IO, PARCLogLevel_Warning);
    bool isLoggable = metisLogger_IsLoggable(logger, MetisLoggerFacility_IO, PARCLogLevel_Warning);
    assertTrue(isLoggable, "Did not get true for isLoggable when expecting true");
    metisLogger_Release(&logger);
}

LONGBOW_TEST_CASE(Global, metisLogger_IsLoggable_False)
{
    PARCLogReporter *reporter = _testWriter_Create();
    MetisLogger *logger = metisLogger_Create(reporter, parcClock_Wallclock());
    parcLogReporter_Release(&reporter);

    metisLogger_SetLogLevel(logger, MetisLoggerFacility_IO, PARCLogLevel_Warning);
    bool isLoggable = metisLogger_IsLoggable(logger, MetisLoggerFacility_IO, PARCLogLevel_Debug);
    assertFalse(isLoggable, "Logging debug to warning facility should have been false");
    metisLogger_Release(&logger);
}

LONGBOW_TEST_CASE(Global, metisLogger_Log_IsLoggable)
{
    PARCLogReporter *reporter = _testWriter_Create();
    MetisLogger *logger = metisLogger_Create(reporter, parcClock_Wallclock());
    parcLogReporter_Release(&reporter);

    metisLogger_SetLogLevel(logger, MetisLoggerFacility_IO, PARCLogLevel_Warning);
    memset(_lastLogMessage, 0, _logLength);

    metisLogger_Log(logger, MetisLoggerFacility_IO, PARCLogLevel_Warning, __func__, "hello");
    assertTrue(strlen(_lastLogMessage) > 0, "Did not write to log message");
    metisLogger_Release(&logger);
}

LONGBOW_TEST_CASE(Global, metisLogger_Log_IsNotLoggable)
{
    PARCLogReporter *reporter = _testWriter_Create();
    MetisLogger *logger = metisLogger_Create(reporter, parcClock_Wallclock());
    parcLogReporter_Release(&reporter);

    metisLogger_SetLogLevel(logger, MetisLoggerFacility_IO, PARCLogLevel_Warning);
    memset(_lastLogMessage, 0, _logLength);

    metisLogger_Log(logger, MetisLoggerFacility_IO, PARCLogLevel_Debug, __func__, "hello");
    assertTrue(strlen(_lastLogMessage) == 0, "Should not have written to log message");
    metisLogger_Release(&logger);
}


// ==========================================================

int
main(int argc, char *argv[])
{
    LongBowRunner *testRunner = LONGBOW_TEST_RUNNER_CREATE(metis_Logger);
    int exitStatus = longBowMain(argc, argv, testRunner, NULL);
    longBowTestRunner_Destroy(&testRunner);
    exit(exitStatus);
}