From 5569759bce2f3660ef314d58a08652e05222d580 Mon Sep 17 00:00:00 2001
From: Darren Tucker <dtucker@zip.com.au>
Date: Thu, 4 Sep 2003 13:55:25 +1000
Subject:    - [regress/agent-ptrace.sh] Skip tests if platform doesn't support
 it or      gdb cannot be found.

---
 regress/agent-ptrace.sh | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

(limited to 'regress')

diff --git a/regress/agent-ptrace.sh b/regress/agent-ptrace.sh
index 9f9c99960..7367d7aff 100644
--- a/regress/agent-ptrace.sh
+++ b/regress/agent-ptrace.sh
@@ -3,6 +3,20 @@
 
 tid="disallow agent ptrace attach"
 
+if [ -x `which uname 2>&1` ]; then
+	case `uname` in
+	Linux|HP-UX|SunOS|NetBSD|AIX)
+		echo "skipped (not supported)"
+		exit 0
+		;;
+	esac
+fi
+
+if [ ! -x `which gdb 2>&1` ]; then
+	echo "skipped (gdb not found)"
+	exit 0
+fi
+
 trace "start agent"
 eval `${SSHAGENT} -s` > /dev/null
 r=$?
-- 
cgit v1.2.3