5 #include <unittest-support.h>
7 #include "gnc-module.h"
10 guile_main(
void *closure,
int argc,
char ** argv)
13 gchar *msg =
"Module '../../../src/gnc-module/test/misc-mods/.libs/libgncmod_futuremodsys.so' requires newer module system\n";
14 gchar *logdomain =
"gnc.module";
15 guint loglevel = G_LOG_LEVEL_WARNING;
17 g_log_set_handler (logdomain, loglevel,
18 (GLogFunc)test_checked_handler, &check);
20 g_test_message(
" test-load-c.c: testing module load/unload from C ... ");
22 gnc_module_system_init();
24 foo = gnc_module_load(
"gnucash/foo", 0);
28 g_test_message(
" Failed to load foo\n");
32 if (!gnc_module_unload(foo))
34 g_test_message(
" Failed to unload foo\n");
37 g_test_message(
" successful.\n");
43 main(
int argc,
char ** argv)
45 scm_boot_guile(argc, argv, guile_main, NULL);