mirror of
https://github.com/Gnucash/gnucash.git
synced 2025-02-25 18:55:30 -06:00
ce63311484
-- Add 'new' callback to QofObject. This allows QofObject to act as an 'object factory', creating a new instance of something, given only the type name. Plan to use this in the new SQL backend, when restoring objects from SQL tables. git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@9965 57a11ea4-9604-0410-9ed3-97b8803252fd
145 lines
3.9 KiB
C
145 lines
3.9 KiB
C
/*
|
|
* Lightly test the QofObject infrastructure.
|
|
*/
|
|
#include <glib.h>
|
|
#include <libguile.h>
|
|
|
|
#include "guid.h"
|
|
#include "gnc-module.h"
|
|
#include "gnc-engine-util.h"
|
|
#include "messages.h"
|
|
#include "qofbook.h"
|
|
#include "qofobject.h"
|
|
|
|
#include "test-stuff.h"
|
|
|
|
#define TEST_MODULE_NAME "object-test"
|
|
#define TEST_MODULE_DESC "Test Object"
|
|
|
|
static void obj_foreach (QofCollection *, QofEntityForeachCB, gpointer);
|
|
static const char * printable (gpointer obj);
|
|
static void test_printable (const char *name, gpointer obj);
|
|
static void test_foreach (QofBook *, const char *);
|
|
|
|
static QofObject bus_obj = {
|
|
interface_version: QOF_OBJECT_VERSION,
|
|
e_type: TEST_MODULE_NAME,
|
|
type_label: TEST_MODULE_DESC,
|
|
new: NULL,
|
|
book_begin: NULL,
|
|
book_end: NULL,
|
|
is_dirty: NULL,
|
|
mark_clean: NULL,
|
|
foreach: obj_foreach,
|
|
printable: printable,
|
|
};
|
|
|
|
static void
|
|
test_object (void)
|
|
{
|
|
QofBook *book = qof_book_new();
|
|
|
|
do_test ((NULL != book), "book null");
|
|
|
|
/* Test the global registration and lookup functions */
|
|
{
|
|
do_test (!qof_object_register (NULL), "register NULL");
|
|
do_test (qof_object_register (&bus_obj), "register test object");
|
|
do_test (!qof_object_register (&bus_obj), "register test object again");
|
|
do_test (qof_object_lookup (TEST_MODULE_NAME) == &bus_obj,
|
|
"lookup our installed object");
|
|
do_test (qof_object_lookup ("snm98sn snml say dyikh9y9ha") == NULL,
|
|
"lookup non-existant object object");
|
|
|
|
do_test (!safe_strcmp (qof_object_get_type_label (TEST_MODULE_NAME),
|
|
_(TEST_MODULE_DESC)),
|
|
"test description return");
|
|
}
|
|
|
|
test_foreach (book, TEST_MODULE_NAME);
|
|
test_printable (TEST_MODULE_NAME, (gpointer)1);
|
|
}
|
|
|
|
static void
|
|
obj_foreach (QofCollection *col, QofEntityForeachCB cb, gpointer u_d)
|
|
{
|
|
int *foo = u_d;
|
|
|
|
do_test (col != NULL, "foreach: NULL collection");
|
|
success ("called foreach callback");
|
|
|
|
*foo = 1;
|
|
}
|
|
|
|
static void foreachCB (QofEntity *ent, gpointer u_d)
|
|
{
|
|
do_test (FALSE, "FAIL");
|
|
}
|
|
|
|
static const char *
|
|
printable (gpointer obj)
|
|
{
|
|
do_test (obj != NULL, "printable: object is NULL");
|
|
success ("called printable callback");
|
|
return ((const char *)obj);
|
|
}
|
|
|
|
static void
|
|
test_foreach (QofBook *book, const char *name)
|
|
{
|
|
int res = 0;
|
|
|
|
qof_object_foreach (NULL, NULL, NULL, &res);
|
|
do_test (res == 0, "object: Foreach: NULL, NULL, NULL");
|
|
qof_object_foreach (NULL, NULL, foreachCB, &res);
|
|
do_test (res == 0, "object: Foreach: NULL, NULL, foreachCB");
|
|
|
|
qof_object_foreach (NULL, book, NULL, &res);
|
|
do_test (res == 0, "object: Foreach: NULL, book, NULL");
|
|
qof_object_foreach (NULL, book, foreachCB, &res);
|
|
do_test (res == 0, "object: Foreach: NULL, book, foreachCB");
|
|
|
|
qof_object_foreach (name, NULL, NULL, &res);
|
|
do_test (res == 0, "object: Foreach: name, NULL, NULL");
|
|
qof_object_foreach (name, NULL, foreachCB, &res);
|
|
do_test (res == 0, "object: Foreach: name, NULL, foreachCB");
|
|
|
|
qof_object_foreach (name, book, NULL, &res);
|
|
do_test (res != 0, "object: Foreach: name, book, NULL");
|
|
|
|
res = 0;
|
|
qof_object_foreach (name, book, foreachCB, &res);
|
|
do_test (res != 0, "object: Foreach: name, book, foreachCB");
|
|
}
|
|
|
|
static void
|
|
test_printable (const char *name, gpointer obj)
|
|
{
|
|
const char *res;
|
|
|
|
do_test (qof_object_printable (NULL, NULL) == NULL,
|
|
"object: Printable: NULL, NULL");
|
|
do_test (qof_object_printable (NULL, obj) == NULL,
|
|
"object: Printable: NULL, object");
|
|
do_test (qof_object_printable (name, NULL) == NULL,
|
|
"object: Printable: mod_name, NULL");
|
|
res = qof_object_printable (name, obj);
|
|
do_test (res != NULL, "object: Printable: mod_name, object");
|
|
}
|
|
|
|
static void
|
|
main_helper (void *closure, int argc, char **argv)
|
|
{
|
|
gnc_module_load("gnucash/engine", 0);
|
|
test_object();
|
|
print_test_results();
|
|
exit(get_rv());
|
|
}
|
|
|
|
int
|
|
main (int argc, char **argv)
|
|
{
|
|
scm_boot_guile (argc, argv, main_helper, NULL);
|
|
return 0;
|
|
}
|