* tests/lt_dladvise.at: Commit missing file from below.

diff --git a/ChangeLog b/ChangeLog
index 0ebab8069eb3e8199bdba331036221147fecb552..783e80ab231ae55d47207c9b541269b9df872458 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -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

diff --git a/tests/lt_dladvise.at b/tests/lt_dladvise.at
new file mode 100644 (file)
index 0000000..7ee6127
--- /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 <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