Mercurial > hg > CbC > CbC_gcc
comparison contrib/regression/btest-gcc.sh @ 0:a06113de4d67
first commit
author | kent <kent@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Fri, 17 Jul 2009 14:47:48 +0900 |
parents | |
children | 77e2b8dfacca |
comparison
equal
deleted
inserted
replaced
-1:000000000000 | 0:a06113de4d67 |
---|---|
1 #!/bin/sh | |
2 | |
3 # Test GCC. | |
4 # Copyright (C) 1999, 2000, 2001, 2002, 2005, 2006, 2009 | |
5 # Free Software Foundation, Inc. | |
6 | |
7 # This program is free software; you can redistribute it and/or modify | |
8 # it under the terms of the GNU General Public License as published by | |
9 # the Free Software Foundation; either version 3 of the License, or | |
10 # (at your option) any later version. | |
11 | |
12 # This program is distributed in the hope that it will be useful, | |
13 # but WITHOUT ANY WARRANTY; without even the implied warranty of | |
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
15 # GNU General Public License for more details. | |
16 | |
17 # You should have received a copy of the GNU General Public License | |
18 # along with this program; see the file COPYING3. If not see | |
19 # <http://www.gnu.org/licenses/>. | |
20 | |
21 # INPUT: | |
22 # btest <options> <target> <source> <prefix> <state> <build> | |
23 | |
24 add_passes_despite_regression=0 | |
25 dashj='' | |
26 | |
27 # <options> can be | |
28 # --add-passes-despite-regression: | |
29 # Add new "PASSes" despite there being some regressions. | |
30 # -j<n>: | |
31 # Pass '-j<n>' to make. | |
32 | |
33 case "$1" in | |
34 --add-passes-despite-regression) | |
35 add_passes_despite_regression=1; shift;; | |
36 -j*) | |
37 dashj=$1; shift;; | |
38 -*) echo "Invalid option: $1"; exit 2;; | |
39 esac | |
40 | |
41 # TARGET is the target triplet. It should be the same one as used in | |
42 # constructing PREFIX. Or it can be the keyword 'native', indicating | |
43 # a target of whatever platform the script is running on. | |
44 TARGET=$1 | |
45 # SOURCE is the directory containing the toplevel configure. | |
46 SOURCE=$2 | |
47 | |
48 # PREFIX is the directory for the --prefix option to configure. | |
49 # For cross compilers, it needs to contain header files, | |
50 # libraries, and binutils. PATH should probably include | |
51 # $PREFIX/bin. | |
52 PREFIX=$3 | |
53 # This script also needs to include the GDB testsuite in | |
54 # $PREFIX/share/gdb-testsuite. | |
55 GDB_TESTSUITE=$PREFIX/share/gdb-testsuite | |
56 | |
57 # STATE is where the tester maintains its internal state, | |
58 # described below. | |
59 STATE=$4 | |
60 | |
61 # BUILD is a temporary directory that this script will | |
62 # delete and recreate, containing the build tree. | |
63 BUILD=$5 | |
64 | |
65 # you also probably need to set these variables: | |
66 # PATH: should contain a native gcc, and a cross gdb. | |
67 # DEJAGNU: should point to a site.exp suitable for testing | |
68 # the compiler and debugger. | |
69 | |
70 | |
71 # OUTPUT: in $RESULT, one of the following keywords: | |
72 # error the script failed due to | |
73 # a misconfiguration or resource limitation | |
74 # build the build failed | |
75 # regress-<n> the build succeeded, but there were <n> | |
76 # testsuite regressions, listed in $REGRESS | |
77 # pass build succeeded and there were no regressions | |
78 RESULT=$STATE/RESULT | |
79 # in BUILD_LOG, the output of the build | |
80 BUILD_LOG=$STATE/build_log | |
81 # in FAILED, a list of failing testcases | |
82 FAILED=$STATE/failed | |
83 # in PASSES, the list of testcases we expect to pass | |
84 PASSES=$STATE/passes | |
85 # in REGRESS, a list of testcases we expected to pass but that failed | |
86 REGRESS=$STATE/regress | |
87 | |
88 # Make sure various files exist. | |
89 [ -d $STATE ] || mkdir $STATE | |
90 [ -f $PASSES ] || touch $PASSES | |
91 | |
92 # These lines should stay in this order, because | |
93 # that way if something is badly wrong and $RESULT can't | |
94 # be modified then cron will mail the error message. | |
95 # The reverse order could lead to the testsuite claiming that | |
96 # everything always passes, without running any tests. | |
97 echo error > $RESULT || exit 1 | |
98 exec > $BUILD_LOG 2>&1 || exit 1 | |
99 | |
100 set -x | |
101 | |
102 # Nuke $BUILD and recreate it. | |
103 rm -rf $BUILD $REGRESS $FAILED | |
104 mkdir $BUILD || exit 1 | |
105 cd $BUILD || exit 1 | |
106 | |
107 H_BUILD=`$SOURCE/config.guess || exit 1` | |
108 H_HOST=$H_BUILD | |
109 if [ $TARGET = native ] ; then | |
110 H_TARGET=$H_HOST | |
111 else | |
112 H_TARGET=$TARGET | |
113 fi | |
114 H_REAL_TARGET=`$SOURCE/config.sub $H_TARGET || exit 1` | |
115 | |
116 # TESTLOGS is the list of dejagnu .sum files that the tester should | |
117 # look at. | |
118 TESTLOGS="gcc/testsuite/gcc/gcc.sum | |
119 gcc/testsuite/g++/g++.sum | |
120 gcc/testsuite/gfortran/gfortran.sum | |
121 gcc/testsuite/objc/objc.sum" | |
122 | |
123 # Build. | |
124 echo build > $RESULT | |
125 if [ $H_HOST = $H_TARGET ] ; then | |
126 $SOURCE/configure --prefix=$PREFIX --target=$H_TARGET || exit 1 | |
127 if ! make $dashj bootstrap ; then | |
128 [ -s .bad_compare ] || exit 1 | |
129 cat .bad_compare >> $REGRESS || exit 1 | |
130 make $dashj all || exit 1 | |
131 fi | |
132 else | |
133 withopt="--with-gnu-ld --with-gnu-as" | |
134 case "$H_TARGET" in | |
135 *-linux*) ;; | |
136 *) withopt="$withopt --with-newlib";; | |
137 esac | |
138 $SOURCE/configure --prefix=$PREFIX --target=$H_TARGET $withopt || exit 1 | |
139 make $dashj || exit 1 | |
140 fi | |
141 echo error > $RESULT || exit 1 | |
142 | |
143 # Test GCC against its internal testsuite. | |
144 make $dashj -k check | |
145 | |
146 if [ -f $BUILD/$H_TARGET/libstdc++-v3/testsuite/libstdc++.sum ] ; then | |
147 TESTLOGS="$TESTLOGS $H_TARGET/libstdc++-v3/testsuite/libstdc++.sum" | |
148 fi | |
149 | |
150 if [ -f $BUILD/$H_TARGET/libffi/testsuite/libffi.sum ] ; then | |
151 TESTLOGS="$TESTLOGS $H_TARGET/libffi/testsuite/libffi.sum" | |
152 fi | |
153 | |
154 if [ -f $BUILD/$H_TARGET/libjava/testsuite/libjava.sum ] ; then | |
155 TESTLOGS="$TESTLOGS $H_TARGET/libjava/testsuite/libjava.sum" | |
156 fi | |
157 | |
158 if [ -f $BUILD/$H_TARGET/libgomp/testsuite/libgomp.sum ] ; then | |
159 TESTLOGS="$TESTLOGS $H_TARGET/libgomp/testsuite/libgomp.sum" | |
160 fi | |
161 | |
162 # Test the just-built GCC with the GDB testsuite. | |
163 if [ -d $GDB_TESTSUITE ] ; then | |
164 mkdir test-gdb || exit 1 | |
165 cd $GDB_TESTSUITE || exit 1 | |
166 for i in gdb.* ; do | |
167 if [ -d $i ] ; then | |
168 mkdir $BUILD/test-gdb/$i | |
169 fi | |
170 done | |
171 cd $BUILD/test-gdb || exit 1 | |
172 echo "set host_alias $H_HOST" > site.exp | |
173 echo "set host_triplet $H_HOST" >> site.exp | |
174 echo "set target_alias $H_TARGET" >> site.exp | |
175 echo "set target_triplet $H_REAL_TARGET" >> site.exp | |
176 echo "set build_alias $H_BUILD" >> site.exp | |
177 echo "set build_triplet $H_BUILD" >> site.exp | |
178 echo "set srcdir $GDB_TESTSUITE" >> site.exp | |
179 runtest --tool gdb | |
180 TESTLOGS="$TESTLOGS test-gdb/gdb.sum" | |
181 fi | |
182 | |
183 # Sanity-check the testlogs. They should contain at least one PASS. | |
184 cd $BUILD || exit 1 | |
185 for LOG in $TESTLOGS ; do | |
186 if ! grep ^PASS: $LOG > /dev/null ; then | |
187 echo build > $RESULT | |
188 exit 1 | |
189 fi | |
190 done | |
191 | |
192 # Work out what failed | |
193 for LOG in $TESTLOGS ; do | |
194 L=`basename $LOG` | |
195 awk '/^FAIL: / { print "'$L'",$2; }' $LOG || exit 1 | |
196 done | sort | uniq > $FAILED || exit 1 | |
197 comm -12 $FAILED $PASSES >> $REGRESS || exit 1 | |
198 NUMREGRESS=`wc -l < $REGRESS | tr -d ' '` | |
199 | |
200 if [ $NUMREGRESS -eq 0 ] || [ $add_passes_despite_regression -ne 0 ] ; then | |
201 # Update the state. | |
202 for LOG in $TESTLOGS ; do | |
203 L=`basename $LOG` | |
204 awk '/^PASS: / { print "'$L'",$2; }' $LOG || exit 1 | |
205 done | sort | uniq | comm -23 - $FAILED > ${PASSES}~ || exit 1 | |
206 [ -s ${PASSES}~ ] || exit 1 | |
207 if [ $NUMREGRESS -ne 0 ] ; then | |
208 # The way we keep track of new PASSes when in "regress-N" for | |
209 # --add-passes-despite-regression, is to *add* them to previous | |
210 # PASSes. Just as without this option, we don't forget *any* PASS | |
211 # lines, because besides the ones in $REGRESS that we definitely | |
212 # don't want to lose, their removal or rename may have been a | |
213 # mistake (as in, the cause of the "regress-N" state). If they | |
214 # come back, we then know they're regressions. | |
215 cat ${PASSES}~ ${PASSES} | sort -u > ${PASSES}~~ | |
216 mv ${PASSES}~~ ${PASSES} || exit 1 | |
217 rm ${PASSES}~ || exit 1 | |
218 else | |
219 # In contrast to the merging for "regress-N", we just overwrite | |
220 # the known PASSes when in the "pass" state, so we get rid of | |
221 # stale PASS lines for removed, moved or otherwise changed tests | |
222 # which may be added back with a different meaning later on. | |
223 mv ${PASSES}~ ${PASSES} || exit 1 | |
224 fi | |
225 fi | |
226 | |
227 if [ $NUMREGRESS -ne 0 ] ; then | |
228 echo regress-$NUMREGRESS > $RESULT | |
229 exit 1 | |
230 fi | |
231 | |
232 echo pass > $RESULT | |
233 exit 0 |