/*
 * Copyright (C) 2009-2011 by Benedict Paten (benedictpaten@gmail.com)
 *
 * Released under the MIT license, see LICENSE.txt
 */

#include "cactusChainsTestShared.h"

static bool nestedTest = 0;

static void cactusChainTestTeardown() {
    if (!nestedTest) {
        cactusChainsSharedTestTeardown();
    }
}

static void cactusChainTestSetup() {
    if (!nestedTest) {
        cactusChainsSharedTestSetup();
    }
}

void testChain_construct(CuTest* testCase) {
    nestedTest = 0;
    cactusChainTestSetup();
    CuAssertTrue(testCase, chain != NULL);
    CuAssertTrue(testCase, link1 != NULL);
    CuAssertTrue(testCase, link2 != NULL);
    CuAssertTrue(testCase, link5 != NULL);
    cactusChainTestTeardown();
}

void testChain_getFirst(CuTest* testCase) {
    cactusChainTestSetup();
    CuAssertTrue(testCase, chain_getFirst(chain) == link1);
    CuAssertTrue(testCase, chain_getFirst(chain3) == link5);
    Chain *chain6 = chain_construct(flower);
    CuAssertTrue(testCase, chain_getFirst(chain6) == NULL);
    //CuAssertTrue(testCase, 0);
    cactusChainTestTeardown();
}

void testChain_getLast(CuTest* testCase) {
    cactusChainTestSetup();
    CuAssertTrue(testCase, chain_getLast(chain) == link2);
    CuAssertTrue(testCase, chain_getLast(chain2) == link4);
    CuAssertTrue(testCase, chain_getLast(chain3) == link5);
    Chain *chain6 = chain_construct(flower);
    CuAssertTrue(testCase, chain_getLast(chain6) == NULL);
    //CuAssertTrue(testCase, 0);
    cactusChainTestTeardown();
}



void testChain_getLength(CuTest* testCase) {
    cactusChainTestSetup();
    CuAssertTrue(testCase, chain_getLength(chain) == 2);
    CuAssertTrue(testCase, chain_getLength(chain3) == 1);
    cactusChainTestTeardown();
}

void testChain_getBlockChain(CuTest* testCase) {
    cactusChainTestSetup();
    int32_t i;
    Block **blockChain = chain_getBlockChain(chain, &i);
    CuAssertTrue(testCase, i == 1);
    CuAssertTrue(testCase, blockChain[0] == block);
    free(blockChain);

    //Now test the circular version
    blockChain = chain_getBlockChain(chain3, &i);
    CuAssertTrue(testCase, i == 1);
    CuAssertTrue(testCase, blockChain[0] == block4);
    free(blockChain);

    cactusChainTestTeardown();
}

void testChain_getName(CuTest* testCase) {
    cactusChainTestSetup();
    CuAssertTrue(testCase, chain_getName(chain) != NULL_NAME);
    CuAssertTrue(testCase, flower_getChain(flower, chain_getName(chain)) == chain);
    cactusChainTestTeardown();
}

void testChain_getFlower(CuTest* testCase) {
    cactusChainTestSetup();
    CuAssertTrue(testCase, chain_getFlower(chain) == flower);
    cactusChainTestTeardown();
}

void testChain_isCircular(CuTest* testCase) {
    cactusChainTestSetup();
    CuAssertTrue(testCase, !chain_isCircular(chain));
    CuAssertTrue(testCase, !chain_isCircular(chain2));
    CuAssertTrue(testCase, chain_isCircular(chain3));
    cactusChainTestTeardown();
}

void testChain_serialisation(CuTest* testCase) {
    cactusChainTestSetup();
    int64_t i;
    void
            *vA =
                    binaryRepresentation_makeBinaryRepresentation(chain,
                            (void(*)(void *, void(*)(const void *, size_t,
                                    size_t))) chain_writeBinaryRepresentation,
                            &i);
    CuAssertTrue(testCase, i> 0);
    chain_destruct(chain);
    void *vA2 = vA;
    chain = chain_loadFromBinaryRepresentation(&vA2, flower);
    CuAssertTrue(testCase, chain_getLength(chain) == 2);
    link1 = chain_getFirst(chain);
    link2 = link_getNextLink(link1);
    nestedTest = 1;
    testChain_getLength(testCase);
    testChain_getName(testCase);
    testChain_getFlower(testCase);
    nestedTest = 0;
    cactusChainTestTeardown();
}

CuSuite* cactusChainTestSuite(void) {
    CuSuite* suite = CuSuiteNew();
    SUITE_ADD_TEST(suite, testChain_getFirst);
    SUITE_ADD_TEST(suite, testChain_getLast);
    SUITE_ADD_TEST(suite, testChain_getLength);
    SUITE_ADD_TEST(suite, testChain_getBlockChain);
    SUITE_ADD_TEST(suite, testChain_getName);
    SUITE_ADD_TEST(suite, testChain_getFlower);
    SUITE_ADD_TEST(suite, testChain_serialisation);
    SUITE_ADD_TEST(suite, testChain_isCircular);
    SUITE_ADD_TEST(suite, testChain_construct);
    return suite;
}