additional testing.

This commit is contained in:
Enno Rehling 2014-10-18 14:16:26 +02:00
parent a86c2d88ab
commit 74a6bd72c2
7 changed files with 345 additions and 298 deletions

View file

@ -113,8 +113,6 @@ char *rns(FILE * f, char *c, size_t size)
return c; return c;
} }
extern unsigned int __at_hashkey(const char *s);
static unit *unitorders(FILE * F, int enc, struct faction *f) static unit *unitorders(FILE * F, int enc, struct faction *f)
{ {

View file

@ -30,6 +30,7 @@ int RunAllTests(void)
ADD_TESTS(suite, race); ADD_TESTS(suite, race);
/* util */ /* util */
ADD_TESTS(suite, config); ADD_TESTS(suite, config);
ADD_TESTS(suite, attrib);
ADD_TESTS(suite, base36); ADD_TESTS(suite, base36);
ADD_TESTS(suite, bsdstring); ADD_TESTS(suite, bsdstring);
ADD_TESTS(suite, functions); ADD_TESTS(suite, functions);

View file

@ -1,25 +1,28 @@
#ifndef ERESSEA_TESTS_H #ifndef ERESSEA_TESTS_H
#define ERESSEA_TESTS_H #define ERESSEA_TESTS_H
#include <stdlib.h>
#ifdef __cplusplus #ifdef __cplusplus
extern "C" { extern "C" {
#endif #endif
void test_cleanup(void); void test_cleanup(void);
struct terrain_type * test_create_terrain(const char * name, unsigned int flags); struct terrain_type * test_create_terrain(const char * name, unsigned int flags);
struct race *test_create_race(const char *name); struct race *test_create_race(const char *name);
struct region *test_create_region(int x, int y, struct region *test_create_region(int x, int y,
const struct terrain_type *terrain); const struct terrain_type *terrain);
struct faction *test_create_faction(const struct race *rc); struct faction *test_create_faction(const struct race *rc);
struct unit *test_create_unit(struct faction *f, struct region *r); struct unit *test_create_unit(struct faction *f, struct region *r);
void test_create_world(void); void test_create_world(void);
struct building * test_create_building(struct region * r, const struct building_type * btype); struct building * test_create_building(struct region * r, const struct building_type * btype);
struct ship * test_create_ship(struct region * r, const struct ship_type * stype); struct ship * test_create_ship(struct region * r, const struct ship_type * stype);
struct item_type * test_create_itemtype(const char * name); struct item_type * test_create_itemtype(const char * name);
struct ship_type *test_create_shiptype(const char * name); struct ship_type *test_create_shiptype(const char * name);
struct building_type *test_create_buildingtype(const char *name); struct building_type *test_create_buildingtype(const char *name);
int RunAllTests(void); int RunAllTests(void);
#ifdef __cplusplus #ifdef __cplusplus
} }

View file

@ -2,6 +2,7 @@ project(util C)
SET(_TEST_FILES SET(_TEST_FILES
base36.test.c base36.test.c
attrib.test.c
strings.test.c strings.test.c
bsdstring.test.c bsdstring.test.c
functions.test.c functions.test.c

View file

@ -1,7 +1,7 @@
/* /*
Copyright (c) 1998-2010, Enno Rehling <enno@eressea.de> Copyright (c) 1998-2010, Enno Rehling <enno@eressea.de>
Katja Zedel <katze@felidae.kn-bremen.de Katja Zedel <katze@felidae.kn-bremen.de
Christian Schlittchen <corwin@amber.kn-bremen.de> Christian Schlittchen <corwin@amber.kn-bremen.de>
Permission to use, copy, modify, and/or distribute this software for any Permission to use, copy, modify, and/or distribute this software for any
purpose with or without fee is hereby granted, provided that the above purpose with or without fee is hereby granted, provided that the above
@ -29,322 +29,329 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
#include <stdlib.h> #include <stdlib.h>
#define MAXATHASH 61 #define MAXATHASH 61
attrib_type *at_hash[MAXATHASH]; static attrib_type *at_hash[MAXATHASH];
static unsigned int __at_hashkey(const char *s) static unsigned int __at_hashkey(const char *s)
{ {
int key = 0; int key = 0;
size_t i = strlen(s); size_t i = strlen(s);
while (i > 0) { while (i > 0) {
key = (s[--i] + key * 37); key = (s[--i] + key * 37);
} }
return key & 0x7fffffff; return key & 0x7fffffff;
} }
void at_register(attrib_type * at) void at_register(attrib_type * at)
{ {
attrib_type *find; attrib_type *find;
if (at->read == NULL) { if (at->read == NULL) {
log_warning("registering non-persistent attribute %s.\n", at->name); log_warning("registering non-persistent attribute %s.\n", at->name);
} }
at->hashkey = __at_hashkey(at->name); at->hashkey = __at_hashkey(at->name);
find = at_hash[at->hashkey % MAXATHASH]; find = at_hash[at->hashkey % MAXATHASH];
while (find && at->hashkey != find->hashkey) while (find && at->hashkey != find->hashkey) {
find = find->nexthash; find = find->nexthash;
if (find && find == at) { }
log_warning("attribute '%s' was registered more than once\n", at->name); if (find && find == at) {
return; log_warning("attribute '%s' was registered more than once\n", at->name);
} else { return;
assert(!find || !"hashkey is already in use"); }
} else {
at->nexthash = at_hash[at->hashkey % MAXATHASH]; assert(!find || !"hashkey is already in use");
at_hash[at->hashkey % MAXATHASH] = at; }
at->nexthash = at_hash[at->hashkey % MAXATHASH];
at_hash[at->hashkey % MAXATHASH] = at;
} }
static attrib_type *at_find(unsigned int hk) static attrib_type *at_find(unsigned int hk)
{ {
const char *translate[3][2] = { const char *translate[3][2] = {
{"zielregion", "targetregion"}, /* remapping: from 'zielregion, heute targetregion */ { "zielregion", "targetregion" }, /* remapping: from 'zielregion, heute targetregion */
{"verzaubert", "curse"}, /* remapping: früher verzaubert, jetzt curse */ { "verzaubert", "curse" }, /* remapping: früher verzaubert, jetzt curse */
{NULL, NULL} { NULL, NULL }
}; };
attrib_type *find = at_hash[hk % MAXATHASH]; attrib_type *find = at_hash[hk % MAXATHASH];
while (find && hk != find->hashkey) while (find && hk != find->hashkey)
find = find->nexthash; find = find->nexthash;
if (!find) { if (!find) {
int i = 0; int i = 0;
while (translate[i][0]) { while (translate[i][0]) {
if (__at_hashkey(translate[i][0]) == hk) if (__at_hashkey(translate[i][0]) == hk)
return at_find(__at_hashkey(translate[i][1])); return at_find(__at_hashkey(translate[i][1]));
++i; ++i;
}
} }
} return find;
return find;
} }
attrib *a_select(attrib * a, const void *data, attrib *a_select(attrib * a, const void *data,
bool(*compare) (const attrib *, const void *)) bool(*compare) (const attrib *, const void *))
{ {
while (a && !compare(a, data)) while (a && !compare(a, data))
a = a->next; a = a->next;
return a; return a;
} }
attrib *a_find(attrib * a, const attrib_type * at) attrib *a_find(attrib * a, const attrib_type * at)
{ {
while (a && a->type != at) while (a && a->type != at)
a = a->nexttype; a = a->nexttype;
return a; return a;
} }
const attrib *a_findc(const attrib * a, const attrib_type * at) const attrib *a_findc(const attrib * a, const attrib_type * at)
{ {
while (a && a->type != at) while (a && a->type != at)
a = a->nexttype; a = a->nexttype;
return a; return a;
} }
static attrib *a_insert(attrib * head, attrib * a) static attrib *a_insert(attrib * head, attrib * a)
{ {
attrib **pa = &head->next; attrib **pa = &head->next;
assert(!(a->type->flags & ATF_UNIQUE)); assert(!(a->type->flags & ATF_UNIQUE));
assert(head && head->type == a->type); assert(head && head->type == a->type);
while (*pa && (*pa)->type == a->type) { while (*pa && (*pa)->type == a->type) {
pa = &(*pa)->next; pa = &(*pa)->next;
} }
a->next = *pa; a->next = *pa;
return *pa = a; return *pa = a;
} }
attrib *a_add(attrib ** pa, attrib * a) attrib *a_add(attrib ** pa, attrib * a)
{ {
attrib *first = *pa; attrib *first = *pa;
assert(a->next == NULL && a->nexttype == NULL); assert(a->next == NULL && a->nexttype == NULL);
if (first == NULL) if (first == NULL)
return *pa = a; return *pa = a;
if (first->type == a->type) { if (first->type == a->type) {
return a_insert(first, a); return a_insert(first, a);
}
for (;;) {
attrib *next = first->nexttype;
if (next == NULL) {
/* the type is not in the list, append it behind the last type */
attrib **insert = &first->next;
first->nexttype = a;
while (*insert)
insert = &(*insert)->next;
*insert = a;
break;
} }
if (next->type == a->type) { for (;;) {
return a_insert(next, a); attrib *next = first->nexttype;
if (next == NULL) {
/* the type is not in the list, append it behind the last type */
attrib **insert = &first->next;
first->nexttype = a;
while (*insert)
insert = &(*insert)->next;
*insert = a;
break;
}
if (next->type == a->type) {
return a_insert(next, a);
}
first = next;
} }
first = next; return a;
}
return a;
} }
void a_free(attrib * a) void a_free(attrib * a)
{ {
const attrib_type *at = a->type; const attrib_type *at = a->type;
if (at->finalize) if (at->finalize)
at->finalize(a); at->finalize(a);
free(a); free(a);
} }
static int a_unlink(attrib ** pa, attrib * a) static int a_unlink(attrib ** pa, attrib * a)
{ {
attrib **pnexttype = pa; attrib **pnexttype = pa;
attrib **pnext = NULL; attrib **pnext = NULL;
assert(a != NULL); assert(a != NULL);
while (*pnexttype) { while (*pnexttype) {
attrib *next = *pnexttype; attrib *next = *pnexttype;
if (next->type == a->type) if (next->type == a->type)
break; break;
pnexttype = &next->nexttype; pnexttype = &next->nexttype;
pnext = &next->next; pnext = &next->next;
}
if (*pnexttype && (*pnexttype)->type == a->type) {
if (*pnexttype == a) {
*pnexttype = a->next;
if (a->next != a->nexttype) {
a->next->nexttype = a->nexttype;
}
if (pnext == NULL)
return 1;
while (*pnext && (*pnext)->type != a->type)
pnext = &(*pnext)->next;
} else {
pnext = &(*pnexttype)->next;
} }
while (*pnext && (*pnext)->type == a->type) { if (*pnexttype && (*pnexttype)->type == a->type) {
if (*pnext == a) { if (*pnexttype == a) {
*pnext = a->next; *pnexttype = a->next;
return 1; if (a->next != a->nexttype) {
} a->next->nexttype = a->nexttype;
pnext = &(*pnext)->next; }
if (pnext == NULL)
return 1;
while (*pnext && (*pnext)->type != a->type)
pnext = &(*pnext)->next;
}
else {
pnext = &(*pnexttype)->next;
}
while (*pnext && (*pnext)->type == a->type) {
if (*pnext == a) {
*pnext = a->next;
return 1;
}
pnext = &(*pnext)->next;
}
} }
} return 0;
return 0;
} }
int a_remove(attrib ** pa, attrib * a) int a_remove(attrib ** pa, attrib * a)
{ {
int ok; int ok;
assert(a != NULL); assert(a != NULL);
ok = a_unlink(pa, a); ok = a_unlink(pa, a);
if (ok) if (ok)
a_free(a); a_free(a);
return ok; return ok;
} }
void a_removeall(attrib ** pa, const attrib_type * at) void a_removeall(attrib ** pa, const attrib_type * at)
{ {
attrib **pnexttype = pa; attrib **pnexttype = pa;
attrib **pnext = NULL; attrib **pnext = NULL;
while (*pnexttype) { while (*pnexttype) {
attrib *next = *pnexttype; attrib *next = *pnexttype;
if (next->type == at) if (next->type == at)
break; break;
pnexttype = &next->nexttype; pnexttype = &next->nexttype;
pnext = &next->next; pnext = &next->next;
} }
if (*pnexttype && (*pnexttype)->type == at) { if (*pnexttype && (*pnexttype)->type == at) {
attrib *a = *pnexttype; attrib *a = *pnexttype;
*pnexttype = a->nexttype; *pnexttype = a->nexttype;
if (pnext) { if (pnext) {
while (*pnext && (*pnext)->type != at) while (*pnext && (*pnext)->type != at)
pnext = &(*pnext)->next; pnext = &(*pnext)->next;
*pnext = a->nexttype; *pnext = a->nexttype;
}
while (a && a->type == at) {
attrib *ra = a;
a = a->next;
a_free(ra);
}
} }
while (a && a->type == at) {
attrib *ra = a;
a = a->next;
a_free(ra);
}
}
} }
attrib *a_new(const attrib_type * at) attrib *a_new(const attrib_type * at)
{ {
attrib *a = (attrib *) calloc(1, sizeof(attrib)); attrib *a = (attrib *)calloc(1, sizeof(attrib));
assert(at != NULL); assert(at != NULL);
a->type = at; a->type = at;
if (at->initialize) if (at->initialize)
at->initialize(a); at->initialize(a);
return a; return a;
} }
int a_age(attrib ** p) int a_age(attrib ** p)
{ {
attrib **ap = p; attrib **ap = p;
/* Attribute altern, und die Entfernung (age()==0) eines Attributs /* Attribute altern, und die Entfernung (age()==0) eines Attributs
* hat Einfluß auf den Besitzer */ * hat Einfluß auf den Besitzer */
while (*ap) { while (*ap) {
attrib *a = *ap; attrib *a = *ap;
if (a->type->age) { if (a->type->age) {
int result = a->type->age(a); int result = a->type->age(a);
assert(result >= 0 || !"age() returned a negative value"); assert(result >= 0 || !"age() returned a negative value");
if (result == 0) { if (result == 0) {
a_remove(p, a); a_remove(p, a);
continue; continue;
} }
}
ap = &a->next;
} }
ap = &a->next; return (*p != NULL);
}
return (*p != NULL);
} }
static critbit_tree cb_deprecated = { 0 }; static critbit_tree cb_deprecated = { 0 };
void at_deprecate(const char * name, int (*reader)(attrib *, void *, struct storage *)) void at_deprecate(const char * name, int(*reader)(attrib *, void *, struct storage *))
{ {
char buffer[64]; char buffer[64];
size_t len = strlen(name); size_t len = strlen(name);
len = cb_new_kv(name, len, &reader, sizeof(reader), buffer); len = cb_new_kv(name, len, &reader, sizeof(reader), buffer);
cb_insert(&cb_deprecated, buffer, len); cb_insert(&cb_deprecated, buffer, len);
} }
int a_read(struct storage *store, attrib ** attribs, void *owner) int a_read(struct storage *store, attrib ** attribs, void *owner)
{ {
int key, retval = AT_READ_OK; int key, retval = AT_READ_OK;
char zText[128]; char zText[128];
zText[0] = 0;
key = -1;
READ_TOK(store, zText, sizeof(zText));
if (strcmp(zText, "end") == 0)
return retval;
else
key = __at_hashkey(zText);
while (key != -1) {
int (*reader)(attrib *, void *, struct storage *) = 0;
attrib_type *at = at_find(key);
attrib * na = 0;
if (at) {
reader = at->read;
na = a_new(at);
} else {
const void * kv;
cb_find_prefix(&cb_deprecated, zText, strlen(zText)+1, &kv, 1, 0);
if (kv) {
cb_get_kv(kv, &reader, sizeof(reader));
} else {
fprintf(stderr, "attribute hash: %d (%s)\n", key, zText);
assert(at || !"attribute not registered");
}
}
if (reader) {
int i = reader(na, owner, store);
if (na) {
switch (i) {
case AT_READ_OK:
a_add(attribs, na);
break;
case AT_READ_FAIL:
retval = AT_READ_FAIL;
a_free(na);
break;
default:
assert(!"invalid return value");
break;
}
}
} else {
assert(!"error: no registered callback can read attribute");
}
zText[0] = 0;
key = -1;
READ_TOK(store, zText, sizeof(zText)); READ_TOK(store, zText, sizeof(zText));
if (!strcmp(zText, "end")) if (strcmp(zText, "end") == 0)
break; return retval;
key = __at_hashkey(zText); else
} key = __at_hashkey(zText);
return retval;
while (key != -1) {
int(*reader)(attrib *, void *, struct storage *) = 0;
attrib_type *at = at_find(key);
attrib * na = 0;
if (at) {
reader = at->read;
na = a_new(at);
}
else {
const void * kv;
cb_find_prefix(&cb_deprecated, zText, strlen(zText) + 1, &kv, 1, 0);
if (kv) {
cb_get_kv(kv, &reader, sizeof(reader));
}
else {
fprintf(stderr, "attribute hash: %d (%s)\n", key, zText);
assert(at || !"attribute not registered");
}
}
if (reader) {
int i = reader(na, owner, store);
if (na) {
switch (i) {
case AT_READ_OK:
a_add(attribs, na);
break;
case AT_READ_FAIL:
retval = AT_READ_FAIL;
a_free(na);
break;
default:
assert(!"invalid return value");
break;
}
}
}
else {
assert(!"error: no registered callback can read attribute");
}
READ_TOK(store, zText, sizeof(zText));
if (!strcmp(zText, "end"))
break;
key = __at_hashkey(zText);
}
return retval;
} }
void a_write(struct storage *store, const attrib * attribs, const void *owner) void a_write(struct storage *store, const attrib * attribs, const void *owner)
{ {
const attrib *na = attribs; const attrib *na = attribs;
while (na) { while (na) {
if (na->type->write) { if (na->type->write) {
assert(na->type->hashkey || !"attribute not registered"); assert(na->type->hashkey || !"attribute not registered");
WRITE_TOK(store, na->type->name); WRITE_TOK(store, na->type->name);
na->type->write(na, owner, store); na->type->write(na, owner, store);
na = na->next; na = na->next;
} else { }
na = na->nexttype; else {
na = na->nexttype;
}
} }
} WRITE_TOK(store, "end");
WRITE_TOK(store, "end");
} }

