From 413eca6f968c5c6321e273b60b453423cf532d9e Mon Sep 17 00:00:00 2001 From: Keith Seitz Date: Mon, 23 Jul 2001 19:02:31 +0000 Subject: [PATCH] * lib/gdb.exp (_gdbtk_xvfb_init): If GDB_DISPLAY is the empty string, do not run the tests. --- gdb/testsuite/ChangeLog | 5 +++++ gdb/testsuite/lib/gdb.exp | 9 +++++++-- 2 files changed, 12 insertions(+), 2 deletions(-) diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 844e4c028b..137be01126 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2001-07-22 Keith Seitz + + * lib/gdb.exp (_gdbtk_xvfb_init): If GDB_DISPLAY is + the empty string, do not run the tests. + 2001-07-17 Stephane Carrez * gdb.base/long_long.exp: Detect size of pointer. Take into diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp index 73df80f53a..4949083de4 100644 --- a/gdb/testsuite/lib/gdb.exp +++ b/gdb/testsuite/lib/gdb.exp @@ -1698,14 +1698,19 @@ proc gdbtk_start {test} { # Start xvfb when using it. # The precedence is: -# 1. If GDB_DISPLAY is set, use it +# 1. If GDB_DISPLAY is set (and not ""), use it # 2. If Xvfb exists, use it (not on cygwin) # 3. Skip tests proc _gdbtk_xvfb_init {} { global env spawn_id _xvfb_spawn_id _using_windows if {[info exists env(GDB_DISPLAY)]} { - set env(DISPLAY) $env(GDB_DISPLAY) + if {$env(GDB_DISPLAY) != ""} { + set env(DISPLAY) $env(GDB_DISPLAY) + } else { + # Suppress tests + return 0 + } } elseif {!$_using_windows && [which Xvfb] != 0} { set screen ":[getpid]" set pid [spawn Xvfb $screen] -- 2.34.1