mirror of
git://git.savannah.gnu.org/libtool.git
synced 2024-11-27 06:09:57 +08:00
* tests/lt_dladvise.at: Commit missing file from below.
This commit is contained in:
Gary V. Vaughan
parent
c823c708c8
commit
710a4012a1
@ -1,3 +1,7 @@
|
||||
2007-05-09 Gary V. Vaughan <gary@gnu.org>
|
||||
|
||||
* tests/lt_dladvise.at: Commit missing file from below.
|
||||
|
||||
2007-05-08 Gary V. Vaughan <gary@gnu.org>
|
||||
|
||||
Without this patch, lt_dlopen always opens modules with symbol
|
||||
|
||||
292
tests/lt_dladvise.at
Normal file
292
tests/lt_dladvise.at
Normal file
@ -0,0 +1,292 @@
|
||||
# lt_dladvise.at -- test libltdl functionality -*- Autotest -*-
|
||||
#
|
||||
# Copyright (C) 2007 Free Software Foundation, Inc.
|
||||
# Written by Gary V. Vaughan, 2007
|
||||
#
|
||||
# This file is part of GNU Libtool.
|
||||
#
|
||||
# GNU Libtool 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.
|
||||
#
|
||||
# GNU Libtool 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 GNU Libtool; see the file COPYING. If not, a copy
|
||||
# can be downloaded from http://www.gnu.org/licenses/gpl.html,
|
||||
# or obtained by writing to the Free Software Foundation, Inc.,
|
||||
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
|
||||
####
|
||||
|
||||
# Try to keep the new interfaces of HEAD separate from those of
|
||||
# branch-1-5 to facilitate testing of older releases.
|
||||
|
||||
AT_SETUP([lt_dlopenadvise library loading])
|
||||
AT_KEYWORDS([libltdl])
|
||||
|
||||
AT_DATA([main.c],
|
||||
[[#include <ltdl.h>
|
||||
#include <stdio.h>
|
||||
|
||||
typedef int funcp (int);
|
||||
|
||||
static int errors = 0;
|
||||
|
||||
static void
|
||||
complain (const char *msg)
|
||||
{
|
||||
const char *errmsg = lt_dlerror ();
|
||||
fprintf (stderr, "%s", msg);
|
||||
if (errmsg)
|
||||
fprintf (stderr, ": %s\n", errmsg);
|
||||
else
|
||||
fprintf (stderr, ".\n");
|
||||
++errors;
|
||||
}
|
||||
|
||||
static lt_dlhandle
|
||||
moduleopen (const char *filename, lt_dladvise advise)
|
||||
{
|
||||
lt_dlhandle handle;
|
||||
|
||||
handle = lt_dlopenadvise (filename, advise);
|
||||
if (!handle)
|
||||
{
|
||||
fprintf (stderr, "can't open the module %s!\n", filename);
|
||||
complain ("error was");
|
||||
}
|
||||
|
||||
return handle;
|
||||
}
|
||||
|
||||
static int
|
||||
moduletest (lt_dlhandle handle, const char *fname, const char *vname)
|
||||
{
|
||||
funcp *f = (funcp *) lt_dlsym (handle, fname);
|
||||
int *v = (int *) lt_dlsym (handle, vname);
|
||||
|
||||
if (!f)
|
||||
{
|
||||
fprintf (stderr, "function `%s' not found\n", fname);
|
||||
++errors;
|
||||
return -1;
|
||||
}
|
||||
if (!v)
|
||||
{
|
||||
fprintf (stderr, "variable `%s' not found\n", vname);
|
||||
++errors;
|
||||
return -1;
|
||||
}
|
||||
return f (*v);
|
||||
}
|
||||
|
||||
void
|
||||
hint_ext (void)
|
||||
{
|
||||
lt_dlhandle handle;
|
||||
lt_dladvise advise;
|
||||
|
||||
if (lt_dladvise_init (&advise) || lt_dladvise_ext (&advise))
|
||||
complain ("error setting advise ext");
|
||||
|
||||
handle = moduleopen ("moddepend", advise);
|
||||
|
||||
if (handle)
|
||||
printf ("depend: %d\n", moduletest (handle, "g", "j"));
|
||||
|
||||
lt_dladvise_destroy (&advise);
|
||||
}
|
||||
|
||||
void
|
||||
hint_resident (void)
|
||||
{
|
||||
const lt_dlinfo *info;
|
||||
lt_dlhandle handle;
|
||||
lt_dladvise advise;
|
||||
|
||||
if (lt_dladvise_init (&advise) || lt_dladvise_resident (&advise))
|
||||
complain ("error setting advise resident");
|
||||
|
||||
handle = moduleopen ("modresident.la", advise);
|
||||
|
||||
if (handle)
|
||||
{
|
||||
info = lt_dlgetinfo (handle);
|
||||
if (!info->is_resident)
|
||||
complain ("error taking advise resident");
|
||||
|
||||
/* cannot close resident modules */
|
||||
if (lt_dlclose (handle) == 0)
|
||||
complain ("successfully unloaded resident module");
|
||||
|
||||
printf ("resident: %d\n", moduletest (handle, "func", "numb"));
|
||||
}
|
||||
|
||||
lt_dladvise_destroy (&advise);
|
||||
}
|
||||
|
||||
void
|
||||
hint_local (void)
|
||||
{
|
||||
const lt_dlinfo *info;
|
||||
lt_dlhandle handle;
|
||||
lt_dladvise advise;
|
||||
|
||||
if (lt_dladvise_init (&advise) || lt_dladvise_local (&advise))
|
||||
complain ("error setting advise local");
|
||||
|
||||
handle = moduleopen ("modlocal.la", advise);
|
||||
|
||||
if (handle)
|
||||
{
|
||||
info = lt_dlgetinfo (handle);
|
||||
printf ("local: %d\n", moduletest (handle, "f", "i"));
|
||||
|
||||
/* If the symlocal hint was taken, don't unload this module
|
||||
and test that our local symbolnames won't clash with modglobal. */
|
||||
if (!info->is_symlocal && lt_dlclose (handle))
|
||||
complain ("error unloading modlocal");
|
||||
}
|
||||
|
||||
lt_dladvise_destroy (&advise);
|
||||
}
|
||||
|
||||
void
|
||||
hint_global (void)
|
||||
{
|
||||
const lt_dlinfo *info;
|
||||
lt_dlhandle handle;
|
||||
lt_dladvise advise;
|
||||
|
||||
if (lt_dladvise_init (&advise) || lt_dladvise_global (&advise))
|
||||
complain ("error setting advise global");
|
||||
|
||||
handle = moduleopen ("modglobal.la", advise);
|
||||
|
||||
if (handle)
|
||||
{
|
||||
info = lt_dlgetinfo (handle);
|
||||
printf ("global: %d\n", moduletest (handle, "f", "i"));
|
||||
|
||||
/* Don't attempt to load moddepend unless modglobal was successfully
|
||||
loaded and the symglobal hint was taken. */
|
||||
if (info && info->is_symglobal)
|
||||
{
|
||||
hint_ext ();
|
||||
}
|
||||
else
|
||||
{
|
||||
/* Fake the output so the test won't fail when using a dlloader
|
||||
unable to take symglobal hints. */
|
||||
printf ("depend: 5\n");
|
||||
}
|
||||
}
|
||||
|
||||
lt_dladvise_destroy (&advise);
|
||||
}
|
||||
|
||||
int
|
||||
main (int argc, char **argv)
|
||||
{
|
||||
|
||||
LTDL_SET_PRELOADED_SYMBOLS();
|
||||
|
||||
if (lt_dlinit() != 0)
|
||||
{
|
||||
fprintf (stderr, "error during initialization: %s\n", lt_dlerror());
|
||||
return 1;
|
||||
}
|
||||
|
||||
hint_resident ();
|
||||
hint_local ();
|
||||
hint_global ();
|
||||
|
||||
if (lt_dlexit () != 0)
|
||||
complain ("error during exit");
|
||||
|
||||
return (errors != 0);
|
||||
}
|
||||
]])
|
||||
|
||||
AT_DATA([modresident.c],
|
||||
[[#ifdef __cplusplus
|
||||
extern "C" {
|
||||
#endif
|
||||
int func (int x) { return x / 3; }
|
||||
int numb = 7;
|
||||
#ifdef __cplusplus
|
||||
}
|
||||
#endif
|
||||
]])
|
||||
|
||||
AT_DATA([modlocal.c],
|
||||
[[#ifdef __cplusplus
|
||||
extern "C" {
|
||||
#endif
|
||||
int f (int x) { return (x * x) / 10; }
|
||||
int i = 6;
|
||||
#ifdef __cplusplus
|
||||
}
|
||||
#endif
|
||||
]])
|
||||
|
||||
AT_DATA([modglobal.c],
|
||||
[[#ifdef __cplusplus
|
||||
extern "C" {
|
||||
#endif
|
||||
int f (int x) { return x - 1; }
|
||||
int i = 5;
|
||||
#ifdef __cplusplus
|
||||
}
|
||||
#endif
|
||||
]])
|
||||
|
||||
AT_DATA([moddepend.c],
|
||||
[[#ifdef __cplusplus
|
||||
extern "C" {
|
||||
#endif
|
||||
extern int f (int), i;
|
||||
int g (int x) { return f (i) + x - 3; }
|
||||
int j = 4;
|
||||
#ifdef __cplusplus
|
||||
}
|
||||
#endif
|
||||
]])
|
||||
|
||||
AT_DATA([expout],
|
||||
[[resident: 2
|
||||
local: 3
|
||||
global: 4
|
||||
depend: 5
|
||||
]])
|
||||
|
||||
: ${LTDLINCL="-I$abs_top_srcdir/libltdl"}
|
||||
: ${LIBLTDL="$abs_builddir/../libltdl/libltdlc.la"}
|
||||
|
||||
CPPFLAGS="$CPPFLAGS $LTDLINCL"
|
||||
LDFLAGS="$LDFLAGS"
|
||||
|
||||
$CC $CPPFLAGS $CFLAGS -c main.c
|
||||
for file in modresident modlocal modglobal moddepend; do
|
||||
$LIBTOOL --mode=compile $CC $CPPFLAGS $CFLAGS -c $file.c
|
||||
AT_CHECK([$LIBTOOL --mode=link $CC -module $CFLAGS $LDFLAGS -o $file.la \
|
||||
$file.lo -rpath /foo -avoid-version], [], [ignore], [ignore])
|
||||
done
|
||||
|
||||
# TODO: test -dlpreopen
|
||||
for dlopen in -dlopen; do
|
||||
AT_CHECK([$LIBTOOL --mode=link $CC $CFLAGS $LDFLAGS -o main main.$OBJEXT \
|
||||
$dlopen modresident.la $dlopen modlocal.la $dlopen modglobal.la \
|
||||
$dlopen moddepend.la $LIBLTDL],
|
||||
[], [ignore], [ignore])
|
||||
LT_AT_NOINST_EXEC_CHECK([./main],
|
||||
[$dlopen modresident.la $dlopen modlocal.la $dlopen modglobal.la \
|
||||
$dlopen moddepend.la],
|
||||
[], [expout], [])
|
||||
done
|
||||
|
||||
AT_CLEANUP
|
||||
Loading…
Reference in New Issue
Block a user