From: Gary V. Vaughan Date: Wed, 9 May 2007 08:10:19 +0000 (+0000) Subject: * tests/lt_dladvise.at: Commit missing file from below. X-Git-Tag: release-2-1b~128 X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=710a4012a13f6ad578b6cae02c6708655d260b05;p=thirdparty%2Flibtool.git * tests/lt_dladvise.at: Commit missing file from below. --- diff --git a/ChangeLog b/ChangeLog index 0ebab8069..783e80ab2 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2007-05-09 Gary V. Vaughan + + * tests/lt_dladvise.at: Commit missing file from below. + 2007-05-08 Gary V. Vaughan Without this patch, lt_dlopen always opens modules with symbol diff --git a/tests/lt_dladvise.at b/tests/lt_dladvise.at new file mode 100644 index 000000000..7ee612730 --- /dev/null +++ b/tests/lt_dladvise.at @@ -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 +#include + +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