/* this file should only be included by laws.c, never compiled on its own
 * (it does not even include all the headers needed to do so).
**/
#include <platform.h>
#include <kernel/types.h>
#include "laws.h"

#include <kernel/config.h>
#include <kernel/building.h>
#include <kernel/faction.h>
#include <kernel/item.h>
#include <kernel/race.h>
#include <kernel/region.h>
#include <kernel/ship.h>
#include <kernel/terrain.h>
#include <kernel/unit.h>

#include <util/language.h>

#include <cutest/CuTest.h>
#include <tests.h>

static void test_new_building_can_be_renamed(CuTest * tc)
{
  region *r;
  building *b;
  building_type *btype;

  test_cleanup();
  test_create_world();

  btype = bt_find("castle");
  r = findregion(-1, 0);

  b = new_building(btype, r, default_locale);
  CuAssertTrue(tc, !renamed_building(b));
}

static void test_rename_building(CuTest * tc)
{
  region *r;
  building *b;
  unit *u;
  faction *f;
  building_type *btype;

  test_cleanup();
  test_create_world();

  btype = bt_find("castle");

  r = findregion(-1, 0);
  b = new_building(btype, r, default_locale);
  f = test_create_faction(rc_find("human"));
  u = test_create_unit(f, r);
  u->building = b;
  fset(u, UFL_OWNER);

  rename_building(u, NULL, b, "Villa Nagel");
  CuAssertStrEquals(tc, "Villa Nagel", b->name);
}

static void test_rename_building_twice(CuTest * tc)
{
  region *r;
  building *b;
  unit *u;
  faction *f;
  building_type *btype;

  test_cleanup();
  test_create_world();

  btype = bt_find("castle");

  r = findregion(-1, 0);
  b = new_building(btype, r, default_locale);
  f = test_create_faction(rc_find("human"));
  u = test_create_unit(f, r);
  u->building = b;
  fset(u, UFL_OWNER);

  rename_building(u, NULL, b, "Villa Nagel");
  CuAssertStrEquals(tc, "Villa Nagel", b->name);

  rename_building(u, NULL, b, "Villa Kunterbunt");
  CuAssertStrEquals(tc, "Villa Kunterbunt", b->name);
}

static void test_fishing_feeds_2_people(CuTest * tc)
{
  region *r;
  faction *f;
  unit *u;
  ship *sh;

  test_cleanup();
  test_create_world();
  r = findregion(-1, 0);
  CuAssertStrEquals(tc, "ocean", r->terrain->_name);    /* test_create_world needs coverage */
  f = test_create_faction(rc_find("human"));
  u = test_create_unit(f, r);
  sh = new_ship(st_find("boat"), NULL, r);
  u->ship = sh;
  i_change(&u->items, it_find("money"), 42);

  scale_number(u, 1);
  sh->flags |= SF_FISHING;
  get_food(r);
  CuAssertIntEquals(tc, 42, i_get(u->items, it_find("money")));

  scale_number(u, 2);
  sh->flags |= SF_FISHING;
  get_food(r);
  CuAssertIntEquals(tc, 42, i_get(u->items, it_find("money")));

  scale_number(u, 3);
  sh->flags |= SF_FISHING;
  get_food(r);
  CuAssertIntEquals(tc, 32, i_get(u->items, it_find("money")));

}

static int not_so_hungry(const unit * u)
{
  return 6 * u->number;
}

static void test_fishing_does_not_give_goblins_money(CuTest * tc)
{
  region *r;
  faction *f;
  unit *u;
  ship *sh;

  test_cleanup();
  test_create_world();

  r = findregion(-1, 0);
  CuAssertStrEquals(tc, "ocean", r->terrain->_name);    /* test_create_world needs coverage */
  f = test_create_faction(rc_find("human"));
  u = test_create_unit(f, r);
  sh = new_ship(st_find("boat"), NULL, r);
  u->ship = sh;
  i_change(&u->items, it_find("money"), 42);

  global.functions.maintenance = not_so_hungry;
  scale_number(u, 2);
  sh->flags |= SF_FISHING;
  get_food(r);
  CuAssertIntEquals(tc, 42, i_get(u->items, it_find("money")));

}

static void test_fishing_gets_reset(CuTest * tc)
{
  region *r;
  faction *f;
  unit *u;
  ship *sh;

  test_cleanup();
  test_create_world();
  r = findregion(-1, 0);
  CuAssertStrEquals(tc, "ocean", r->terrain->_name);    /* test_create_world needs coverage */
  f = test_create_faction(rc_find("human"));
  u = test_create_unit(f, r);
  sh = new_ship(st_find("boat"), NULL, r);
  u->ship = sh;
  i_change(&u->items, it_find("money"), 42);

  scale_number(u, 1);
  sh->flags |= SF_FISHING;
  get_food(r);
  CuAssertIntEquals(tc, 42, i_get(u->items, it_find("money")));

  scale_number(u, 1);
  get_food(r);
  CuAssertIntEquals(tc, 32, i_get(u->items, it_find("money")));

}

static void test_unit_limit(CuTest * tc)
{
  set_param(&global.parameters, "rules.limit.faction", "250");
  CuAssertIntEquals(tc, 250, rule_faction_limit());

  set_param(&global.parameters, "rules.limit.faction", "200");
  CuAssertIntEquals(tc, 200, rule_faction_limit());

  set_param(&global.parameters, "rules.limit.alliance", "250");
  CuAssertIntEquals(tc, 250, rule_alliance_limit());

}

extern int checkunitnumber(const faction * f, int add);
static void test_cannot_create_unit_above_limit(CuTest * tc)
{
  faction *f;

  test_cleanup();
  test_create_world();
  f = test_create_faction(rc_find("human"));
  set_param(&global.parameters, "rules.limit.faction", "4");

  CuAssertIntEquals(tc, 0, checkunitnumber(f, 4));
  CuAssertIntEquals(tc, 2, checkunitnumber(f, 5));

  set_param(&global.parameters, "rules.limit.alliance", "3");
  CuAssertIntEquals(tc, 0, checkunitnumber(f, 3));
  CuAssertIntEquals(tc, 1, checkunitnumber(f, 4));
}

CuSuite *get_laws_suite(void)
{
  CuSuite *suite = CuSuiteNew();
  SUITE_ADD_TEST(suite, test_new_building_can_be_renamed);
  SUITE_ADD_TEST(suite, test_rename_building);
  SUITE_ADD_TEST(suite, test_rename_building_twice);
  SUITE_ADD_TEST(suite, test_fishing_feeds_2_people);
  SUITE_ADD_TEST(suite, test_fishing_does_not_give_goblins_money);
  SUITE_ADD_TEST(suite, test_fishing_gets_reset);
  SUITE_ADD_TEST(suite, test_unit_limit);
  SUITE_ADD_TEST(suite, test_cannot_create_unit_above_limit);
  return suite;
}