aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGaius Mulley <gaiusmod2@gmail.com>2023-02-25 21:45:35 +0000
committerGaius Mulley <gaiusmod2@gmail.com>2023-02-25 21:45:35 +0000
commita553fc879f9229ffd8a5af65255f41605f885666 (patch)
treeea5209f029c5a1a21645ca21f3dd9beb66f2a512
parent5c638095e7e0fa4de4e4f7326384a86830b25732 (diff)
downloadgcc-a553fc879f9229ffd8a5af65255f41605f885666.zip
gcc-a553fc879f9229ffd8a5af65255f41605f885666.tar.gz
gcc-a553fc879f9229ffd8a5af65255f41605f885666.tar.bz2
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>
-rw-r--r--gcc/testsuite/gm2/projects/pim/run/pass/tower/projects-pim-run-pass-tower.exp8
1 files changed, 7 insertions, 1 deletions
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
--- 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};
}