View file

@ -1,7 +1,7 @@
/* /*
Copyright (c) 1998-2010, Enno Rehling <enno@eressea.de> Copyright (c) 1998-2010, Enno Rehling <enno@eressea.de>
Katja Zedel <katze@felidae.kn-bremen.de Katja Zedel <katze@felidae.kn-bremen.de
Christian Schlittchen <corwin@amber.kn-bremen.de> Christian Schlittchen <corwin@amber.kn-bremen.de>
Permission to use, copy, modify, and/or distribute this software for any Permission to use, copy, modify, and/or distribute this software for any
purpose with or without fee is hereby granted, provided that the above purpose with or without fee is hereby granted, provided that the above
@ -18,66 +18,67 @@ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
#ifndef ATTRIB_H #ifndef ATTRIB_H
#define ATTRIB_H #define ATTRIB_H
#ifdef __cplusplus #ifdef __cplusplus
extern "C" { extern "C" {
#endif #endif
struct gamedata; struct gamedata;
struct storage; struct storage;
typedef void (*afun) (void); typedef void(*afun) (void);
typedef struct attrib { typedef struct attrib {
const struct attrib_type *type; const struct attrib_type *type;
union { union {
afun f; afun f;
void *v; void *v;
int i; int i;
float flt; float flt;
char c; char c;
short s; short s;
short sa[2]; short sa[2];
char ca[4]; char ca[4];
} data; } data;
/* internal data, do not modify: */ /* internal data, do not modify: */
struct attrib *next; /* next attribute in the list */ struct attrib *next; /* next attribute in the list */
struct attrib *nexttype; /* skip to attribute of a different type */ struct attrib *nexttype; /* skip to attribute of a different type */
} attrib; } attrib;
#define ATF_UNIQUE (1<<0) /* only one per attribute-list */ #define ATF_UNIQUE (1<<0) /* only one per attribute-list */
#define ATF_PRESERVE (1<<1) /* preserve order in list. append to back */ #define ATF_PRESERVE (1<<1) /* preserve order in list. append to back */
#define ATF_USER_DEFINED (1<<2) /* use this to make udf */ #define ATF_USER_DEFINED (1<<2) /* use this to make udf */
typedef struct attrib_type { typedef struct attrib_type {
const char *name; const char *name;
void (*initialize) (struct attrib *); void(*initialize) (struct attrib *);
void (*finalize) (struct attrib *); void(*finalize) (struct attrib *);
int (*age) (struct attrib *); int(*age) (struct attrib *);
/* age returns 0 if the attribute needs to be removed, !=0 otherwise */ /* age returns 0 if the attribute needs to be removed, !=0 otherwise */
void(*write) (const struct attrib *, const void *owner, struct storage *); void(*write) (const struct attrib *, const void *owner, struct storage *);
int(*read) (struct attrib *, void *owner, struct storage *); /* return AT_READ_OK on success, AT_READ_FAIL if attrib needs removal */ int(*read) (struct attrib *, void *owner, struct storage *); /* return AT_READ_OK on success, AT_READ_FAIL if attrib needs removal */
unsigned int flags; unsigned int flags;
/* ---- internal data, do not modify: ---- */ /* ---- internal data, do not modify: ---- */
struct attrib_type *nexthash; struct attrib_type *nexthash;
unsigned int hashkey; unsigned int hashkey;
} attrib_type; } attrib_type;
extern void at_register(attrib_type * at); extern void at_register(attrib_type * at);
extern void at_deprecate(const char * name, int (*reader)(attrib *, void *, struct storage *)); extern void at_deprecate(const char * name, int(*reader)(attrib *, void *, struct storage *));
extern attrib *a_select(attrib * a, const void *data, extern attrib *a_select(attrib * a, const void *data,
bool(*compare) (const attrib *, const void *)); bool(*compare) (const attrib *, const void *));
extern attrib *a_find(attrib * a, const attrib_type * at); extern attrib *a_find(attrib * a, const attrib_type * at);
extern const attrib *a_findc(const attrib * a, const attrib_type * at); extern const attrib *a_findc(const attrib * a, const attrib_type * at);
extern attrib *a_add(attrib ** pa, attrib * at); extern attrib *a_add(attrib ** pa, attrib * at);
extern int a_remove(attrib ** pa, attrib * at); extern int a_remove(attrib ** pa, attrib * at);
extern void a_removeall(attrib ** a, const attrib_type * at); extern void a_removeall(attrib ** a, const attrib_type * at);
extern attrib *a_new(const attrib_type * at); extern attrib *a_new(const attrib_type * at);
extern void a_free(attrib * a); extern void a_free(attrib * a);
extern int a_age(attrib ** attribs); extern int a_age(attrib ** attribs);
extern int a_read(struct storage *store, attrib ** attribs, void *owner); extern int a_read(struct storage *store, attrib ** attribs, void *owner);
extern void a_write(struct storage *store, const attrib * attribs, extern void a_write(struct storage *store, const attrib * attribs,
const void *owner); const void *owner);
#define DEFAULT_AGE NULL #define DEFAULT_AGE NULL
#define DEFAULT_INIT NULL #define DEFAULT_INIT NULL

