* tests/Makefile.am, tests/testsuite.at, tests/stresstest.at:

New test.  Stresses several combinations of link flags and
path specifications.  Uses several data types to test linkage
against symbols in all kinds of (e.g., ELF) sections.

diff --git a/ChangeLog b/ChangeLog
index 4d591d814f3c3e0c73bf0d6618cc204b7413758d..ee1e56e2a822757e12d7df17e52b2aa5573f9409 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2005-02-03  Ralf Wildenhues  <Ralf.Wildenhues@gmx.de>
+
+       * tests/Makefile.am, tests/testsuite.at, tests/stresstest.at:
+       New test.  Stresses several combinations of link flags and
+       path specifications.  Uses several data types to test linkage
+       against symbols in all kinds of (e.g., ELF) sections.
+
 2005-02-03  Reid Spencer  <reid@x10sys.com>,
            Ralf Wildenhues  <Ralf.Wildenhues@gmx.de>
 

diff --git a/tests/Makefile.am b/tests/Makefile.am
index c5d80d05c86af28945d82f6b6ca7bcae9bc5fe1a..f7bde8e40be5649176567bc7ca6505e662723733 100644 (file)
--- a/tests/Makefile.am
+++ b/tests/Makefile.am
@@ -25,6 +25,7 @@ TESTSUITE     = testsuite
 TESTSUITE_AT   = testsuite.at \
                  am-subdir.at \
                  functests.at \
+                 stresstest.at \
                  inherited_flags.at
 
 EXTRA_DIST     = $(TESTSUITE) $(TESTSUITE_AT) package.m4

