diff options
| -rw-r--r-- | testsuite/lib/systemtap.exp | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/testsuite/lib/systemtap.exp b/testsuite/lib/systemtap.exp index 03170081..eaa921c6 100644 --- a/testsuite/lib/systemtap.exp +++ b/testsuite/lib/systemtap.exp @@ -162,6 +162,13 @@ proc setup_server {} { print "Started a systemtap server as PID==$server_pid" } + # Make sure we can actually talk to the server + if {[catch {exec stap-find-servers} dummy]} then { + print "Unable to find a systemtap server -- check firewall settings" + shutdown_server + return 0 + } + # Make a copy of 'stap-client' as 'stap' and make sure it's at the # beginning of the $PATH. Do this after starting the server so that # The server does not call this instance of 'stap' |