From 7ddf5daac0d632ec2a1868d8c0e69bee086f25ee Mon Sep 17 00:00:00 2001 From: Josh Stone Date: Wed, 31 Mar 2010 15:53:25 -0700 Subject: Make sure that the testsuite can find its server * testsuite/lib/systemtap.exp (setup_server): Use stap-find-servers to check that the firewall is letting us through to the server. --- testsuite/lib/systemtap.exp | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'testsuite/lib') 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' -- cgit