#include <platform.h>

#include "lighthouse.h"

#include <kernel/attrib.h>
#include <kernel/config.h>
#include <kernel/faction.h>
#include <kernel/unit.h>
#include <kernel/region.h>
#include <kernel/building.h>
#include <kernel/terrain.h>


#include <CuTest.h>
#include "tests.h"

static void test_lighthouse_range(CuTest * tc)
{
    unit *u1, *u2;
    region *r;
    building *b;

    test_setup();
    r = test_create_region(0, 0, NULL);
    test_create_region(1, 0, 0);
    u1 = test_create_unit(test_create_faction(NULL), r);
    u2 = test_create_unit(test_create_faction(NULL), r);
    b = test_create_building(r, test_create_buildingtype("lighthouse"));
    CuAssertIntEquals(tc, 0, lighthouse_range(b));
    b->size = 9;
    CuAssertIntEquals(tc, 0, lighthouse_range(b));
    b->size = 10;
    CuAssertIntEquals(tc, 0, lighthouse_range(b));
    b->flags |= BLD_MAINTAINED;
    CuAssertIntEquals(tc, 2, lighthouse_range(b));
    u1->building = b;
    u2->building = b;
    u1->number = 10;
    set_level(u1, SK_PERCEPTION, 3);
    set_level(u2, SK_PERCEPTION, 3);

    CuAssertIntEquals(tc, 1, lighthouse_view_distance(b, u1));
    set_level(u1, SK_PERCEPTION, 6);
    CuAssertIntEquals(tc, 1, lighthouse_view_distance(b, u2));
    CuAssertIntEquals(tc, 2, lighthouse_view_distance(b, u1));
    b->size = 100;
    update_lighthouse(b);
    CuAssertIntEquals(tc, 3, lighthouse_range(b));
    CuAssertIntEquals(tc, 2, lighthouse_view_distance(b, u1));
    set_level(u1, SK_PERCEPTION, 9);
    CuAssertIntEquals(tc, 3, lighthouse_view_distance(b, u1));
    CuAssertIntEquals(tc, 1, lighthouse_view_distance(b, u2));
    b->size = 99;
    CuAssertIntEquals(tc, 2, lighthouse_view_distance(b, u1));

    test_teardown();
}

static void test_lighthouse_update(CuTest * tc)
{
    region *r1, *r2, *r3, *r4;
    building *b;
    const struct terrain_type *t_ocean, *t_plain;

    test_setup();
    t_ocean = test_create_terrain("ocean", SEA_REGION);
    t_plain = test_create_terrain("plain", LAND_REGION);
    r1 = test_create_region(0, 0, t_plain);
    r2 = test_create_region(1, 0, t_ocean);
    r3 = test_create_region(2, 0, t_ocean);
    r4 = test_create_region(0, 1, t_plain);
    b = test_create_building(r1, test_create_buildingtype("lighthouse"));
    b->flags |= BLD_MAINTAINED;
    CuAssertIntEquals(tc, RF_LIGHTHOUSE, r1->flags&RF_LIGHTHOUSE);
    CuAssertPtrEquals(tc, NULL, r1->attribs);
    CuAssertPtrEquals(tc, NULL, r2->attribs);
    CuAssertPtrEquals(tc, NULL, r3->attribs);
    CuAssertPtrEquals(tc, NULL, r4->attribs);

    r1->flags = 0;
    b->size = 9; /* minimum size for any effect is 10 */
    update_lighthouse(b);
    CuAssertIntEquals(tc, RF_LIGHTHOUSE, r1->flags&RF_LIGHTHOUSE);
    CuAssertPtrEquals(tc, NULL, r1->attribs);
    CuAssertPtrEquals(tc, NULL, r2->attribs);
    CuAssertPtrEquals(tc, NULL, r3->attribs);
    CuAssertPtrEquals(tc, NULL, r4->attribs);

    a_removeall(&r2->attribs, NULL);
    r1->flags = 0;
    b->size = 10;
    update_lighthouse(b);
    CuAssertIntEquals(tc, RF_LIGHTHOUSE, r1->flags&RF_LIGHTHOUSE);
    CuAssertPtrNotNull(tc, r2->attribs);
    CuAssertPtrEquals(tc, (void *)&at_lighthouse, (void *)r2->attribs->type);
    CuAssertPtrNotNull(tc, r3->attribs);
    CuAssertPtrEquals(tc, (void *)&at_lighthouse, (void *)r3->attribs->type);
    CuAssertPtrEquals(tc, NULL, r4->attribs);
    test_teardown();
}

static void test_lighthouse_guard(CuTest * tc) {
    region *r1, *r2, *r3, *r4;
    building *b;
    const struct terrain_type *t_ocean, *t_plain;

    test_setup();
    t_ocean = test_create_terrain("ocean", SEA_REGION);
    t_plain = test_create_terrain("plain", LAND_REGION);
    r1 = test_create_region(0, 0, t_plain);
    r2 = test_create_region(1, 0, t_ocean);
    r3 = test_create_region(2, 0, t_ocean);
    r4 = test_create_region(0, 1, t_plain);
    b = test_create_building(r1, test_create_buildingtype("lighthouse"));
    b->flags |= BLD_MAINTAINED;
    b->size = 10;
    CuAssertIntEquals(tc, 2, lighthouse_range(b));
    update_lighthouse(b);
    CuAssertIntEquals(tc, RF_LIGHTHOUSE, r1->flags&RF_LIGHTHOUSE);
    CuAssertPtrEquals(tc, NULL, r1->attribs);
    CuAssertPtrEquals(tc, (void *)&at_lighthouse, (void *)r2->attribs->type);
    CuAssertPtrEquals(tc, (void *)&at_lighthouse, (void *)r3->attribs->type);
    CuAssertPtrEquals(tc, NULL, r4->attribs);
    CuAssertIntEquals(tc, false, lighthouse_guarded(r1));
    CuAssertIntEquals(tc, true, lighthouse_guarded(r2));
    CuAssertIntEquals(tc, true, lighthouse_guarded(r3));
    CuAssertIntEquals(tc, false, lighthouse_guarded(r4));
    b->size = 1; /* size can go down in destroy_cmd */
    CuAssertIntEquals(tc, false, lighthouse_guarded(r2));
    CuAssertIntEquals(tc, false, lighthouse_guarded(r3));
    test_teardown();
}

CuSuite *get_lighthouse_suite(void)
{
    CuSuite *suite = CuSuiteNew();
    SUITE_ADD_TEST(suite, test_lighthouse_range);
    SUITE_ADD_TEST(suite, test_lighthouse_update);
    SUITE_ADD_TEST(suite, test_lighthouse_guard);
    return suite;
}