mirror of
https://github.com/Gnucash/gnucash.git
synced 2025-02-25 18:55:30 -06:00
043c6367a5
- move test modules into a subdirectory on Windows as well - move the futuremod module into its own subdirectory to avoid its load warnings each time gnc_module_init is called That also tends to happen when building guile modules. - remove the log handlers filtering out the futuremodsys warnings They didn't match the actual warning signature anyway and they're no longer emitted during testing
98 lines
3.2 KiB
C
98 lines
3.2 KiB
C
/*********************************************************************
|
|
* test-dynload.c
|
|
* test the ability to dlopen the gnc_module library and initialize
|
|
* it via dlsym
|
|
*********************************************************************/
|
|
/********************************************************************\
|
|
* This program is free software; you can redistribute it and/or *
|
|
* modify it under the terms of the GNU General Public License as *
|
|
* published by the Free Software Foundation; either version 2 of *
|
|
* the License, or (at your option) any later version. *
|
|
* *
|
|
* This program is distributed in the hope that it will be useful, *
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of *
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
|
|
* GNU General Public License for more details. *
|
|
* *
|
|
* You should have received a copy of the GNU General Public License*
|
|
* along with this program; if not, contact: *
|
|
* *
|
|
* Free Software Foundation Voice: +1-617-542-5942 *
|
|
* 51 Franklin Street, Fifth Floor Fax: +1-617-542-2652 *
|
|
* Boston, MA 02110-1301, USA gnu@gnu.org *
|
|
* *
|
|
\********************************************************************/
|
|
|
|
|
|
#include <config.h>
|
|
#include <stdio.h>
|
|
#include <gmodule.h>
|
|
#include <unittest-support.h>
|
|
|
|
#include "gnc-module.h"
|
|
|
|
int
|
|
main(int argc, char ** argv)
|
|
{
|
|
GModule *gmodule;
|
|
gchar *modpath;
|
|
const char *libdir = g_getenv("LIBDIR");
|
|
|
|
if (libdir == NULL)
|
|
{
|
|
libdir = "../.libs";
|
|
}
|
|
|
|
g_test_message(" test-dynload.c: testing dynamic linking of libgnc-module ...");
|
|
#ifdef G_OS_WIN32
|
|
/* MinGW builds libgnc-module-0.dll */
|
|
if (libdir == NULL)
|
|
{
|
|
modpath = g_module_build_path ("../.libs", "gnc-module-0");
|
|
}
|
|
else
|
|
{
|
|
modpath = g_module_build_path (libdir, "gnc-module");
|
|
}
|
|
#elif defined(GNC_PLATFORM_OSX)
|
|
/* We build libgnc-module as a shared library for testing, and on OSX
|
|
* that means that g_module_build_path (), which uses ".so", doesn't
|
|
* build the right path name.
|
|
*/
|
|
if (libdir == NULL)
|
|
{
|
|
modpath = g_build_filename ("..", ".libs", "libgnc-module.dylib", NULL);
|
|
}
|
|
else
|
|
{
|
|
modpath = g_build_filename (libdir, "libgnc-module.dylib", NULL);
|
|
}
|
|
#else /* Regular Unix */
|
|
modpath = g_module_build_path (libdir, "gnc-module");
|
|
#endif
|
|
gmodule = g_module_open(modpath, 0);
|
|
|
|
if (gmodule)
|
|
{
|
|
gpointer ptr;
|
|
if (g_module_symbol(gmodule, "gnc_module_system_init", &ptr))
|
|
{
|
|
void (* fn)(void) = ptr;
|
|
fn();
|
|
printf(" OK\n");
|
|
exit(0);
|
|
}
|
|
else
|
|
{
|
|
printf(" failed to find gnc_module_system_init\n");
|
|
exit(-1);
|
|
}
|
|
}
|
|
else
|
|
{
|
|
printf(" failed to open library.\n");
|
|
printf("%s\n", g_module_error());
|
|
exit(-1);
|
|
}
|
|
}
|