1 files changed, 28 insertions, 0 deletions

diff --git a/regress/agent-ptrace.sh b/regress/agent-ptrace.sh
new file mode 100644
index 000000000..9f9c99960
--- /dev/null
+++ b/regress/agent-ptrace.sh
@@ -0,0 +1,28 @@
+#       $OpenBSD: agent-ptrace.sh,v 1.1 2002/12/09 15:38:30 markus Exp $
+#       Placed in the Public Domain.
+
+tid="disallow agent ptrace attach"
+
+trace "start agent"
+eval `${SSHAGENT} -s` > /dev/null
+r=$?
+if [ $r -ne 0 ]; then
+        fail "could not start ssh-agent: exit code $r"
+else
+        # ls -l ${SSH_AUTH_SOCK}
+        gdb ${SSHAGENT} ${SSH_AGENT_PID} > ${OBJ}/gdb.out 2>&1 << EOF
+                quit
+EOF
+        if [ $? -ne 0 ]; then
+                fail "gdb failed: exit code $?"
+        fi
+        grep -q 'ptrace: Operation not permitted.' ${OBJ}/gdb.out
+        r=$?
+        rm -f ${OBJ}/gdb.out
+        if [ $r -ne 0 ]; then
+                fail "ptrace succeeded?: exit code $r"
+        fi
+
+        trace "kill agent"
+        ${SSHAGENT} -k > /dev/null
+fi