[Ada] Run ACATS tests through an expect script

[ja2morri at csclub dot uwaterloo dot ca (James A. Morrison)]

 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