forked from github/server
333 lines
12 KiB
C
333 lines
12 KiB
C
#include <platform.h>
|
|
#include "creport.h"
|
|
#include "move.h"
|
|
#include "spy.h"
|
|
#include "travelthru.h"
|
|
#include "keyword.h"
|
|
|
|
#include <kernel/ally.h>
|
|
#include <kernel/building.h>
|
|
#include <kernel/faction.h>
|
|
#include <kernel/item.h>
|
|
#include <kernel/race.h>
|
|
#include <kernel/region.h>
|
|
#include <kernel/resources.h>
|
|
#include <kernel/ship.h>
|
|
#include <kernel/unit.h>
|
|
#include <kernel/spell.h>
|
|
#include <kernel/spellbook.h>
|
|
|
|
#include <util/language.h>
|
|
#include <util/lists.h>
|
|
#include <util/message.h>
|
|
|
|
#include <stream.h>
|
|
#include <memstream.h>
|
|
|
|
#include <CuTest.h>
|
|
#include <tests.h>
|
|
|
|
#include <string.h>
|
|
|
|
static void test_cr_unit(CuTest *tc) {
|
|
stream strm;
|
|
char line[1024];
|
|
faction *f;
|
|
region *r;
|
|
unit *u;
|
|
|
|
test_cleanup();
|
|
f = test_create_faction(0);
|
|
r = test_create_region(0, 0, 0);
|
|
u = test_create_unit(f, r);
|
|
renumber_unit(u, 1234);
|
|
|
|
mstream_init(&strm);
|
|
cr_output_unit(&strm, r, f, u, seen_unit);
|
|
strm.api->rewind(strm.handle);
|
|
CuAssertIntEquals(tc, 0, strm.api->readln(strm.handle, line, sizeof(line)));
|
|
CuAssertStrEquals(tc, line, "EINHEIT 1234");
|
|
mstream_done(&strm);
|
|
test_cleanup();
|
|
}
|
|
|
|
static void setup_resources(void) {
|
|
struct locale *lang;
|
|
item_type *itype;
|
|
|
|
test_setup();
|
|
itype = it_get_or_create(rt_get_or_create("stone"));
|
|
itype->rtype->flags = RTF_LIMITED | RTF_POOLED;
|
|
itype->construction = calloc(1, sizeof(construction));
|
|
itype->construction->skill = SK_QUARRYING;
|
|
itype->construction->minskill = 1;
|
|
rmt_create(itype->rtype);
|
|
init_resources();
|
|
lang = get_or_create_locale("de"); /* CR tags are translated from this */
|
|
locale_setstring(lang, "money", "Silber");
|
|
locale_setstring(lang, "money_p", "Silber");
|
|
locale_setstring(lang, "horse", "Pferd");
|
|
locale_setstring(lang, "horse_p", "Pferde");
|
|
locale_setstring(lang, "peasant", "Bauer");
|
|
locale_setstring(lang, "peasant_p", "Bauern");
|
|
locale_setstring(lang, "stone", "Stein");
|
|
locale_setstring(lang, "stone_p", "Steine");
|
|
locale_setstring(lang, "tree", "Blume");
|
|
locale_setstring(lang, "tree_p", "Blumen");
|
|
locale_setstring(lang, "sapling", "Schoessling");
|
|
locale_setstring(lang, "sapling_p", "Schoesslinge");
|
|
locale_setstring(lang, "mallornsapling", "Mallornschoessling");
|
|
locale_setstring(lang, "mallornsapling_p", "Mallornschoesslinge");
|
|
locale_setstring(lang, "mallorntree", "Mallorn");
|
|
locale_setstring(lang, "mallorntree_p", "Mallorn");
|
|
}
|
|
|
|
static void test_cr_resources(CuTest *tc) {
|
|
stream strm;
|
|
char line[1024];
|
|
faction *f;
|
|
region *r;
|
|
unit *u;
|
|
|
|
setup_resources();
|
|
|
|
f = test_create_faction(0);
|
|
r = test_create_region(0, 0, 0);
|
|
u = test_create_unit(f, r);
|
|
set_level(u, SK_QUARRYING, 1);
|
|
r->land->horses = 1;
|
|
r->land->peasants = 200;
|
|
r->land->money = 300;
|
|
rsettrees(r, 0, 1);
|
|
rsettrees(r, 1, 2);
|
|
rsettrees(r, 2, 3);
|
|
region_setresource(r, get_resourcetype(R_STONE), 1);
|
|
|
|
mstream_init(&strm);
|
|
cr_output_resources(&strm, f, r, true);
|
|
strm.api->rewind(strm.handle);
|
|
CuAssertIntEquals(tc, 0, strm.api->readln(strm.handle, line, sizeof(line)));
|
|
CuAssertStrEquals(tc, "3;Baeume", line);
|
|
CuAssertIntEquals(tc, 0, strm.api->readln(strm.handle, line, sizeof(line)));
|
|
CuAssertStrEquals(tc, "2;Schoesslinge", line);
|
|
CuAssertIntEquals(tc, 0, strm.api->readln(strm.handle, line, sizeof(line)));
|
|
CuAssertStrEquals(tc, "1;Steine", line);
|
|
|
|
CuAssertIntEquals(tc, 0, strm.api->readln(strm.handle, line, sizeof(line)));
|
|
CuAssertIntEquals(tc, 0, memcmp(line, "RESOURCE ", 9));
|
|
CuAssertIntEquals(tc, 0, strm.api->readln(strm.handle, line, sizeof(line)));
|
|
CuAssertStrEquals(tc, "\"Schoesslinge\";type", line);
|
|
CuAssertIntEquals(tc, 0, strm.api->readln(strm.handle, line, sizeof(line)));
|
|
CuAssertStrEquals(tc, "2;number", line);
|
|
|
|
CuAssertIntEquals(tc, 0, strm.api->readln(strm.handle, line, sizeof(line)));
|
|
CuAssertIntEquals(tc, 0, memcmp(line, "RESOURCE ", 9));
|
|
CuAssertIntEquals(tc, 0, strm.api->readln(strm.handle, line, sizeof(line)));
|
|
CuAssertStrEquals(tc, "\"Blumen\";type", line);
|
|
CuAssertIntEquals(tc, 0, strm.api->readln(strm.handle, line, sizeof(line)));
|
|
CuAssertStrEquals(tc, "3;number", line);
|
|
|
|
CuAssertIntEquals(tc, 0, strm.api->readln(strm.handle, line, sizeof(line)));
|
|
CuAssertIntEquals(tc, 0, memcmp(line, "RESOURCE ", 9));
|
|
CuAssertIntEquals(tc, 0, strm.api->readln(strm.handle, line, sizeof(line)));
|
|
CuAssertStrEquals(tc, "\"Silber\";type", line);
|
|
CuAssertIntEquals(tc, 0, strm.api->readln(strm.handle, line, sizeof(line)));
|
|
CuAssertStrEquals(tc, "300;number", line);
|
|
|
|
CuAssertIntEquals(tc, 0, strm.api->readln(strm.handle, line, sizeof(line)));
|
|
CuAssertIntEquals(tc, 0, memcmp(line, "RESOURCE ", 9));
|
|
CuAssertIntEquals(tc, 0, strm.api->readln(strm.handle, line, sizeof(line)));
|
|
CuAssertStrEquals(tc, "\"Bauern\";type", line);
|
|
CuAssertIntEquals(tc, 0, strm.api->readln(strm.handle, line, sizeof(line)));
|
|
CuAssertStrEquals(tc, "200;number", line);
|
|
|
|
CuAssertIntEquals(tc, 0, strm.api->readln(strm.handle, line, sizeof(line)));
|
|
CuAssertIntEquals(tc, 0, memcmp(line, "RESOURCE ", 9));
|
|
CuAssertIntEquals(tc, 0, strm.api->readln(strm.handle, line, sizeof(line)));
|
|
CuAssertStrEquals(tc, "\"Pferde\";type", line);
|
|
CuAssertIntEquals(tc, 0, strm.api->readln(strm.handle, line, sizeof(line)));
|
|
CuAssertStrEquals(tc, "1;number", line);
|
|
|
|
CuAssertIntEquals(tc, 0, strm.api->readln(strm.handle, line, sizeof(line)));
|
|
CuAssertIntEquals(tc, 0, memcmp(line, "RESOURCE ", 9));
|
|
CuAssertIntEquals(tc, 0, strm.api->readln(strm.handle, line, sizeof(line)));
|
|
CuAssertStrEquals(tc, "\"Steine\";type", line);
|
|
CuAssertIntEquals(tc, 0, strm.api->readln(strm.handle, line, sizeof(line)));
|
|
CuAssertStrEquals(tc, "1;skill", line);
|
|
CuAssertIntEquals(tc, 0, strm.api->readln(strm.handle, line, sizeof(line)));
|
|
CuAssertStrEquals(tc, "1;number", line);
|
|
|
|
mstream_done(&strm);
|
|
test_cleanup();
|
|
}
|
|
|
|
static void test_cr_mallorn(CuTest *tc) {
|
|
stream strm;
|
|
char line[1024];
|
|
faction *f;
|
|
region *r;
|
|
|
|
setup_resources();
|
|
|
|
f = test_create_faction(0);
|
|
r = test_create_region(0, 0, 0);
|
|
r->land->horses = 1;
|
|
r->land->peasants = 200;
|
|
r->land->money = 300;
|
|
r->flags |= RF_MALLORN;
|
|
rsettrees(r, 0, 1);
|
|
rsettrees(r, 1, 2);
|
|
rsettrees(r, 2, 3);
|
|
|
|
mstream_init(&strm);
|
|
cr_output_resources(&strm, f, r, false);
|
|
strm.api->rewind(strm.handle);
|
|
CuAssertIntEquals(tc, 0, strm.api->readln(strm.handle, line, sizeof(line)));
|
|
CuAssertStrEquals(tc, "3;Baeume", line);
|
|
CuAssertIntEquals(tc, 0, strm.api->readln(strm.handle, line, sizeof(line)));
|
|
CuAssertStrEquals(tc, "2;Schoesslinge", line);
|
|
CuAssertIntEquals(tc, 0, strm.api->readln(strm.handle, line, sizeof(line)));
|
|
CuAssertStrEquals(tc, "1;Mallorn", line);
|
|
|
|
CuAssertIntEquals(tc, 0, strm.api->readln(strm.handle, line, sizeof(line)));
|
|
CuAssertIntEquals(tc, 0, memcmp(line, "RESOURCE ", 9));
|
|
CuAssertIntEquals(tc, 0, strm.api->readln(strm.handle, line, sizeof(line)));
|
|
CuAssertStrEquals(tc, "\"Mallornschoesslinge\";type", line);
|
|
CuAssertIntEquals(tc, 0, strm.api->readln(strm.handle, line, sizeof(line)));
|
|
CuAssertStrEquals(tc, "2;number", line);
|
|
|
|
CuAssertIntEquals(tc, 0, strm.api->readln(strm.handle, line, sizeof(line)));
|
|
CuAssertIntEquals(tc, 0, memcmp(line, "RESOURCE ", 9));
|
|
CuAssertIntEquals(tc, 0, strm.api->readln(strm.handle, line, sizeof(line)));
|
|
CuAssertStrEquals(tc, "\"Mallorn\";type", line);
|
|
CuAssertIntEquals(tc, 0, strm.api->readln(strm.handle, line, sizeof(line)));
|
|
CuAssertStrEquals(tc, "3;number", line);
|
|
|
|
mstream_done(&strm);
|
|
test_cleanup();
|
|
}
|
|
|
|
static int cr_get_int(stream *strm, const char *match, int def)
|
|
{
|
|
char line[1024];
|
|
size_t len = strlen(match);
|
|
|
|
strm->api->rewind(strm->handle);
|
|
while (strm->api->readln(strm->handle, line, sizeof(line))==0) {
|
|
const char * pos = strstr(line, match);
|
|
if (pos && pos[len]=='\0') {
|
|
return atoi(line);
|
|
}
|
|
}
|
|
return def;
|
|
}
|
|
|
|
static void test_cr_factionstealth(CuTest *tc) {
|
|
stream strm;
|
|
faction *f1, *f2;
|
|
region *r;
|
|
unit *u;
|
|
ally *al;
|
|
|
|
test_setup();
|
|
f1 = test_create_faction(0);
|
|
f2 = test_create_faction(0);
|
|
r = test_create_region(0, 0, 0);
|
|
u = test_create_unit(f1, r);
|
|
|
|
/* report to ourselves */
|
|
mstream_init(&strm);
|
|
cr_output_unit(&strm, u->region, f1, u, seen_unit);
|
|
CuAssertIntEquals(tc, f1->no, cr_get_int(&strm, ";Partei", -1));
|
|
CuAssertIntEquals(tc, -1, cr_get_int(&strm, ";Anderepartei", -1));
|
|
CuAssertIntEquals(tc, -1, cr_get_int(&strm, ";Verraeter", -1));
|
|
CuAssertIntEquals(tc, -1, cr_get_int(&strm, ";Parteitarnung", -1));
|
|
mstream_done(&strm);
|
|
|
|
/* ... also when we are anonymous */
|
|
u->flags |= UFL_ANON_FACTION;
|
|
mstream_init(&strm);
|
|
cr_output_unit(&strm, u->region, f1, u, seen_unit);
|
|
CuAssertIntEquals(tc, f1->no, cr_get_int(&strm, ";Partei", -1));
|
|
CuAssertIntEquals(tc, -1, cr_get_int(&strm, ";Anderepartei", -1));
|
|
CuAssertIntEquals(tc, -1, cr_get_int(&strm, ";Verraeter", -1));
|
|
CuAssertIntEquals(tc, 1, cr_get_int(&strm, ";Parteitarnung", -1));
|
|
u->flags &= ~UFL_ANON_FACTION;
|
|
mstream_done(&strm);
|
|
|
|
/* we see that our unit is cloaked */
|
|
set_factionstealth(u, f2);
|
|
CuAssertPtrNotNull(tc, u->attribs);
|
|
mstream_init(&strm);
|
|
cr_output_unit(&strm, u->region, f1, u, seen_unit);
|
|
CuAssertIntEquals(tc, f1->no, cr_get_int(&strm, ";Partei", -1));
|
|
CuAssertIntEquals(tc, f2->no, cr_get_int(&strm, ";Anderepartei", -1));
|
|
CuAssertIntEquals(tc, -1, cr_get_int(&strm, ";Verraeter", -1));
|
|
CuAssertIntEquals(tc, -1, cr_get_int(&strm, ";Parteitarnung", -1));
|
|
mstream_done(&strm);
|
|
|
|
/* ... also when we are anonymous */
|
|
u->flags |= UFL_ANON_FACTION;
|
|
mstream_init(&strm);
|
|
cr_output_unit(&strm, u->region, f1, u, seen_unit);
|
|
CuAssertIntEquals(tc, f1->no, cr_get_int(&strm, ";Partei", -1));
|
|
CuAssertIntEquals(tc, f2->no, cr_get_int(&strm, ";Anderepartei", -1));
|
|
CuAssertIntEquals(tc, -1, cr_get_int(&strm, ";Verraeter", -1));
|
|
CuAssertIntEquals(tc, 1, cr_get_int(&strm, ";Parteitarnung", -1));
|
|
u->flags &= ~UFL_ANON_FACTION;
|
|
mstream_done(&strm);
|
|
|
|
/* we can tell that someone is presenting as us */
|
|
mstream_init(&strm);
|
|
cr_output_unit(&strm, u->region, f2, u, seen_unit);
|
|
CuAssertIntEquals(tc, f2->no, cr_get_int(&strm, ";Partei", -1));
|
|
CuAssertIntEquals(tc, -1, cr_get_int(&strm, ";Anderepartei", -1));
|
|
CuAssertIntEquals(tc, 1, cr_get_int(&strm, ";Verraeter", -1));
|
|
CuAssertIntEquals(tc, -1, cr_get_int(&strm, ";Parteitarnung", -1));
|
|
mstream_done(&strm);
|
|
|
|
/* ... but not if they are anonymous */
|
|
u->flags |= UFL_ANON_FACTION;
|
|
mstream_init(&strm);
|
|
cr_output_unit(&strm, u->region, f2, u, seen_unit);
|
|
CuAssertIntEquals(tc, -1, cr_get_int(&strm, ";Partei", -1));
|
|
CuAssertIntEquals(tc, -1, cr_get_int(&strm, ";Anderepartei", -1));
|
|
CuAssertIntEquals(tc, -1, cr_get_int(&strm, ";Verraeter", -1));
|
|
CuAssertIntEquals(tc, 1, cr_get_int(&strm, ";Parteitarnung", -1));
|
|
u->flags &= ~UFL_ANON_FACTION;
|
|
mstream_done(&strm);
|
|
|
|
/* we see the same thing as them when we are an ally */
|
|
al = ally_add(&f1->allies, f2);
|
|
al->status = HELP_FSTEALTH;
|
|
mstream_init(&strm);
|
|
cr_output_unit(&strm, u->region, f2, u, seen_unit);
|
|
CuAssertIntEquals(tc, f1->no, cr_get_int(&strm, ";Partei", -1));
|
|
CuAssertIntEquals(tc, f2->no, cr_get_int(&strm, ";Anderepartei", -1));
|
|
CuAssertIntEquals(tc, -1, cr_get_int(&strm, ";Verraeter", -1));
|
|
CuAssertIntEquals(tc, -1, cr_get_int(&strm, ";Parteitarnung", -1));
|
|
mstream_done(&strm);
|
|
|
|
/* ... also when they are anonymous */
|
|
u->flags |= UFL_ANON_FACTION;
|
|
mstream_init(&strm);
|
|
cr_output_unit(&strm, u->region, f2, u, seen_unit);
|
|
CuAssertIntEquals(tc, f1->no, cr_get_int(&strm, ";Partei", -1));
|
|
CuAssertIntEquals(tc, f2->no, cr_get_int(&strm, ";Anderepartei", -1));
|
|
CuAssertIntEquals(tc, -1, cr_get_int(&strm, ";Verraeter", -1));
|
|
CuAssertIntEquals(tc, 1, cr_get_int(&strm, ";Parteitarnung", -1));
|
|
u->flags &= ~UFL_ANON_FACTION;
|
|
mstream_done(&strm);
|
|
|
|
test_cleanup();
|
|
}
|
|
|
|
CuSuite *get_creport_suite(void)
|
|
{
|
|
CuSuite *suite = CuSuiteNew();
|
|
SUITE_ADD_TEST(suite, test_cr_unit);
|
|
SUITE_ADD_TEST(suite, test_cr_resources);
|
|
SUITE_ADD_TEST(suite, test_cr_mallorn);
|
|
SUITE_ADD_TEST(suite, test_cr_factionstealth);
|
|
return suite;
|
|
}
|