This is the mail archive of the gcc-patches@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

[Ada] Run ACATS tests through an expect script


 Hi,

  The following patch runs the acats tests through an expect script so tests
will time out if they are taking too long.  I'm running acats now on
powerpc-linux, so far only c37402a has timed out and all the other tests have
run normally up to chapter c4.

  Ok for mainline?

-- 
Thanks,
Jim

http://www.student.cs.uwaterloo.ca/~ja2morri/
http://phython.blogspot.com
http://open.nit.ca/wiki/?page=jim
2004-11-28  James A. Morrison  <phython@gcc.gnu.org>

	PR ada/18302
	* ada/acats/run_all.sh (target_run): Run test through run_test.exp.
	* ada/acats/run_test.exp: Expect script for ACATS tests.

Index: testsuite/ada/acats/run_all.sh
===================================================================
RCS file: /cvsroot/gcc/gcc/gcc/testsuite/ada/acats/run_all.sh,v
retrieving revision 1.18
diff -u -r1.18 run_all.sh
--- testsuite/ada/acats/run_all.sh	26 Apr 2004 21:15:54 -0000	1.18
+++ testsuite/ada/acats/run_all.sh	28 Nov 2004 19:18:58 -0000
@@ -13,7 +13,7 @@
 gnatflags="-gnatws"
 
 target_run () {
-$*
+	$testdir/run_test.exp $1 > $2
 }
 
 # End of customization section.
@@ -92,7 +92,7 @@
 
 # Find out the size in bit of an address on the target
 target_gnatmake $testdir/support/impbit.adb >> $dir/acats.log 2>&1
-target_run $dir/support/impbit > $dir/support/impbit.out 2>&1
+target_run $dir/support/impbit $dir/support/impbit.out
 target_bit=`cat $dir/support/impbit.out`
 echo target_bit="$target_bit" >> $dir/acats.log
 
@@ -256,7 +256,7 @@
 
       echo "RUN $binmain" >> $dir/acats.log
       cd $dir/run
-      target_run $dir/tests/$chapter/$i/$binmain > $dir/tests/$chapter/$i/${i}.log 2>&1
+      target_run $dir/tests/$chapter/$i/$binmain $dir/tests/$chapter/$i/${i}.log
       cd $dir/tests/$chapter/$i
       cat ${i}.log >> $dir/acats.log
       egrep -e '(==== |\+\+\+\+ |\!\!\!\! )' ${i}.log > /dev/null 2>&1

Attachment: run_test.exp
Description: Expect script


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]