From: Ralf Wildenhues Date: Fri, 4 Feb 2005 14:51:53 +0000 (+0000) Subject: * tests/Makefile.am, tests/testsuite.at, tests/stresstest.at: X-Git-Tag: release-2-1b~754 X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=aa991e9203e828f98b691470a5b53ab45793efc1;p=thirdparty%2Flibtool.git * 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 4d591d814..ee1e56e2a 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,10 @@ +2005-02-03 Ralf Wildenhues + + * 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 , Ralf Wildenhues diff --git a/tests/Makefile.am b/tests/Makefile.am index c5d80d05c..f7bde8e40 100644 --- 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 index 000000000..341535e5e --- /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 be7211dfb..6a1874c5e 100644 --- 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])