diff --git a/tests/stresstest.at b/tests/stresstest.at
new file mode 100644 (file)
index 0000000..341535e
--- /dev/null
+++ b/tests/stresstest.at
@@ -0,0 +1,184 @@
+# Hand crafted tests for GNU Libtool.                         -*- Autotest -*-
+# Copyright 2005 Free Software Foundation, Inc.
+
+# 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, 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, write to the Free Software
+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
+# 02111-1307, USA.
+
+# Test various flag and option combinations.
+# Test linkage against objects in various sections.
+
+# Note: This test is experimental, and might be too strict for some systems.
+
+AT_BANNER([Libtool stress test.])
+
+AT_SETUP([Link option thorough search test])
+
+: ${LIBTOOL=${abs_top_builddir}/libtool}
+
+eval `$LIBTOOL --config | grep ^CC=`
+
+mkdir sub sub2 sub3 2>/dev/null
+
+AT_DATA(a.c,
+[[/* all kinds of data items */
+int v1;
+static int v2;
+int v3 = 0;
+int v4 = 1;
+const int v5 = 0;
+const int v6 = 1;
+const char* v7 = "\01foo";
+const char v8[] = "\01bar";
+int v9(void) { return 1; }
+int (*v10) (void);
+int (*v11) (void) = v9;
+int (*const v12) (void) = v9;
+
+typedef struct { int arr[1000]; } large;
+large v13;
+large v14 = { { 0 } };
+large v15 = { { 1 } };
+]])
+
+AT_DATA(b.c,
+[[int b = 42;
+int b3 = 1;
+int ab = 1;
+]])
+
+AT_DATA(main.c,
+[[int v1;
+extern int v3, v4;
+extern const int v5, v6;
+extern const char* v7;
+extern const char v8[];
+extern int v9(void);
+extern int (*v10) (void);
+extern int (*v11) (void);
+extern int (*const v12) (void);
+
+typedef struct { int arr[1000]; } large;
+extern large v13, v14, v15;
+
+int main(void)
+{
+  char s = v7[0] + v8[0];
+  return s + v1 + v3 + v4 + v5 + v6 + v9() + v11() + v12()
+          + v13.arr[0] + v14.arr[0] + v15.arr[0]
+           - 8;
+}
+]])
+
+AT_DATA(dlself.c,
+[[int v1;
+extern int v3, v4;
+extern const int v5, v6;
+extern const char* v7;
+extern const char v8[];
+extern int v9(void);
+extern int (*v10) (void);
+extern int (*v11) (void);
+extern int (*const v12) (void);
+
+typedef struct { int arr[1000]; } large;
+extern large v13, v14, v15;
+
+int w1;
+extern int w3, w4;
+extern const int w5, w6;
+extern const char* w7;
+extern const char w8[];
+extern int w9(void);
+extern int (*w10) (void);
+extern int (*w11) (void);
+extern int (*const w12) (void);
+extern large w13, w14, w15;
+
+int main(void)
+{
+  char s = v7[0] + v8[0] + w7[0] + w8[0];
+  return s + v1 + v3 + v4 + v5 + v6 + v9() + v11() + v12()
+          + v13.arr[0] + v14.arr[0] + v15.arr[0]
+          + w1 + w3 + w4 + w5 + w6 + w9() + w11() + w12()
+          + w13.arr[0] + w14.arr[0] + w15.arr[0]
+           - 16;
+}
+
+
+int w1;
+static int w2;
+int w3 = 0;
+int w4 = 1;
+const int w5 = 0;
+const int w6 = 1;
+const char* w7 = "\01foo";
+const char w8[] = "\01bar";
+int w9(void) { return 1; }
+int (*w10) (void);
+int (*w11) (void) = w9;
+int (*const w12) (void) = w9;
+large w13;
+large w14 = { { 0 } };
+large w15 = { { 1 } };
+]])
+
+AT_DATA(dlselfsyms,
+[[w1
+w3
+w4
+w5
+w6
+w7
+w8$
+^w9*
+w1*
+b.*
+]])
+
+
+AT_CHECK([$LIBTOOL --mode=compile $CC -c a.c -o sub/a.lo],[0],[ignore],[])
+AT_CHECK([$LIBTOOL --mode=compile $CC -c b.c -o sub/b.o],[0],[ignore],[])
+AT_CHECK([$LIBTOOL --mode=compile $CC -c main.c],[0],[ignore],[])
+AT_CHECK([$LIBTOOL --mode=compile $CC -c dlself.c -o sub3/dlself.lo],[0],[ignore],[])
+
+for l1 in '' '-no-undefined'
+do
+  for l2 in '' '-export-symbols-regex v.*'
+  do
+    for l3 in '' '-rpath /nonexistent'
+    do
+      linkargs="$l1 $l2 $l3"
+      for rel in '' ./ `pwd`/
+      do
+       AT_CHECK([$LIBTOOL --mode=link $CC -o "$rel"sub2/liba.la "$rel"sub/a.lo $linkargs],
+                [0],[ignore],[])
+       for st in '' '-static'
+       do
+         AT_CHECK([$LIBTOOL --mode=link $CC $st -o "$rel"main "$rel"main.lo "$rel"sub2/liba.la],
+                  [0],[ignore],[])
+         AT_CHECK([./main],[0])
+         for l10 in '' '-export-symbols dlselfsyms'
+         do
+           AT_CHECK([$LIBTOOL --mode=link $CC $st -o "$rel"sub3/dlself "$rel"sub3/dlself.lo "$rel"sub2/liba.la sub/b.o -dlopen self $l10],
+                    [0],[ignore],[])
+           AT_CHECK([./sub3/dlself],[0])
+         done
+       done
+      done
+    done
+  done
+done
+
+AT_CLEANUP

diff --git a/tests/testsuite.at b/tests/testsuite.at
index be7211dfbdd329bdf529bfe944a09bf136ff79d8..6a1874c5e8e7f4ee6ac6850d52ba9c23045c1e9f 100644 (file)
--- a/tests/testsuite.at
+++ b/tests/testsuite.at
@@ -66,3 +66,5 @@ m4_include([am-subdir.at])
 m4_include([functests.at])
 # Test that inherited_linker_flags in the .la actually gets used.
 m4_include([inherited_flags.at])
+# stress test
+m4_include([stresstest.at])