36
src/util/attrib.test.c Normal file
View file

@ -0,0 +1,36 @@
#include <platform.h>
#include "attrib.h"
#include <CuTest.h>
#include <tests.h>
static void test_attrib_new(CuTest * tc)
{
attrib_type at_test = { "test" };
attrib * a;
CuAssertPtrNotNull(tc, (a = a_new(&at_test)));
CuAssertPtrEquals(tc, 0, a->next);
CuAssertPtrEquals(tc, 0, a->nexttype);
CuAssertPtrEquals(tc, (void *)a->type, (void *)&at_test);
}
static void test_attrib_add(CuTest * tc)
{
attrib_type at_test = { "test" };
attrib *a, *alist = 0;
CuAssertPtrNotNull(tc, (a = a_new(&at_test)));
CuAssertPtrEquals(tc, a, a_add(&alist, a));
CuAssertPtrEquals(tc, a, alist);
CuAssertPtrNotNull(tc, (a = a_add(&alist, a_new(&at_test))));
CuAssertPtrEquals(tc, alist->next, a);
CuAssertPtrEquals(tc, alist->nexttype, a);
}
CuSuite *get_attrib_suite(void)
{
CuSuite *suite = CuSuiteNew();
SUITE_ADD_TEST(suite, test_attrib_new);
return suite;
}