1 | #! /bin/sh
|
---|
2 |
|
---|
3 | # (C) 1998, 2000, 2002, 2003 Free Software Foundation
|
---|
4 | # Originally by Alexandre Oliva <oliva@dcc.unicamp.br>
|
---|
5 |
|
---|
6 | # This script is Free Software, and it can be copied, distributed and
|
---|
7 | # modified as defined in the GNU General Public License. A copy of
|
---|
8 | # its license can be downloaded from http://www.gnu.org/copyleft/gpl.html
|
---|
9 |
|
---|
10 | # This scripts assumes it lives in the contrib directory of the GCC
|
---|
11 | # source tree, so it will find the testsuite tree from its location.
|
---|
12 | # If you move it elsewhere, or want to use another testsuite tree, you
|
---|
13 | # can override the defaults with --srcdir=/some/dir/GCC or
|
---|
14 | # --testsuite=/some/dir/GCC/gcc/testsuite. If you specify
|
---|
15 | # --testsuite, --srcdir will be ignored; otherwise, `/gcc/testsuite'
|
---|
16 | # will be appended to the srcdir.
|
---|
17 |
|
---|
18 | # You may specify where the binaries to be tested should be picked up
|
---|
19 | # from. If you specify --prefix=/some/dir, gcc, g++ and g77 will be
|
---|
20 | # looked for at /some/dir/bin. Each one may be overridden by
|
---|
21 | # specifying --with-gcc=/pathname/to/gcc, --with-g++=/pathname/to/g++
|
---|
22 | # and --with-g77=/pathname/to/g77. If you specify --without-gcc,
|
---|
23 | # --without-g++ or --without-g77, the test for the specified program
|
---|
24 | # will be skipped. By default, gcc, g++ and g77 will be searched in
|
---|
25 | # the PATH.
|
---|
26 |
|
---|
27 | # An additional argument may specify --tmpdir=/some/dir; by default,
|
---|
28 | # temporaries will be stored in the current directory, where the log
|
---|
29 | # files will be stored.
|
---|
30 |
|
---|
31 | # The script will interpret arguments until it finds one it does not
|
---|
32 | # understand. The remaining ones will be passed to `runtest'. A
|
---|
33 | # double-dash can be used to explicitly separate the arguments to
|
---|
34 | # `test_installed' from the ones to `runtest'.
|
---|
35 |
|
---|
36 | # This script should be run in an empty directory; it will refuse to
|
---|
37 | # run if it finds a file named site.exp in the current directory.
|
---|
38 |
|
---|
39 |
|
---|
40 | if test -f site.exp; then
|
---|
41 | echo site.exp already exists >&2
|
---|
42 | exit 1
|
---|
43 | fi
|
---|
44 |
|
---|
45 | while true; do
|
---|
46 | case "$1" in
|
---|
47 | --with-testsuite=*) testsuite=`echo "$1" | sed 's/[^=]*=//'`; shift;;
|
---|
48 | --srcdir=*) srcdir=`echo "$1" | sed 's/[^=]*=//'`; shift;;
|
---|
49 |
|
---|
50 | --prefix=*) prefix=`echo "$1" | sed 's/[^=]*=//'`; shift;;
|
---|
51 | --with-gcc=*) GCC_UNDER_TEST=`echo "$1" | sed 's/[^=]*=//'`; shift;;
|
---|
52 | --with-g++=*) GXX_UNDER_TEST=`echo "$1" | sed 's/[^=]*=//'`; shift;;
|
---|
53 | --with-g77=*) G77_UNDER_TEST=`echo "$1" | sed 's/[^=]*=//'`; shift;;
|
---|
54 | --without-gcc) GCC_UNDER_TEST=no; shift;;
|
---|
55 | --without-g++) GXX_UNDER_TEST=no; shift;;
|
---|
56 | --without-g77) G77_UNDER_TEST=no; shift;;
|
---|
57 | --without-objc) OBJC_UNDER_TEST=no; shift;;
|
---|
58 |
|
---|
59 | --tmpdir=*) tmpdir=`echo "$1" | sed 's/[^=]*=//'`; shift;;
|
---|
60 |
|
---|
61 | --help) cat <<\EOF
|
---|
62 | Runs the testsuite for an installed version of gcc/g++/g77/objc
|
---|
63 | Copyright (C) 1998, 2000, 2002, 2003 Free Software Foundation
|
---|
64 | by Alexandre Oliva <oliva@dcc.unicamp.br>
|
---|
65 |
|
---|
66 | Supported arguments:
|
---|
67 |
|
---|
68 | --help prints this page
|
---|
69 |
|
---|
70 | --with-testsuite=/some/dir/gcc/testsuite specify the testsuite directory
|
---|
71 | --srcdir=/some/dir same as --with-testsuite=/some/dir/gcc/testsuite
|
---|
72 | [deduced from shell-script pathname]
|
---|
73 |
|
---|
74 | --prefix=/some/dir use gcc, g++ and g77 from /some/dir/bin [PATH]
|
---|
75 | --with-gcc=/some/dir/bin/gcc use specified gcc program [gcc]
|
---|
76 | --with-g++=/some/dir/bin/g++ use specified g++ program [g++]
|
---|
77 | --with-g77=/some/dir/bin/g77 use specified g77 program [g77]
|
---|
78 | --without-gcc do not run gcc testsuite
|
---|
79 | --without-g++ do not run g++ testsuite
|
---|
80 | --without-g77 do not run g77 testsuite
|
---|
81 | --without-objc do not run objc testsuite
|
---|
82 |
|
---|
83 | --tmpdir=/some/dir create temporaries and leave failed programs
|
---|
84 | at specified directory [.]
|
---|
85 |
|
---|
86 | -- end of argument list; following arguments are passed to runtest
|
---|
87 | EOF
|
---|
88 | exit
|
---|
89 | ;;
|
---|
90 |
|
---|
91 | --) shift; break;;
|
---|
92 | *) break;;
|
---|
93 | esac
|
---|
94 | done
|
---|
95 |
|
---|
96 | if test x"${testsuite+set}" != x"set" && test x"${srcdir+set}" != x"set"; then
|
---|
97 | file=$0
|
---|
98 | while [ -h $file ]; do
|
---|
99 | file=`ls -l $file | sed s/'.* -> '//`
|
---|
100 | done
|
---|
101 | srcdir=`CDPATH=. && cd \`echo "$file" | sed 's,/*[^/]*$,,;s,^$,.,'\`/.. >/dev/null && ${PWDCMD-pwd}`
|
---|
102 | fi
|
---|
103 |
|
---|
104 | cat >site.exp <<EOF
|
---|
105 | set rootme "."
|
---|
106 | set tmpdir "${tmpdir-`${PWDCMD-pwd}`}"
|
---|
107 | set srcdir "${testsuite-${srcdir}/gcc/testsuite}"
|
---|
108 | set CFLAGS ""
|
---|
109 | set CXXFLAGS ""
|
---|
110 | set GCC_UNDER_TEST "${GCC_UNDER_TEST-${prefix}${prefix+/bin/}gcc}"
|
---|
111 | set GXX_UNDER_TEST "${GXX_UNDER_TEST-${prefix}${prefix+/bin/}g++}"
|
---|
112 | set G77_UNDER_TEST "${G77_UNDER_TEST-${prefix}${prefix+/bin/}g77}"
|
---|
113 | set OBJC_UNDER_TEST "${OBJC_UNDER_TEST-${prefix}${prefix+/bin/}gcc}"
|
---|
114 | EOF
|
---|
115 |
|
---|
116 | test x"${GCC_UNDER_TEST}" = x"no" || runtest --tool gcc ${1+"$@"}
|
---|
117 | test x"${GXX_UNDER_TEST}" = x"no" || runtest --tool g++ ${1+"$@"}
|
---|
118 | test x"${G77_UNDER_TEST}" = x"no" || runtest --tool g77 ${1+"$@"}
|
---|
119 | test x"${OBJC_UNDER_TEST}" = x"no" || runtest --tool objc ${1+"$@"}
|
---|
120 |
|
---|
121 | exit 0
|
---|