Disable tower socket runtest

The projects-pim-run-pass-tower.exp test blocks indefinitely
on some platforms.  This patch disables it for now - it should
be enabled once a cross platform fix for RTint.mod is found.

gcc/testsuite/ChangeLog:

	* gm2/projects/pim/run/pass/tower/projects-pim-run-pass-tower.exp
	(gm2_run_tower_test): New global variable.  Add conditional
	before invoking gm2-local-exec.

Signed-off-by: Gaius Mulley <gaiusmod2@gmail.com>

diff --git a/gcc/testsuite/gm2/projects/pim/run/pass/tower/projects-pim-run-pass-tower.exp b/gcc/testsuite/gm2/projects/pim/run/pass/tower/projects-pim-run-pass-tower.exp
index 303672e..927dbc5 100644 (file)
--- a/gcc/testsuite/gm2/projects/pim/run/pass/tower/projects-pim-run-pass-tower.exp
+++ b/gcc/testsuite/gm2/projects/pim/run/pass/tower/projects-pim-run-pass-tower.exp
@@ -29,6 +29,7 @@ load_lib gm2-simple.exp
 gm2_init_cor "${srcdir}/${subdir}" -g
 gm2_link_obj "advflex.o AdvCmd.o AdvIntroduction.o AdvMap.o AdvMath.o AdvParse.o AdvSound.o AdvSystem.o AdvTreasure.o AdvUtil.o DrawG.o DrawL.o Lock.o ProcArgs.o Screen.o Window.o SocketControl.o"
 
+set gm2_run_tower_test 0
 
 proc gm2-local-exec { testcase execname mapfile } {
     global tool;
@@ -105,6 +106,11 @@ foreach testcase [lsort [glob -nocomplain $srcdir/$subdir/Dungeon.mod]] {
 
     global tmpdir;
     set executable $tmpdir/[file tail [file rootname $testcase].x];
-    gm2-local-exec ${testcase} ${executable} $srcdir/$subdir/star
+
+    if { ${gm2_run_tower_test} } then {
+        gm2-local-exec ${testcase} ${executable} $srcdir/$subdir/star
+    } else {
+       verbose "not running tower socket test" 1
+    }
     remote_file build delete ${executable};
 }