t_ptrace_wait.c revision 1.38
11.38Skamil/*	$NetBSD: t_ptrace_wait.c,v 1.38 2018/05/01 16:37:23 kamil Exp $	*/
21.1Skamil
31.1Skamil/*-
41.1Skamil * Copyright (c) 2016 The NetBSD Foundation, Inc.
51.1Skamil * All rights reserved.
61.1Skamil *
71.1Skamil * Redistribution and use in source and binary forms, with or without
81.1Skamil * modification, are permitted provided that the following conditions
91.1Skamil * are met:
101.1Skamil * 1. Redistributions of source code must retain the above copyright
111.1Skamil *    notice, this list of conditions and the following disclaimer.
121.1Skamil * 2. Redistributions in binary form must reproduce the above copyright
131.1Skamil *    notice, this list of conditions and the following disclaimer in the
141.1Skamil *    documentation and/or other materials provided with the distribution.
151.1Skamil *
161.1Skamil * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
171.1Skamil * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
181.1Skamil * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
191.1Skamil * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
201.1Skamil * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
211.1Skamil * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
221.1Skamil * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
231.1Skamil * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
241.1Skamil * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
251.1Skamil * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
261.1Skamil * POSSIBILITY OF SUCH DAMAGE.
271.1Skamil */
281.1Skamil
291.1Skamil#include <sys/cdefs.h>
301.38Skamil__RCSID("$NetBSD: t_ptrace_wait.c,v 1.38 2018/05/01 16:37:23 kamil Exp $");
311.1Skamil
321.1Skamil#include <sys/param.h>
331.1Skamil#include <sys/types.h>
341.1Skamil#include <sys/ptrace.h>
351.1Skamil#include <sys/resource.h>
361.1Skamil#include <sys/stat.h>
371.1Skamil#include <sys/syscall.h>
381.1Skamil#include <sys/sysctl.h>
391.1Skamil#include <sys/wait.h>
401.1Skamil#include <machine/reg.h>
411.1Skamil#include <elf.h>
421.1Skamil#include <err.h>
431.1Skamil#include <errno.h>
441.1Skamil#include <lwp.h>
451.1Skamil#include <sched.h>
461.1Skamil#include <signal.h>
471.1Skamil#include <stdint.h>
481.1Skamil#include <stdio.h>
491.1Skamil#include <stdlib.h>
501.1Skamil#include <strings.h>
511.26Skamil#include <time.h>
521.1Skamil#include <unistd.h>
531.1Skamil
541.1Skamil#include <atf-c.h>
551.1Skamil
561.1Skamil#include "h_macros.h"
571.1Skamil
581.1Skamil#include "t_ptrace_wait.h"
591.1Skamil#include "msg.h"
601.1Skamil
611.1Skamil#define PARENT_TO_CHILD(info, fds, msg) \
621.13Schristos    SYSCALL_REQUIRE(msg_write_child(info " to child " # fds, &fds, &msg, sizeof(msg)) == 0)
631.1Skamil
641.1Skamil#define CHILD_FROM_PARENT(info, fds, msg) \
651.1Skamil    FORKEE_ASSERT(msg_read_parent(info " from parent " # fds, &fds, &msg, sizeof(msg)) == 0)
661.1Skamil
671.1Skamil#define CHILD_TO_PARENT(info, fds, msg) \
681.1Skamil    FORKEE_ASSERT(msg_write_parent(info " to parent " # fds, &fds, &msg, sizeof(msg)) == 0)
691.1Skamil
701.1Skamil#define PARENT_FROM_CHILD(info, fds, msg) \
711.13Schristos    SYSCALL_REQUIRE(msg_read_child(info " from parent " # fds, &fds, &msg, sizeof(msg)) == 0)
721.13Schristos
731.13Schristos#define SYSCALL_REQUIRE(expr) ATF_REQUIRE_MSG(expr, "%s: %s", # expr, \
741.13Schristos    strerror(errno))
751.18Schristos#define SYSCALL_REQUIRE_ERRNO(res, exp) ATF_REQUIRE_MSG(res == exp, \
761.18Schristos    "%d(%s) != %d", res, strerror(res), exp)
771.13Schristos
781.13Schristosstatic int debug = 0;
791.13Schristos
801.13Schristos#define DPRINTF(a, ...)	do  \
811.13Schristos	if (debug) printf(a,  ##__VA_ARGS__); \
821.13Schristos    while (/*CONSTCOND*/0)
831.1Skamil
841.34Skamil/// ----------------------------------------------------------------------------
851.34Skamil
861.33Skamilstatic void
871.33Skamiltraceme_raise(int sigval)
881.1Skamil{
891.1Skamil	const int exitval = 5;
901.1Skamil	pid_t child, wpid;
911.1Skamil#if defined(TWAIT_HAVE_STATUS)
921.1Skamil	int status;
931.1Skamil#endif
941.1Skamil
951.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
961.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
971.1Skamil	if (child == 0) {
981.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
991.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
1001.1Skamil
1011.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
1021.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
1031.1Skamil
1041.36Skamil		switch (sigval) {
1051.36Skamil		case SIGKILL:
1061.36Skamil			/* NOTREACHED */
1071.36Skamil			FORKEE_ASSERTX(0 && "This shall not be reached");
1081.36Skamil		default:
1091.36Skamil			DPRINTF("Before exiting of the child process\n");
1101.36Skamil			_exit(exitval);
1111.36Skamil		}
1121.1Skamil	}
1131.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
1141.1Skamil
1151.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
1161.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
1171.1Skamil
1181.36Skamil	switch (sigval) {
1191.36Skamil	case SIGKILL:
1201.36Skamil		validate_status_signaled(status, sigval, 0);
1211.36Skamil		break;
1221.36Skamil	default:
1231.36Skamil		validate_status_stopped(status, sigval);
1241.1Skamil
1251.36Skamil		DPRINTF("Before resuming the child process where it left off "
1261.36Skamil		    "and without signal to be sent\n");
1271.36Skamil		SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
1281.1Skamil
1291.36Skamil		DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
1301.36Skamil		TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0),
1311.36Skamil		                      child);
1321.36Skamil		break;
1331.36Skamil	}
1341.1Skamil
1351.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
1361.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
1371.1Skamil}
1381.1Skamil
1391.33Skamil#define TRACEME_RAISE(test, sig)						\
1401.33SkamilATF_TC(test);									\
1411.33SkamilATF_TC_HEAD(test, tc)								\
1421.33Skamil{										\
1431.33Skamil	atf_tc_set_md_var(tc, "descr",						\
1441.33Skamil	    "Verify " #sig " followed by _exit(2) in a child");			\
1451.33Skamil}										\
1461.33Skamil										\
1471.33SkamilATF_TC_BODY(test, tc)								\
1481.33Skamil{										\
1491.33Skamil										\
1501.33Skamil	traceme_raise(sig);							\
1511.33Skamil}
1521.33Skamil
1531.36SkamilTRACEME_RAISE(traceme_raise1, SIGKILL) /* non-maskable */
1541.33SkamilTRACEME_RAISE(traceme_raise2, SIGSTOP) /* non-maskable */
1551.33SkamilTRACEME_RAISE(traceme_raise3, SIGABRT) /* regular abort trap */
1561.33SkamilTRACEME_RAISE(traceme_raise4, SIGHUP)  /* hangup */
1571.33SkamilTRACEME_RAISE(traceme_raise5, SIGCONT) /* continued? */
1581.33Skamil
1591.34Skamil/// ----------------------------------------------------------------------------
1601.1Skamil
1611.1Skamilstatic void
1621.34Skamiltraceme_sighandler_catch(int sigsent, void (*sah)(int arg), int *traceme_caught)
1631.1Skamil{
1641.1Skamil	const int exitval = 5;
1651.34Skamil	const int sigval = SIGSTOP;
1661.1Skamil	pid_t child, wpid;
1671.1Skamil	struct sigaction sa;
1681.1Skamil#if defined(TWAIT_HAVE_STATUS)
1691.1Skamil	int status;
1701.1Skamil#endif
1711.1Skamil
1721.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
1731.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
1741.1Skamil	if (child == 0) {
1751.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
1761.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
1771.1Skamil
1781.34Skamil		sa.sa_handler = sah;
1791.1Skamil		sa.sa_flags = SA_SIGINFO;
1801.1Skamil		sigemptyset(&sa.sa_mask);
1811.1Skamil
1821.1Skamil		FORKEE_ASSERT(sigaction(sigsent, &sa, NULL) != -1);
1831.1Skamil
1841.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
1851.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
1861.1Skamil
1871.34Skamil		FORKEE_ASSERT_EQ(*traceme_caught, 1);
1881.1Skamil
1891.13Schristos		DPRINTF("Before exiting of the child process\n");
1901.1Skamil		_exit(exitval);
1911.1Skamil	}
1921.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
1931.1Skamil
1941.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
1951.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
1961.1Skamil
1971.1Skamil	validate_status_stopped(status, sigval);
1981.1Skamil
1991.13Schristos	DPRINTF("Before resuming the child process where it left off and with "
2001.1Skamil	    "signal %s to be sent\n", strsignal(sigsent));
2011.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, sigsent) != -1);
2021.1Skamil
2031.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
2041.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
2051.1Skamil
2061.1Skamil	validate_status_exited(status, exitval);
2071.1Skamil
2081.13Schristos	DPRINTF("Before calling %s() for the exited child\n", TWAIT_FNAME);
2091.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
2101.1Skamil}
2111.1Skamil
2121.34Skamil#define TRACEME_SIGHANDLER_CATCH(test, sig)					\
2131.34SkamilATF_TC(test);									\
2141.34SkamilATF_TC_HEAD(test, tc)								\
2151.34Skamil{										\
2161.34Skamil	atf_tc_set_md_var(tc, "descr",						\
2171.34Skamil	    "Verify that a signal " #sig " emitted by a tracer to a child is "	\
2181.34Skamil	    "handled correctly and caught by a signal handler");		\
2191.34Skamil}										\
2201.34Skamil										\
2211.34Skamilstatic int test##_caught = 0;							\
2221.34Skamil										\
2231.34Skamilstatic void									\
2241.34Skamiltest##_sighandler(int arg)							\
2251.34Skamil{										\
2261.34Skamil	FORKEE_ASSERT_EQ(arg, sig);						\
2271.34Skamil										\
2281.34Skamil	++ test##_caught;							\
2291.34Skamil}										\
2301.34Skamil										\
2311.34SkamilATF_TC_BODY(test, tc)								\
2321.34Skamil{										\
2331.34Skamil										\
2341.34Skamil	traceme_sighandler_catch(sig, test##_sighandler, & test##_caught);	\
2351.34Skamil}
2361.34Skamil
2371.34Skamil// A signal handler for SIGKILL and SIGSTOP cannot be registered.
2381.34SkamilTRACEME_SIGHANDLER_CATCH(traceme_sighandler_catch1, SIGABRT) /* abort trap */
2391.34SkamilTRACEME_SIGHANDLER_CATCH(traceme_sighandler_catch2, SIGHUP)  /* hangup */
2401.34SkamilTRACEME_SIGHANDLER_CATCH(traceme_sighandler_catch3, SIGCONT) /* continued? */
2411.34Skamil
2421.34Skamil/// ----------------------------------------------------------------------------
2431.34Skamil
2441.35Skamilstatic void
2451.35Skamiltraceme_signal_nohandler(int sigsent)
2461.1Skamil{
2471.35Skamil	const int sigval = SIGSTOP;
2481.35Skamil	int exitval = 0;
2491.1Skamil	pid_t child, wpid;
2501.1Skamil#if defined(TWAIT_HAVE_STATUS)
2511.1Skamil	int status;
2521.35Skamil	int expect_core = (sigsent == SIGABRT) ? 1 : 0;
2531.1Skamil#endif
2541.1Skamil
2551.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
2561.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
2571.1Skamil	if (child == 0) {
2581.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
2591.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
2601.1Skamil
2611.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
2621.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
2631.1Skamil
2641.35Skamil		switch (sigsent) {
2651.35Skamil		case SIGCONT:
2661.35Skamil			_exit(exitval);
2671.35Skamil		default:
2681.35Skamil			/* NOTREACHED */
2691.35Skamil			FORKEE_ASSERTX(0 && "This shall not be reached");
2701.35Skamil		}
2711.1Skamil	}
2721.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
2731.1Skamil
2741.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
2751.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
2761.1Skamil
2771.1Skamil	validate_status_stopped(status, sigval);
2781.1Skamil
2791.13Schristos	DPRINTF("Before resuming the child process where it left off and with "
2801.1Skamil	    "signal %s to be sent\n", strsignal(sigsent));
2811.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, sigsent) != -1);
2821.1Skamil
2831.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
2841.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
2851.1Skamil
2861.35Skamil	switch (sigsent) {
2871.35Skamil	case SIGCONT:
2881.35Skamil		validate_status_exited(status, exitval);
2891.35Skamil		break;
2901.35Skamil	default:
2911.35Skamil		validate_status_signaled(status, sigsent, expect_core);
2921.35Skamil		break;
2931.35Skamil	}
2941.1Skamil
2951.13Schristos	DPRINTF("Before calling %s() for the exited child\n", TWAIT_FNAME);
2961.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
2971.1Skamil}
2981.1Skamil
2991.35Skamil#define TRACEME_SIGNAL_NOHANDLER(test, sig)					\
3001.35SkamilATF_TC(test);									\
3011.35SkamilATF_TC_HEAD(test, tc)								\
3021.35Skamil{										\
3031.35Skamil	atf_tc_set_md_var(tc, "descr",						\
3041.35Skamil	    "Verify that a signal " #sig " emitted by a tracer to a child is "	\
3051.35Skamil	    "handled correctly in a child without a signal handler");		\
3061.35Skamil}										\
3071.35Skamil										\
3081.35SkamilATF_TC_BODY(test, tc)								\
3091.35Skamil{										\
3101.35Skamil										\
3111.35Skamil	traceme_signal_nohandler(sig);						\
3121.35Skamil}
3131.35Skamil
3141.35SkamilTRACEME_SIGNAL_NOHANDLER(traceme_signal_nohandler1, SIGKILL) /* non-maskable */
3151.35Skamil//TRACEME_SIGNAL_NOHANDLER(traceme_signal_nohandler2, SIGSTOP) /* non-maskable */
3161.35SkamilTRACEME_SIGNAL_NOHANDLER(traceme_signal_nohandler3, SIGABRT) /* abort trap */
3171.35SkamilTRACEME_SIGNAL_NOHANDLER(traceme_signal_nohandler4, SIGHUP)  /* hangup */
3181.35SkamilTRACEME_SIGNAL_NOHANDLER(traceme_signal_nohandler5, SIGCONT) /* continued? */
3191.35Skamil
3201.35Skamil/// ----------------------------------------------------------------------------
3211.35Skamil
3221.37SkamilATF_TC(traceme_pid1_parent);
3231.37SkamilATF_TC_HEAD(traceme_pid1_parent, tc)
3241.37Skamil{
3251.37Skamil	atf_tc_set_md_var(tc, "descr",
3261.37Skamil	    "Verify that PT_TRACE_ME is not allowed when our parent is PID1");
3271.37Skamil}
3281.37Skamil
3291.37SkamilATF_TC_BODY(traceme_pid1_parent, tc)
3301.37Skamil{
3311.37Skamil	struct msg_fds parent_child;
3321.37Skamil	int exitval_child1 = 1, exitval_child2 = 2;
3331.37Skamil	pid_t child1, child2, wpid;
3341.37Skamil	uint8_t msg = 0xde; /* dummy message for IPC based on pipe(2) */
3351.37Skamil#if defined(TWAIT_HAVE_STATUS)
3361.37Skamil	int status;
3371.37Skamil#endif
3381.37Skamil
3391.37Skamil	SYSCALL_REQUIRE(msg_open(&parent_child) == 0);
3401.37Skamil
3411.37Skamil	DPRINTF("Before forking process PID=%d\n", getpid());
3421.37Skamil	SYSCALL_REQUIRE((child1 = fork()) != -1);
3431.37Skamil	if (child1 == 0) {
3441.37Skamil		DPRINTF("Before forking process PID=%d\n", getpid());
3451.37Skamil		SYSCALL_REQUIRE((child2 = fork()) != -1);
3461.37Skamil		if (child2 != 0) {
3471.37Skamil			DPRINTF("Parent process PID=%d, child2's PID=%d\n",
3481.37Skamil			        getpid(), child2);
3491.37Skamil			_exit(exitval_child1);
3501.37Skamil		}
3511.37Skamil		CHILD_FROM_PARENT("exit child1", parent_child, msg);
3521.37Skamil
3531.37Skamil		DPRINTF("Assert that our parent is PID1 (initproc)\n");
3541.37Skamil		FORKEE_ASSERT_EQ(getppid(), 1);
3551.37Skamil
3561.37Skamil		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
3571.37Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) == -1);
3581.37Skamil		SYSCALL_REQUIRE_ERRNO(errno, EPERM);
3591.37Skamil
3601.37Skamil		CHILD_TO_PARENT("child2 exiting", parent_child, msg);
3611.37Skamil
3621.37Skamil		_exit(exitval_child2);
3631.37Skamil	}
3641.37Skamil	DPRINTF("Parent process PID=%d, child1's PID=%d\n", getpid(), child1);
3651.37Skamil
3661.37Skamil	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
3671.37Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child1, &status, WEXITED),
3681.37Skamil	                      child1);
3691.37Skamil
3701.37Skamil	validate_status_exited(status, exitval_child1);
3711.37Skamil
3721.37Skamil	DPRINTF("Notify that child1 is dead\n");
3731.37Skamil	PARENT_TO_CHILD("exit child1", parent_child, msg);
3741.37Skamil
3751.37Skamil	DPRINTF("Wait for exiting of child2\n");
3761.37Skamil	PARENT_FROM_CHILD("child2 exiting", parent_child, msg);
3771.37Skamil}
3781.37Skamil
3791.37Skamil/// ----------------------------------------------------------------------------
3801.37Skamil
3811.1Skamil#if defined(TWAIT_HAVE_PID)
3821.1SkamilATF_TC(attach1);
3831.1SkamilATF_TC_HEAD(attach1, tc)
3841.1Skamil{
3851.1Skamil	atf_tc_set_md_var(tc, "descr",
3861.1Skamil	    "Assert that tracer sees process termination before the parent");
3871.1Skamil}
3881.1Skamil
3891.26Skamilstatic void
3901.26Skamilattach1_raw(bool raw)
3911.1Skamil{
3921.1Skamil	struct msg_fds parent_tracee, parent_tracer;
3931.1Skamil	const int exitval_tracee = 5;
3941.1Skamil	const int exitval_tracer = 10;
3951.1Skamil	pid_t tracee, tracer, wpid;
3961.1Skamil	uint8_t msg = 0xde; /* dummy message for IPC based on pipe(2) */
3971.1Skamil#if defined(TWAIT_HAVE_STATUS)
3981.1Skamil	int status;
3991.1Skamil#endif
4001.1Skamil
4011.13Schristos	DPRINTF("Spawn tracee\n");
4021.13Schristos	SYSCALL_REQUIRE(msg_open(&parent_tracee) == 0);
4031.1Skamil	tracee = atf_utils_fork();
4041.1Skamil	if (tracee == 0) {
4051.1Skamil		// Wait for parent to let us exit
4061.1Skamil		CHILD_FROM_PARENT("exit tracee", parent_tracee, msg);
4071.1Skamil		_exit(exitval_tracee);
4081.1Skamil	}
4091.1Skamil
4101.13Schristos	DPRINTF("Spawn debugger\n");
4111.13Schristos	SYSCALL_REQUIRE(msg_open(&parent_tracer) == 0);
4121.1Skamil	tracer = atf_utils_fork();
4131.1Skamil	if (tracer == 0) {
4141.13Schristos		DPRINTF("Before calling PT_ATTACH from tracee %d\n", getpid());
4151.1Skamil		FORKEE_ASSERT(ptrace(PT_ATTACH, tracee, NULL, 0) != -1);
4161.1Skamil
4171.1Skamil		/* Wait for tracee and assert that it was stopped w/ SIGSTOP */
4181.1Skamil		FORKEE_REQUIRE_SUCCESS(
4191.1Skamil		    wpid = TWAIT_GENERIC(tracee, &status, 0), tracee);
4201.1Skamil
4211.1Skamil		forkee_status_stopped(status, SIGSTOP);
4221.1Skamil
4231.1Skamil		/* Resume tracee with PT_CONTINUE */
4241.1Skamil		FORKEE_ASSERT(ptrace(PT_CONTINUE, tracee, (void *)1, 0) != -1);
4251.1Skamil
4261.1Skamil		/* Inform parent that tracer has attached to tracee */
4271.1Skamil		CHILD_TO_PARENT("tracer ready", parent_tracer, msg);
4281.1Skamil
4291.1Skamil		/* Wait for parent to tell use that tracee should have exited */
4301.1Skamil		CHILD_FROM_PARENT("wait for tracee exit", parent_tracer, msg);
4311.1Skamil
4321.1Skamil		/* Wait for tracee and assert that it exited */
4331.1Skamil		FORKEE_REQUIRE_SUCCESS(
4341.1Skamil		    wpid = TWAIT_GENERIC(tracee, &status, 0), tracee);
4351.1Skamil
4361.1Skamil		forkee_status_exited(status, exitval_tracee);
4371.13Schristos		DPRINTF("Tracee %d exited with %d\n", tracee, exitval_tracee);
4381.1Skamil
4391.13Schristos		DPRINTF("Before exiting of the tracer process\n");
4401.1Skamil		_exit(exitval_tracer);
4411.1Skamil	}
4421.1Skamil
4431.13Schristos	DPRINTF("Wait for the tracer to attach to the tracee\n");
4441.1Skamil	PARENT_FROM_CHILD("tracer ready", parent_tracer, msg);
4451.1Skamil
4461.13Schristos	DPRINTF("Resume the tracee and let it exit\n");
4471.1Skamil	PARENT_TO_CHILD("exit tracee", parent_tracee,  msg);
4481.1Skamil
4491.13Schristos	DPRINTF("Detect that tracee is zombie\n");
4501.26Skamil	if (raw)
4511.26Skamil		await_zombie_raw(tracee, 0);
4521.26Skamil	else
4531.26Skamil		await_zombie(tracee);
4541.1Skamil
4551.13Schristos	DPRINTF("Assert that there is no status about tracee %d - "
4561.1Skamil	    "Tracer must detect zombie first - calling %s()\n", tracee,
4571.1Skamil	    TWAIT_FNAME);
4581.1Skamil	TWAIT_REQUIRE_SUCCESS(
4591.1Skamil	    wpid = TWAIT_GENERIC(tracee, &status, WNOHANG), 0);
4601.1Skamil
4611.13Schristos	DPRINTF("Tell the tracer child should have exited\n");
4621.1Skamil	PARENT_TO_CHILD("wait for tracee exit", parent_tracer,  msg);
4631.13Schristos	DPRINTF("Wait for tracer to finish its job and exit - calling %s()\n",
4641.1Skamil	    TWAIT_FNAME);
4651.1Skamil
4661.13Schristos	DPRINTF("Wait from tracer child to complete waiting for tracee\n");
4671.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(tracer, &status, 0),
4681.1Skamil	    tracer);
4691.1Skamil
4701.1Skamil	validate_status_exited(status, exitval_tracer);
4711.1Skamil
4721.13Schristos	DPRINTF("Wait for tracee to finish its job and exit - calling %s()\n",
4731.1Skamil	    TWAIT_FNAME);
4741.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(tracee, &status, WNOHANG),
4751.1Skamil	    tracee);
4761.1Skamil
4771.1Skamil	validate_status_exited(status, exitval_tracee);
4781.1Skamil
4791.1Skamil	msg_close(&parent_tracer);
4801.1Skamil	msg_close(&parent_tracee);
4811.1Skamil}
4821.26Skamil
4831.26SkamilATF_TC_BODY(attach1, tc)
4841.26Skamil{
4851.26Skamil
4861.26Skamil	/* Reuse this test with race1 */
4871.26Skamil	attach1_raw(false);
4881.26Skamil}
4891.26Skamil
4901.1Skamil#endif
4911.1Skamil
4921.1Skamil#if defined(TWAIT_HAVE_PID)
4931.1SkamilATF_TC(attach2);
4941.1SkamilATF_TC_HEAD(attach2, tc)
4951.1Skamil{
4961.1Skamil	atf_tc_set_md_var(tc, "descr",
4971.1Skamil	    "Assert that any tracer sees process termination before its "
4981.1Skamil	    "parent");
4991.1Skamil}
5001.1Skamil
5011.1SkamilATF_TC_BODY(attach2, tc)
5021.1Skamil{
5031.1Skamil	struct msg_fds parent_tracer, parent_tracee;
5041.1Skamil	const int exitval_tracee = 5;
5051.1Skamil	const int exitval_tracer1 = 10, exitval_tracer2 = 20;
5061.1Skamil	pid_t tracee, tracer, wpid;
5071.1Skamil	uint8_t msg = 0xde; /* dummy message for IPC based on pipe(2) */
5081.1Skamil#if defined(TWAIT_HAVE_STATUS)
5091.1Skamil	int status;
5101.1Skamil#endif
5111.1Skamil
5121.13Schristos	DPRINTF("Spawn tracee\n");
5131.13Schristos	SYSCALL_REQUIRE(msg_open(&parent_tracee) == 0);
5141.1Skamil	tracee = atf_utils_fork();
5151.1Skamil	if (tracee == 0) {
5161.1Skamil		/* Wait for message from the parent */
5171.1Skamil		CHILD_FROM_PARENT("Message 1", parent_tracee, msg);
5181.1Skamil		_exit(exitval_tracee);
5191.1Skamil	}
5201.1Skamil
5211.13Schristos	DPRINTF("Spawn debugger\n");
5221.13Schristos	SYSCALL_REQUIRE(msg_open(&parent_tracer) == 0);
5231.1Skamil	tracer = atf_utils_fork();
5241.1Skamil	if (tracer == 0) {
5251.1Skamil		/* Fork again and drop parent to reattach to PID 1 */
5261.1Skamil		tracer = atf_utils_fork();
5271.1Skamil		if (tracer != 0)
5281.1Skamil			_exit(exitval_tracer1);
5291.1Skamil
5301.13Schristos		DPRINTF("Before calling PT_ATTACH from tracee %d\n", getpid());
5311.1Skamil		FORKEE_ASSERT(ptrace(PT_ATTACH, tracee, NULL, 0) != -1);
5321.1Skamil
5331.1Skamil		/* Wait for tracee and assert that it was stopped w/ SIGSTOP */
5341.1Skamil		FORKEE_REQUIRE_SUCCESS(
5351.1Skamil		    wpid = TWAIT_GENERIC(tracee, &status, 0), tracee);
5361.1Skamil
5371.1Skamil		forkee_status_stopped(status, SIGSTOP);
5381.1Skamil
5391.1Skamil		/* Resume tracee with PT_CONTINUE */
5401.1Skamil		FORKEE_ASSERT(ptrace(PT_CONTINUE, tracee, (void *)1, 0) != -1);
5411.1Skamil
5421.1Skamil		/* Inform parent that tracer has attached to tracee */
5431.1Skamil		CHILD_TO_PARENT("Message 1", parent_tracer, msg);
5441.1Skamil		CHILD_FROM_PARENT("Message 2", parent_tracer, msg);
5451.1Skamil
5461.1Skamil		/* Wait for tracee and assert that it exited */
5471.1Skamil		FORKEE_REQUIRE_SUCCESS(
5481.1Skamil		    wpid = TWAIT_GENERIC(tracee, &status, 0), tracee);
5491.1Skamil
5501.1Skamil		forkee_status_exited(status, exitval_tracee);
5511.1Skamil
5521.13Schristos		DPRINTF("Before exiting of the tracer process\n");
5531.1Skamil		_exit(exitval_tracer2);
5541.1Skamil	}
5551.13Schristos	DPRINTF("Wait for the tracer process (direct child) to exit calling "
5561.1Skamil	    "%s()\n", TWAIT_FNAME);
5571.1Skamil	TWAIT_REQUIRE_SUCCESS(
5581.1Skamil	    wpid = TWAIT_GENERIC(tracer, &status, 0), tracer);
5591.1Skamil
5601.1Skamil	validate_status_exited(status, exitval_tracer1);
5611.1Skamil
5621.13Schristos	DPRINTF("Wait for the non-exited tracee process with %s()\n",
5631.1Skamil	    TWAIT_FNAME);
5641.1Skamil	TWAIT_REQUIRE_SUCCESS(
5651.1Skamil	    wpid = TWAIT_GENERIC(tracee, NULL, WNOHANG), 0);
5661.1Skamil
5671.13Schristos	DPRINTF("Wait for the tracer to attach to the tracee\n");
5681.1Skamil	PARENT_FROM_CHILD("Message 1", parent_tracer, msg);
5691.13Schristos	DPRINTF("Resume the tracee and let it exit\n");
5701.1Skamil	PARENT_TO_CHILD("Message 1", parent_tracee, msg);
5711.1Skamil
5721.13Schristos	DPRINTF("Detect that tracee is zombie\n");
5731.1Skamil	await_zombie(tracee);
5741.1Skamil
5751.13Schristos	DPRINTF("Assert that there is no status about tracee - "
5761.1Skamil	    "Tracer must detect zombie first - calling %s()\n", TWAIT_FNAME);
5771.1Skamil	TWAIT_REQUIRE_SUCCESS(
5781.1Skamil	    wpid = TWAIT_GENERIC(tracee, &status, WNOHANG), 0);
5791.1Skamil
5801.13Schristos	DPRINTF("Resume the tracer and let it detect exited tracee\n");
5811.1Skamil	PARENT_TO_CHILD("Message 2", parent_tracer, msg);
5821.1Skamil
5831.13Schristos	DPRINTF("Wait for tracee to finish its job and exit - calling %s()\n",
5841.1Skamil	    TWAIT_FNAME);
5851.24Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(tracee, &status, 0),
5861.1Skamil	    tracee);
5871.1Skamil
5881.1Skamil	validate_status_exited(status, exitval_tracee);
5891.1Skamil
5901.1Skamil	msg_close(&parent_tracer);
5911.1Skamil	msg_close(&parent_tracee);
5921.1Skamil}
5931.1Skamil#endif
5941.1Skamil
5951.1SkamilATF_TC(attach3);
5961.1SkamilATF_TC_HEAD(attach3, tc)
5971.1Skamil{
5981.1Skamil	atf_tc_set_md_var(tc, "descr",
5991.1Skamil	    "Assert that tracer parent can PT_ATTACH to its child");
6001.1Skamil}
6011.1Skamil
6021.1SkamilATF_TC_BODY(attach3, tc)
6031.1Skamil{
6041.1Skamil	struct msg_fds parent_tracee;
6051.1Skamil	const int exitval_tracee = 5;
6061.1Skamil	pid_t tracee, wpid;
6071.1Skamil	uint8_t msg = 0xde; /* dummy message for IPC based on pipe(2) */
6081.1Skamil#if defined(TWAIT_HAVE_STATUS)
6091.1Skamil	int status;
6101.1Skamil#endif
6111.1Skamil
6121.13Schristos	DPRINTF("Spawn tracee\n");
6131.13Schristos	SYSCALL_REQUIRE(msg_open(&parent_tracee) == 0);
6141.1Skamil	tracee = atf_utils_fork();
6151.1Skamil	if (tracee == 0) {
6161.1Skamil		CHILD_FROM_PARENT("Message 1", parent_tracee, msg);
6171.13Schristos		DPRINTF("Parent should now attach to tracee\n");
6181.1Skamil
6191.1Skamil		CHILD_FROM_PARENT("Message 2", parent_tracee, msg);
6201.1Skamil		/* Wait for message from the parent */
6211.1Skamil		_exit(exitval_tracee);
6221.1Skamil	}
6231.1Skamil	PARENT_TO_CHILD("Message 1", parent_tracee, msg);
6241.1Skamil
6251.13Schristos	DPRINTF("Before calling PT_ATTACH for tracee %d\n", tracee);
6261.13Schristos	SYSCALL_REQUIRE(ptrace(PT_ATTACH, tracee, NULL, 0) != -1);
6271.1Skamil
6281.13Schristos	DPRINTF("Wait for the stopped tracee process with %s()\n",
6291.1Skamil	    TWAIT_FNAME);
6301.1Skamil	TWAIT_REQUIRE_SUCCESS(
6311.1Skamil	    wpid = TWAIT_GENERIC(tracee, &status, 0), tracee);
6321.1Skamil
6331.1Skamil	validate_status_stopped(status, SIGSTOP);
6341.1Skamil
6351.13Schristos	DPRINTF("Resume tracee with PT_CONTINUE\n");
6361.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, tracee, (void *)1, 0) != -1);
6371.1Skamil
6381.13Schristos	DPRINTF("Let the tracee exit now\n");
6391.1Skamil	PARENT_TO_CHILD("Message 2", parent_tracee, msg);
6401.1Skamil
6411.13Schristos	DPRINTF("Wait for tracee to exit with %s()\n", TWAIT_FNAME);
6421.1Skamil	TWAIT_REQUIRE_SUCCESS(
6431.1Skamil	    wpid = TWAIT_GENERIC(tracee, &status, 0), tracee);
6441.1Skamil
6451.1Skamil	validate_status_exited(status, exitval_tracee);
6461.1Skamil
6471.13Schristos	DPRINTF("Before calling %s() for tracee\n", TWAIT_FNAME);
6481.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD,
6491.1Skamil	    wpid = TWAIT_GENERIC(tracee, &status, 0));
6501.1Skamil
6511.1Skamil	msg_close(&parent_tracee);
6521.1Skamil}
6531.1Skamil
6541.1SkamilATF_TC(attach4);
6551.1SkamilATF_TC_HEAD(attach4, tc)
6561.1Skamil{
6571.1Skamil	atf_tc_set_md_var(tc, "descr",
6581.1Skamil	    "Assert that tracer child can PT_ATTACH to its parent");
6591.1Skamil}
6601.1Skamil
6611.1SkamilATF_TC_BODY(attach4, tc)
6621.1Skamil{
6631.1Skamil	struct msg_fds parent_tracee;
6641.1Skamil	const int exitval_tracer = 5;
6651.1Skamil	pid_t tracer, wpid;
6661.1Skamil	uint8_t msg = 0xde; /* dummy message for IPC based on pipe(2) */
6671.1Skamil#if defined(TWAIT_HAVE_STATUS)
6681.1Skamil	int status;
6691.1Skamil#endif
6701.1Skamil
6711.13Schristos	DPRINTF("Spawn tracer\n");
6721.13Schristos	SYSCALL_REQUIRE(msg_open(&parent_tracee) == 0);
6731.1Skamil	tracer = atf_utils_fork();
6741.1Skamil	if (tracer == 0) {
6751.1Skamil
6761.1Skamil		/* Wait for message from the parent */
6771.1Skamil		CHILD_FROM_PARENT("Message 1", parent_tracee, msg);
6781.1Skamil
6791.13Schristos		DPRINTF("Attach to parent PID %d with PT_ATTACH from child\n",
6801.1Skamil		    getppid());
6811.1Skamil		FORKEE_ASSERT(ptrace(PT_ATTACH, getppid(), NULL, 0) != -1);
6821.1Skamil
6831.13Schristos		DPRINTF("Wait for the stopped parent process with %s()\n",
6841.1Skamil		    TWAIT_FNAME);
6851.1Skamil		FORKEE_REQUIRE_SUCCESS(
6861.1Skamil		    wpid = TWAIT_GENERIC(getppid(), &status, 0), getppid());
6871.1Skamil
6881.1Skamil		forkee_status_stopped(status, SIGSTOP);
6891.1Skamil
6901.13Schristos		DPRINTF("Resume parent with PT_DETACH\n");
6911.1Skamil		FORKEE_ASSERT(ptrace(PT_DETACH, getppid(), (void *)1, 0)
6921.1Skamil		    != -1);
6931.1Skamil
6941.1Skamil		/* Tell parent we are ready */
6951.1Skamil		CHILD_TO_PARENT("Message 1", parent_tracee, msg);
6961.1Skamil
6971.1Skamil		_exit(exitval_tracer);
6981.1Skamil	}
6991.1Skamil
7001.13Schristos	DPRINTF("Wait for the tracer to become ready\n");
7011.1Skamil	PARENT_TO_CHILD("Message 1", parent_tracee, msg);
7021.13Schristos	DPRINTF("Allow the tracer to exit now\n");
7031.1Skamil	PARENT_FROM_CHILD("Message 1", parent_tracee, msg);
7041.1Skamil
7051.13Schristos	DPRINTF("Wait for tracer to exit with %s()\n", TWAIT_FNAME);
7061.1Skamil	TWAIT_REQUIRE_SUCCESS(
7071.1Skamil	    wpid = TWAIT_GENERIC(tracer, &status, 0), tracer);
7081.1Skamil
7091.1Skamil	validate_status_exited(status, exitval_tracer);
7101.1Skamil
7111.13Schristos	DPRINTF("Before calling %s() for tracer\n", TWAIT_FNAME);
7121.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD,
7131.1Skamil	    wpid = TWAIT_GENERIC(tracer, &status, 0));
7141.1Skamil
7151.1Skamil	msg_close(&parent_tracee);
7161.1Skamil}
7171.1Skamil
7181.1Skamil#if defined(TWAIT_HAVE_PID)
7191.1SkamilATF_TC(attach5);
7201.1SkamilATF_TC_HEAD(attach5, tc)
7211.1Skamil{
7221.1Skamil	atf_tc_set_md_var(tc, "descr",
7231.1Skamil	    "Assert that tracer sees its parent when attached to tracer "
7241.1Skamil	    "(check getppid(2))");
7251.1Skamil}
7261.1Skamil
7271.1SkamilATF_TC_BODY(attach5, tc)
7281.1Skamil{
7291.1Skamil	struct msg_fds parent_tracer, parent_tracee;
7301.1Skamil	const int exitval_tracee = 5;
7311.1Skamil	const int exitval_tracer = 10;
7321.1Skamil	pid_t parent, tracee, tracer, wpid;
7331.1Skamil	uint8_t msg = 0xde; /* dummy message for IPC based on pipe(2) */
7341.1Skamil#if defined(TWAIT_HAVE_STATUS)
7351.1Skamil	int status;
7361.1Skamil#endif
7371.1Skamil
7381.13Schristos	DPRINTF("Spawn tracee\n");
7391.13Schristos	SYSCALL_REQUIRE(msg_open(&parent_tracer) == 0);
7401.13Schristos	SYSCALL_REQUIRE(msg_open(&parent_tracee) == 0);
7411.1Skamil	tracee = atf_utils_fork();
7421.1Skamil	if (tracee == 0) {
7431.1Skamil		parent = getppid();
7441.1Skamil
7451.1Skamil		/* Emit message to the parent */
7461.1Skamil		CHILD_TO_PARENT("tracee ready", parent_tracee, msg);
7471.1Skamil		CHILD_FROM_PARENT("exit tracee", parent_tracee, msg);
7481.1Skamil
7491.1Skamil		FORKEE_ASSERT_EQ(parent, getppid());
7501.1Skamil
7511.1Skamil		_exit(exitval_tracee);
7521.1Skamil	}
7531.13Schristos	DPRINTF("Wait for child to record its parent identifier (pid)\n");
7541.1Skamil	PARENT_FROM_CHILD("tracee ready", parent_tracee, msg);
7551.1Skamil
7561.13Schristos	DPRINTF("Spawn debugger\n");
7571.1Skamil	tracer = atf_utils_fork();
7581.1Skamil	if (tracer == 0) {
7591.1Skamil		/* No IPC to communicate with the child */
7601.13Schristos		DPRINTF("Before calling PT_ATTACH from tracee %d\n", getpid());
7611.1Skamil		FORKEE_ASSERT(ptrace(PT_ATTACH, tracee, NULL, 0) != -1);
7621.1Skamil
7631.1Skamil		/* Wait for tracee and assert that it was stopped w/ SIGSTOP */
7641.1Skamil		FORKEE_REQUIRE_SUCCESS(
7651.1Skamil		    wpid = TWAIT_GENERIC(tracee, &status, 0), tracee);
7661.1Skamil
7671.1Skamil		forkee_status_stopped(status, SIGSTOP);
7681.1Skamil
7691.1Skamil		/* Resume tracee with PT_CONTINUE */
7701.1Skamil		FORKEE_ASSERT(ptrace(PT_CONTINUE, tracee, (void *)1, 0) != -1);
7711.1Skamil
7721.1Skamil		/* Inform parent that tracer has attached to tracee */
7731.1Skamil		CHILD_TO_PARENT("tracer ready", parent_tracer, msg);
7741.1Skamil
7751.1Skamil		/* Wait for parent to tell use that tracee should have exited */
7761.1Skamil		CHILD_FROM_PARENT("wait for tracee exit", parent_tracer, msg);
7771.1Skamil
7781.1Skamil		/* Wait for tracee and assert that it exited */
7791.1Skamil		FORKEE_REQUIRE_SUCCESS(
7801.1Skamil		    wpid = TWAIT_GENERIC(tracee, &status, 0), tracee);
7811.1Skamil
7821.1Skamil		forkee_status_exited(status, exitval_tracee);
7831.1Skamil
7841.13Schristos		DPRINTF("Before exiting of the tracer process\n");
7851.1Skamil		_exit(exitval_tracer);
7861.1Skamil	}
7871.1Skamil
7881.13Schristos	DPRINTF("Wait for the tracer to attach to the tracee\n");
7891.1Skamil	PARENT_FROM_CHILD("tracer ready",  parent_tracer, msg);
7901.1Skamil
7911.13Schristos	DPRINTF("Resume the tracee and let it exit\n");
7921.1Skamil	PARENT_TO_CHILD("exit tracee",  parent_tracee, msg);
7931.1Skamil
7941.13Schristos	DPRINTF("Detect that tracee is zombie\n");
7951.1Skamil	await_zombie(tracee);
7961.1Skamil
7971.13Schristos	DPRINTF("Assert that there is no status about tracee - "
7981.1Skamil	    "Tracer must detect zombie first - calling %s()\n", TWAIT_FNAME);
7991.1Skamil	TWAIT_REQUIRE_SUCCESS(
8001.1Skamil	    wpid = TWAIT_GENERIC(tracee, &status, WNOHANG), 0);
8011.1Skamil
8021.13Schristos	DPRINTF("Tell the tracer child should have exited\n");
8031.1Skamil	PARENT_TO_CHILD("wait for tracee exit",  parent_tracer, msg);
8041.1Skamil
8051.13Schristos	DPRINTF("Wait from tracer child to complete waiting for tracee\n");
8061.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(tracer, &status, 0),
8071.1Skamil	    tracer);
8081.1Skamil
8091.1Skamil	validate_status_exited(status, exitval_tracer);
8101.1Skamil
8111.13Schristos	DPRINTF("Wait for tracee to finish its job and exit - calling %s()\n",
8121.1Skamil	    TWAIT_FNAME);
8131.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(tracee, &status, WNOHANG),
8141.1Skamil	    tracee);
8151.1Skamil
8161.1Skamil	validate_status_exited(status, exitval_tracee);
8171.1Skamil
8181.1Skamil	msg_close(&parent_tracer);
8191.1Skamil	msg_close(&parent_tracee);
8201.1Skamil}
8211.1Skamil#endif
8221.1Skamil
8231.1Skamil#if defined(TWAIT_HAVE_PID)
8241.1SkamilATF_TC(attach6);
8251.1SkamilATF_TC_HEAD(attach6, tc)
8261.1Skamil{
8271.1Skamil	atf_tc_set_md_var(tc, "descr",
8281.1Skamil	    "Assert that tracer sees its parent when attached to tracer "
8291.1Skamil	    "(check sysctl(7) and struct kinfo_proc2)");
8301.1Skamil}
8311.1Skamil
8321.1SkamilATF_TC_BODY(attach6, tc)
8331.1Skamil{
8341.1Skamil	struct msg_fds parent_tracee, parent_tracer;
8351.1Skamil	const int exitval_tracee = 5;
8361.1Skamil	const int exitval_tracer = 10;
8371.1Skamil	pid_t parent, tracee, tracer, wpid;
8381.1Skamil	uint8_t msg = 0xde; /* dummy message for IPC based on pipe(2) */
8391.1Skamil#if defined(TWAIT_HAVE_STATUS)
8401.1Skamil	int status;
8411.1Skamil#endif
8421.1Skamil	int name[CTL_MAXNAME];
8431.1Skamil	struct kinfo_proc2 kp;
8441.1Skamil	size_t len = sizeof(kp);
8451.1Skamil	unsigned int namelen;
8461.1Skamil
8471.13Schristos	DPRINTF("Spawn tracee\n");
8481.13Schristos	SYSCALL_REQUIRE(msg_open(&parent_tracee) == 0);
8491.13Schristos	SYSCALL_REQUIRE(msg_open(&parent_tracer) == 0);
8501.1Skamil	tracee = atf_utils_fork();
8511.1Skamil	if (tracee == 0) {
8521.1Skamil		parent = getppid();
8531.1Skamil
8541.1Skamil		/* Emit message to the parent */
8551.1Skamil		CHILD_TO_PARENT("Message 1", parent_tracee, msg);
8561.1Skamil		CHILD_FROM_PARENT("Message 2", parent_tracee, msg);
8571.1Skamil
8581.1Skamil		namelen = 0;
8591.1Skamil		name[namelen++] = CTL_KERN;
8601.1Skamil		name[namelen++] = KERN_PROC2;
8611.1Skamil		name[namelen++] = KERN_PROC_PID;
8621.1Skamil		name[namelen++] = getpid();
8631.1Skamil		name[namelen++] = len;
8641.1Skamil		name[namelen++] = 1;
8651.1Skamil
8661.1Skamil		FORKEE_ASSERT(sysctl(name, namelen, &kp, &len, NULL, 0) == 0);
8671.1Skamil		FORKEE_ASSERT_EQ(parent, kp.p_ppid);
8681.1Skamil
8691.1Skamil		_exit(exitval_tracee);
8701.1Skamil	}
8711.1Skamil
8721.13Schristos	DPRINTF("Wait for child to record its parent identifier (pid)\n");
8731.1Skamil	PARENT_FROM_CHILD("Message 1", parent_tracee, msg);
8741.1Skamil
8751.13Schristos	DPRINTF("Spawn debugger\n");
8761.1Skamil	tracer = atf_utils_fork();
8771.1Skamil	if (tracer == 0) {
8781.1Skamil		/* No IPC to communicate with the child */
8791.13Schristos		DPRINTF("Before calling PT_ATTACH from tracee %d\n", getpid());
8801.1Skamil		FORKEE_ASSERT(ptrace(PT_ATTACH, tracee, NULL, 0) != -1);
8811.1Skamil
8821.1Skamil		/* Wait for tracee and assert that it was stopped w/ SIGSTOP */
8831.1Skamil		FORKEE_REQUIRE_SUCCESS(
8841.1Skamil		    wpid = TWAIT_GENERIC(tracee, &status, 0), tracee);
8851.1Skamil
8861.1Skamil		forkee_status_stopped(status, SIGSTOP);
8871.1Skamil
8881.1Skamil		/* Resume tracee with PT_CONTINUE */
8891.1Skamil		FORKEE_ASSERT(ptrace(PT_CONTINUE, tracee, (void *)1, 0) != -1);
8901.1Skamil
8911.1Skamil		/* Inform parent that tracer has attached to tracee */
8921.1Skamil		CHILD_TO_PARENT("Message 1", parent_tracer, msg);
8931.1Skamil
8941.1Skamil		CHILD_FROM_PARENT("Message 2", parent_tracer, msg);
8951.1Skamil
8961.1Skamil		/* Wait for tracee and assert that it exited */
8971.1Skamil		FORKEE_REQUIRE_SUCCESS(
8981.1Skamil		    wpid = TWAIT_GENERIC(tracee, &status, 0), tracee);
8991.1Skamil
9001.1Skamil		forkee_status_exited(status, exitval_tracee);
9011.1Skamil
9021.13Schristos		DPRINTF("Before exiting of the tracer process\n");
9031.1Skamil		_exit(exitval_tracer);
9041.1Skamil	}
9051.1Skamil
9061.13Schristos	DPRINTF("Wait for the tracer to attach to the tracee\n");
9071.1Skamil	PARENT_FROM_CHILD("Message 1", parent_tracer, msg);
9081.1Skamil
9091.13Schristos	DPRINTF("Resume the tracee and let it exit\n");
9101.1Skamil	PARENT_TO_CHILD("Message 1", parent_tracee, msg);
9111.1Skamil
9121.13Schristos	DPRINTF("Detect that tracee is zombie\n");
9131.1Skamil	await_zombie(tracee);
9141.1Skamil
9151.13Schristos	DPRINTF("Assert that there is no status about tracee - "
9161.1Skamil	    "Tracer must detect zombie first - calling %s()\n", TWAIT_FNAME);
9171.1Skamil	TWAIT_REQUIRE_SUCCESS(
9181.1Skamil	    wpid = TWAIT_GENERIC(tracee, &status, WNOHANG), 0);
9191.1Skamil
9201.13Schristos	DPRINTF("Resume the tracer and let it detect exited tracee\n");
9211.1Skamil	PARENT_TO_CHILD("Message 2", parent_tracer, msg);
9221.1Skamil
9231.13Schristos	DPRINTF("Wait for tracer to finish its job and exit - calling %s()\n",
9241.1Skamil	    TWAIT_FNAME);
9251.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(tracer, &status, 0),
9261.1Skamil	    tracer);
9271.1Skamil
9281.1Skamil	validate_status_exited(status, exitval_tracer);
9291.1Skamil
9301.13Schristos	DPRINTF("Wait for tracee to finish its job and exit - calling %s()\n",
9311.1Skamil	    TWAIT_FNAME);
9321.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(tracee, &status, WNOHANG),
9331.1Skamil	    tracee);
9341.1Skamil
9351.1Skamil	validate_status_exited(status, exitval_tracee);
9361.1Skamil
9371.1Skamil	msg_close(&parent_tracee);
9381.1Skamil	msg_close(&parent_tracer);
9391.1Skamil}
9401.1Skamil#endif
9411.1Skamil
9421.1Skamil#if defined(TWAIT_HAVE_PID)
9431.1SkamilATF_TC(attach7);
9441.1SkamilATF_TC_HEAD(attach7, tc)
9451.1Skamil{
9461.1Skamil	atf_tc_set_md_var(tc, "descr",
9471.1Skamil	    "Assert that tracer sees its parent when attached to tracer "
9481.1Skamil	    "(check /proc/curproc/status 3rd column)");
9491.1Skamil}
9501.1Skamil
9511.1SkamilATF_TC_BODY(attach7, tc)
9521.1Skamil{
9531.1Skamil	struct msg_fds parent_tracee, parent_tracer;
9541.1Skamil	int rv;
9551.1Skamil	const int exitval_tracee = 5;
9561.1Skamil	const int exitval_tracer = 10;
9571.1Skamil	pid_t parent, tracee, tracer, wpid;
9581.1Skamil	uint8_t msg = 0xde; /* dummy message for IPC based on pipe(2) */
9591.1Skamil#if defined(TWAIT_HAVE_STATUS)
9601.1Skamil	int status;
9611.1Skamil#endif
9621.1Skamil	FILE *fp;
9631.1Skamil	struct stat st;
9641.1Skamil	const char *fname = "/proc/curproc/status";
9651.1Skamil	char s_executable[MAXPATHLEN];
9661.1Skamil	int s_pid, s_ppid;
9671.1Skamil	/*
9681.1Skamil	 * Format:
9691.1Skamil	 *  EXECUTABLE PID PPID ...
9701.1Skamil	 */
9711.1Skamil
9721.13Schristos	SYSCALL_REQUIRE((rv = stat(fname, &st)) == 0 || (errno == ENOENT));
9731.1Skamil	if (rv != 0) {
9741.1Skamil		atf_tc_skip("/proc/curproc/status not found");
9751.1Skamil	}
9761.1Skamil
9771.13Schristos	DPRINTF("Spawn tracee\n");
9781.13Schristos	SYSCALL_REQUIRE(msg_open(&parent_tracee) == 0);
9791.13Schristos	SYSCALL_REQUIRE(msg_open(&parent_tracer) == 0);
9801.1Skamil	tracee = atf_utils_fork();
9811.1Skamil	if (tracee == 0) {
9821.1Skamil		parent = getppid();
9831.1Skamil
9841.1Skamil		// Wait for parent to let us exit
9851.1Skamil		CHILD_TO_PARENT("tracee ready", parent_tracee, msg);
9861.1Skamil		CHILD_FROM_PARENT("tracee exit", parent_tracee, msg);
9871.1Skamil
9881.1Skamil		FORKEE_ASSERT((fp = fopen(fname, "r")) != NULL);
9891.1Skamil		fscanf(fp, "%s %d %d", s_executable, &s_pid, &s_ppid);
9901.1Skamil		FORKEE_ASSERT(fclose(fp) == 0);
9911.1Skamil		FORKEE_ASSERT_EQ(parent, s_ppid);
9921.1Skamil
9931.1Skamil		_exit(exitval_tracee);
9941.1Skamil	}
9951.1Skamil
9961.13Schristos	DPRINTF("Wait for child to record its parent identifier (pid)\n");
9971.1Skamil	PARENT_FROM_CHILD("tracee ready", parent_tracee, msg);
9981.1Skamil
9991.13Schristos	DPRINTF("Spawn debugger\n");
10001.1Skamil	tracer = atf_utils_fork();
10011.1Skamil	if (tracer == 0) {
10021.13Schristos		DPRINTF("Before calling PT_ATTACH from tracee %d\n", getpid());
10031.1Skamil		FORKEE_ASSERT(ptrace(PT_ATTACH, tracee, NULL, 0) != -1);
10041.1Skamil
10051.1Skamil		/* Wait for tracee and assert that it was stopped w/ SIGSTOP */
10061.1Skamil		FORKEE_REQUIRE_SUCCESS(
10071.1Skamil		    wpid = TWAIT_GENERIC(tracee, &status, 0), tracee);
10081.1Skamil
10091.1Skamil		forkee_status_stopped(status, SIGSTOP);
10101.1Skamil
10111.1Skamil		/* Resume tracee with PT_CONTINUE */
10121.1Skamil		FORKEE_ASSERT(ptrace(PT_CONTINUE, tracee, (void *)1, 0) != -1);
10131.1Skamil
10141.1Skamil		/* Inform parent that tracer has attached to tracee */
10151.1Skamil		CHILD_TO_PARENT("tracer ready", parent_tracer, msg);
10161.1Skamil
10171.1Skamil		/* Wait for parent to tell use that tracee should have exited */
10181.1Skamil		CHILD_FROM_PARENT("wait for tracee exit", parent_tracer, msg);
10191.1Skamil
10201.1Skamil		/* Wait for tracee and assert that it exited */
10211.1Skamil		FORKEE_REQUIRE_SUCCESS(
10221.1Skamil		    wpid = TWAIT_GENERIC(tracee, &status, 0), tracee);
10231.1Skamil
10241.1Skamil		forkee_status_exited(status, exitval_tracee);
10251.1Skamil
10261.13Schristos		DPRINTF("Before exiting of the tracer process\n");
10271.1Skamil		_exit(exitval_tracer);
10281.1Skamil	}
10291.13Schristos	DPRINTF("Wait for the tracer to attach to the tracee\n");
10301.1Skamil	PARENT_FROM_CHILD("tracer ready", parent_tracer, msg);
10311.13Schristos	DPRINTF("Resume the tracee and let it exit\n");
10321.1Skamil	PARENT_TO_CHILD("tracee exit", parent_tracee, msg);
10331.1Skamil
10341.13Schristos	DPRINTF("Detect that tracee is zombie\n");
10351.1Skamil	await_zombie(tracee);
10361.1Skamil
10371.13Schristos	DPRINTF("Assert that there is no status about tracee - "
10381.1Skamil	    "Tracer must detect zombie first - calling %s()\n", TWAIT_FNAME);
10391.1Skamil	TWAIT_REQUIRE_SUCCESS(
10401.1Skamil	    wpid = TWAIT_GENERIC(tracee, &status, WNOHANG), 0);
10411.1Skamil
10421.13Schristos	DPRINTF("Resume the tracer and let it detect exited tracee\n");
10431.1Skamil	PARENT_TO_CHILD("Message 2", parent_tracer, msg);
10441.1Skamil
10451.13Schristos	DPRINTF("Wait for tracer to finish its job and exit - calling %s()\n",
10461.1Skamil	    TWAIT_FNAME);
10471.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(tracer, &status, 0),
10481.1Skamil	    tracer);
10491.1Skamil
10501.1Skamil	validate_status_exited(status, exitval_tracer);
10511.1Skamil
10521.13Schristos	DPRINTF("Wait for tracee to finish its job and exit - calling %s()\n",
10531.1Skamil	    TWAIT_FNAME);
10541.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(tracee, &status, WNOHANG),
10551.1Skamil	    tracee);
10561.1Skamil
10571.1Skamil	validate_status_exited(status, exitval_tracee);
10581.1Skamil
10591.1Skamil	msg_close(&parent_tracee);
10601.1Skamil	msg_close(&parent_tracer);
10611.1Skamil}
10621.1Skamil#endif
10631.1Skamil
10641.1SkamilATF_TC(eventmask1);
10651.1SkamilATF_TC_HEAD(eventmask1, tc)
10661.1Skamil{
10671.1Skamil	atf_tc_set_md_var(tc, "descr",
10681.1Skamil	    "Verify that empty EVENT_MASK is preserved");
10691.1Skamil}
10701.1Skamil
10711.1SkamilATF_TC_BODY(eventmask1, tc)
10721.1Skamil{
10731.1Skamil	const int exitval = 5;
10741.1Skamil	const int sigval = SIGSTOP;
10751.1Skamil	pid_t child, wpid;
10761.1Skamil#if defined(TWAIT_HAVE_STATUS)
10771.1Skamil	int status;
10781.1Skamil#endif
10791.1Skamil	ptrace_event_t set_event, get_event;
10801.1Skamil	const int len = sizeof(ptrace_event_t);
10811.1Skamil
10821.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
10831.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
10841.1Skamil	if (child == 0) {
10851.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
10861.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
10871.1Skamil
10881.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
10891.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
10901.1Skamil
10911.13Schristos		DPRINTF("Before exiting of the child process\n");
10921.1Skamil		_exit(exitval);
10931.1Skamil	}
10941.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
10951.1Skamil
10961.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
10971.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
10981.1Skamil
10991.1Skamil	validate_status_stopped(status, sigval);
11001.1Skamil
11011.1Skamil	set_event.pe_set_event = 0;
11021.13Schristos	SYSCALL_REQUIRE(ptrace(PT_SET_EVENT_MASK, child, &set_event, len) != -1);
11031.13Schristos	SYSCALL_REQUIRE(ptrace(PT_GET_EVENT_MASK, child, &get_event, len) != -1);
11041.1Skamil	ATF_REQUIRE(memcmp(&set_event, &get_event, len) == 0);
11051.1Skamil
11061.13Schristos	DPRINTF("Before resuming the child process where it left off and "
11071.1Skamil	    "without signal to be sent\n");
11081.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
11091.1Skamil
11101.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
11111.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
11121.1Skamil
11131.1Skamil	validate_status_exited(status, exitval);
11141.1Skamil
11151.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
11161.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
11171.1Skamil}
11181.1Skamil
11191.1SkamilATF_TC(eventmask2);
11201.1SkamilATF_TC_HEAD(eventmask2, tc)
11211.1Skamil{
11221.1Skamil	atf_tc_set_md_var(tc, "descr",
11231.1Skamil	    "Verify that PTRACE_FORK in EVENT_MASK is preserved");
11241.1Skamil}
11251.1Skamil
11261.1SkamilATF_TC_BODY(eventmask2, tc)
11271.1Skamil{
11281.1Skamil	const int exitval = 5;
11291.1Skamil	const int sigval = SIGSTOP;
11301.1Skamil	pid_t child, wpid;
11311.1Skamil#if defined(TWAIT_HAVE_STATUS)
11321.1Skamil	int status;
11331.1Skamil#endif
11341.1Skamil	ptrace_event_t set_event, get_event;
11351.1Skamil	const int len = sizeof(ptrace_event_t);
11361.1Skamil
11371.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
11381.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
11391.1Skamil	if (child == 0) {
11401.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
11411.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
11421.1Skamil
11431.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
11441.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
11451.1Skamil
11461.13Schristos		DPRINTF("Before exiting of the child process\n");
11471.1Skamil		_exit(exitval);
11481.1Skamil	}
11491.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
11501.1Skamil
11511.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
11521.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
11531.1Skamil
11541.1Skamil	validate_status_stopped(status, sigval);
11551.1Skamil
11561.1Skamil	set_event.pe_set_event = PTRACE_FORK;
11571.13Schristos	SYSCALL_REQUIRE(ptrace(PT_SET_EVENT_MASK, child, &set_event, len) != -1);
11581.13Schristos	SYSCALL_REQUIRE(ptrace(PT_GET_EVENT_MASK, child, &get_event, len) != -1);
11591.1Skamil	ATF_REQUIRE(memcmp(&set_event, &get_event, len) == 0);
11601.1Skamil
11611.13Schristos	DPRINTF("Before resuming the child process where it left off and "
11621.1Skamil	    "without signal to be sent\n");
11631.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
11641.1Skamil
11651.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
11661.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
11671.1Skamil
11681.1Skamil	validate_status_exited(status, exitval);
11691.1Skamil
11701.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
11711.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
11721.1Skamil}
11731.1Skamil
11741.1SkamilATF_TC(eventmask3);
11751.1SkamilATF_TC_HEAD(eventmask3, tc)
11761.1Skamil{
11771.1Skamil	atf_tc_set_md_var(tc, "descr",
11781.1Skamil	    "Verify that PTRACE_VFORK in EVENT_MASK is preserved");
11791.1Skamil}
11801.1Skamil
11811.1SkamilATF_TC_BODY(eventmask3, tc)
11821.1Skamil{
11831.1Skamil	const int exitval = 5;
11841.1Skamil	const int sigval = SIGSTOP;
11851.1Skamil	pid_t child, wpid;
11861.1Skamil#if defined(TWAIT_HAVE_STATUS)
11871.1Skamil	int status;
11881.1Skamil#endif
11891.1Skamil	ptrace_event_t set_event, get_event;
11901.1Skamil	const int len = sizeof(ptrace_event_t);
11911.1Skamil
11921.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
11931.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
11941.1Skamil	if (child == 0) {
11951.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
11961.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
11971.1Skamil
11981.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
11991.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
12001.1Skamil
12011.13Schristos		DPRINTF("Before exiting of the child process\n");
12021.1Skamil		_exit(exitval);
12031.1Skamil	}
12041.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
12051.1Skamil
12061.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
12071.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
12081.1Skamil
12091.1Skamil	validate_status_stopped(status, sigval);
12101.1Skamil
12111.1Skamil	set_event.pe_set_event = PTRACE_VFORK;
12121.38Skamil	SYSCALL_REQUIRE(ptrace(PT_SET_EVENT_MASK, child, &set_event, len) != -1);
12131.13Schristos	SYSCALL_REQUIRE(ptrace(PT_GET_EVENT_MASK, child, &get_event, len) != -1);
12141.1Skamil	ATF_REQUIRE(memcmp(&set_event, &get_event, len) == 0);
12151.1Skamil
12161.13Schristos	DPRINTF("Before resuming the child process where it left off and "
12171.1Skamil	    "without signal to be sent\n");
12181.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
12191.1Skamil
12201.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
12211.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
12221.1Skamil
12231.1Skamil	validate_status_exited(status, exitval);
12241.1Skamil
12251.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
12261.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
12271.1Skamil}
12281.1Skamil
12291.1SkamilATF_TC(eventmask4);
12301.1SkamilATF_TC_HEAD(eventmask4, tc)
12311.1Skamil{
12321.1Skamil	atf_tc_set_md_var(tc, "descr",
12331.1Skamil	    "Verify that PTRACE_VFORK_DONE in EVENT_MASK is preserved");
12341.1Skamil}
12351.1Skamil
12361.1SkamilATF_TC_BODY(eventmask4, tc)
12371.1Skamil{
12381.1Skamil	const int exitval = 5;
12391.1Skamil	const int sigval = SIGSTOP;
12401.1Skamil	pid_t child, wpid;
12411.1Skamil#if defined(TWAIT_HAVE_STATUS)
12421.1Skamil	int status;
12431.1Skamil#endif
12441.1Skamil	ptrace_event_t set_event, get_event;
12451.1Skamil	const int len = sizeof(ptrace_event_t);
12461.1Skamil
12471.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
12481.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
12491.1Skamil	if (child == 0) {
12501.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
12511.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
12521.1Skamil
12531.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
12541.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
12551.1Skamil
12561.13Schristos		DPRINTF("Before exiting of the child process\n");
12571.1Skamil		_exit(exitval);
12581.1Skamil	}
12591.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
12601.1Skamil
12611.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
12621.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
12631.1Skamil
12641.1Skamil	validate_status_stopped(status, sigval);
12651.1Skamil
12661.1Skamil	set_event.pe_set_event = PTRACE_VFORK_DONE;
12671.13Schristos	SYSCALL_REQUIRE(ptrace(PT_SET_EVENT_MASK, child, &set_event, len) != -1);
12681.13Schristos	SYSCALL_REQUIRE(ptrace(PT_GET_EVENT_MASK, child, &get_event, len) != -1);
12691.1Skamil	ATF_REQUIRE(memcmp(&set_event, &get_event, len) == 0);
12701.1Skamil
12711.13Schristos	DPRINTF("Before resuming the child process where it left off and "
12721.1Skamil	    "without signal to be sent\n");
12731.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
12741.1Skamil
12751.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
12761.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
12771.1Skamil
12781.1Skamil	validate_status_exited(status, exitval);
12791.1Skamil
12801.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
12811.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
12821.1Skamil}
12831.1Skamil
12841.1SkamilATF_TC(eventmask5);
12851.1SkamilATF_TC_HEAD(eventmask5, tc)
12861.1Skamil{
12871.1Skamil	atf_tc_set_md_var(tc, "descr",
12881.1Skamil	    "Verify that PTRACE_LWP_CREATE in EVENT_MASK is preserved");
12891.1Skamil}
12901.1Skamil
12911.1SkamilATF_TC_BODY(eventmask5, tc)
12921.1Skamil{
12931.1Skamil	const int exitval = 5;
12941.1Skamil	const int sigval = SIGSTOP;
12951.1Skamil	pid_t child, wpid;
12961.1Skamil#if defined(TWAIT_HAVE_STATUS)
12971.1Skamil	int status;
12981.1Skamil#endif
12991.1Skamil	ptrace_event_t set_event, get_event;
13001.1Skamil	const int len = sizeof(ptrace_event_t);
13011.1Skamil
13021.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
13031.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
13041.1Skamil	if (child == 0) {
13051.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
13061.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
13071.1Skamil
13081.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
13091.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
13101.1Skamil
13111.13Schristos		DPRINTF("Before exiting of the child process\n");
13121.1Skamil		_exit(exitval);
13131.1Skamil	}
13141.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
13151.1Skamil
13161.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
13171.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
13181.1Skamil
13191.1Skamil	validate_status_stopped(status, sigval);
13201.1Skamil
13211.1Skamil	set_event.pe_set_event = PTRACE_LWP_CREATE;
13221.13Schristos	SYSCALL_REQUIRE(ptrace(PT_SET_EVENT_MASK, child, &set_event, len) != -1);
13231.13Schristos	SYSCALL_REQUIRE(ptrace(PT_GET_EVENT_MASK, child, &get_event, len) != -1);
13241.1Skamil	ATF_REQUIRE(memcmp(&set_event, &get_event, len) == 0);
13251.1Skamil
13261.13Schristos	DPRINTF("Before resuming the child process where it left off and "
13271.1Skamil	    "without signal to be sent\n");
13281.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
13291.1Skamil
13301.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
13311.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
13321.1Skamil
13331.1Skamil	validate_status_exited(status, exitval);
13341.1Skamil
13351.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
13361.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
13371.1Skamil}
13381.1Skamil
13391.1SkamilATF_TC(eventmask6);
13401.1SkamilATF_TC_HEAD(eventmask6, tc)
13411.1Skamil{
13421.1Skamil	atf_tc_set_md_var(tc, "descr",
13431.1Skamil	    "Verify that PTRACE_LWP_EXIT in EVENT_MASK is preserved");
13441.1Skamil}
13451.1Skamil
13461.1SkamilATF_TC_BODY(eventmask6, tc)
13471.1Skamil{
13481.1Skamil	const int exitval = 5;
13491.1Skamil	const int sigval = SIGSTOP;
13501.1Skamil	pid_t child, wpid;
13511.1Skamil#if defined(TWAIT_HAVE_STATUS)
13521.1Skamil	int status;
13531.1Skamil#endif
13541.1Skamil	ptrace_event_t set_event, get_event;
13551.1Skamil	const int len = sizeof(ptrace_event_t);
13561.1Skamil
13571.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
13581.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
13591.1Skamil	if (child == 0) {
13601.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
13611.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
13621.1Skamil
13631.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
13641.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
13651.1Skamil
13661.13Schristos		DPRINTF("Before exiting of the child process\n");
13671.1Skamil		_exit(exitval);
13681.1Skamil	}
13691.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
13701.1Skamil
13711.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
13721.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
13731.1Skamil
13741.1Skamil	validate_status_stopped(status, sigval);
13751.1Skamil
13761.1Skamil	set_event.pe_set_event = PTRACE_LWP_EXIT;
13771.13Schristos	SYSCALL_REQUIRE(ptrace(PT_SET_EVENT_MASK, child, &set_event, len) != -1);
13781.13Schristos	SYSCALL_REQUIRE(ptrace(PT_GET_EVENT_MASK, child, &get_event, len) != -1);
13791.1Skamil	ATF_REQUIRE(memcmp(&set_event, &get_event, len) == 0);
13801.1Skamil
13811.13Schristos	DPRINTF("Before resuming the child process where it left off and "
13821.1Skamil	    "without signal to be sent\n");
13831.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
13841.1Skamil
13851.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
13861.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
13871.1Skamil
13881.1Skamil	validate_status_exited(status, exitval);
13891.1Skamil
13901.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
13911.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
13921.1Skamil}
13931.1Skamil
13941.28Skamilstatic void
13951.32Skamilfork_body(pid_t (*fn)(void), bool trackfork, bool trackvfork,
13961.32Skamil          bool trackvforkdone, bool detachchild, bool detachparent)
13971.1Skamil{
13981.1Skamil	const int exitval = 5;
13991.1Skamil	const int exitval2 = 15;
14001.1Skamil	const int sigval = SIGSTOP;
14011.31Skamil	pid_t child, child2 = 0, wpid;
14021.1Skamil#if defined(TWAIT_HAVE_STATUS)
14031.1Skamil	int status;
14041.1Skamil#endif
14051.1Skamil	ptrace_state_t state;
14061.1Skamil	const int slen = sizeof(state);
14071.1Skamil	ptrace_event_t event;
14081.1Skamil	const int elen = sizeof(event);
14091.1Skamil
14101.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
14111.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
14121.1Skamil	if (child == 0) {
14131.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
14141.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
14151.1Skamil
14161.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
14171.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
14181.1Skamil
14191.30Skamil		FORKEE_ASSERT((child2 = (fn)()) != -1);
14201.1Skamil
14211.1Skamil		if (child2 == 0)
14221.1Skamil			_exit(exitval2);
14231.1Skamil
14241.1Skamil		FORKEE_REQUIRE_SUCCESS
14251.1Skamil		    (wpid = TWAIT_GENERIC(child2, &status, 0), child2);
14261.1Skamil
14271.1Skamil		forkee_status_exited(status, exitval2);
14281.1Skamil
14291.13Schristos		DPRINTF("Before exiting of the child process\n");
14301.1Skamil		_exit(exitval);
14311.1Skamil	}
14321.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
14331.1Skamil
14341.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
14351.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
14361.1Skamil
14371.1Skamil	validate_status_stopped(status, sigval);
14381.1Skamil
14391.30Skamil	DPRINTF("Set 0%s%s%s in EVENT_MASK for the child %d\n",
14401.30Skamil	        trackfork ? "|PTRACE_FORK" : "",
14411.30Skamil	        trackvfork ? "|PTRACE_VFORK" : "",
14421.30Skamil	        trackvforkdone ? "|PTRACE_VFORK_DONE" : "", child);
14431.30Skamil	event.pe_set_event = 0;
14441.30Skamil	if (trackfork)
14451.30Skamil		event.pe_set_event |= PTRACE_FORK;
14461.30Skamil	if (trackvfork)
14471.30Skamil		event.pe_set_event |= PTRACE_VFORK;
14481.30Skamil	if (trackvforkdone)
14491.30Skamil		event.pe_set_event |= PTRACE_VFORK_DONE;
14501.13Schristos	SYSCALL_REQUIRE(ptrace(PT_SET_EVENT_MASK, child, &event, elen) != -1);
14511.1Skamil
14521.13Schristos	DPRINTF("Before resuming the child process where it left off and "
14531.1Skamil	    "without signal to be sent\n");
14541.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
14551.1Skamil
14561.29Skamil#if defined(TWAIT_HAVE_PID)
14571.31Skamil	if ((trackfork && fn == fork) || (trackvfork && fn == vfork)) {
14581.29Skamil		DPRINTF("Before calling %s() for the child %d\n", TWAIT_FNAME,
14591.29Skamil		        child);
14601.29Skamil		TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0),
14611.29Skamil		                      child);
14621.1Skamil
14631.29Skamil		validate_status_stopped(status, SIGTRAP);
14641.1Skamil
14651.29Skamil		SYSCALL_REQUIRE(ptrace(PT_GET_PROCESS_STATE, child, &state,
14661.29Skamil		                       slen) != -1);
14671.31Skamil		if (trackfork && fn == fork) {
14681.30Skamil			ATF_REQUIRE_EQ(state.pe_report_event & PTRACE_FORK,
14691.30Skamil			       PTRACE_FORK);
14701.30Skamil		}
14711.31Skamil		if (trackvfork && fn == vfork) {
14721.30Skamil			ATF_REQUIRE_EQ(state.pe_report_event & PTRACE_VFORK,
14731.30Skamil			       PTRACE_VFORK);
14741.30Skamil		}
14751.29Skamil
14761.29Skamil		child2 = state.pe_other_pid;
14771.30Skamil		DPRINTF("Reported ptrace event with forkee %d\n", child2);
14781.29Skamil
14791.29Skamil		DPRINTF("Before calling %s() for the forkee %d of the child "
14801.29Skamil		        "%d\n", TWAIT_FNAME, child2, child);
14811.29Skamil		TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child2, &status, 0),
14821.29Skamil		    child2);
14831.1Skamil
14841.29Skamil		validate_status_stopped(status, SIGTRAP);
14851.1Skamil
14861.29Skamil		SYSCALL_REQUIRE(ptrace(PT_GET_PROCESS_STATE, child2, &state,
14871.29Skamil		                       slen) != -1);
14881.31Skamil		if (trackfork && fn == fork) {
14891.30Skamil			ATF_REQUIRE_EQ(state.pe_report_event & PTRACE_FORK,
14901.30Skamil			       PTRACE_FORK);
14911.30Skamil		}
14921.31Skamil		if (trackvfork && fn == vfork) {
14931.30Skamil			ATF_REQUIRE_EQ(state.pe_report_event & PTRACE_VFORK,
14941.30Skamil			       PTRACE_VFORK);
14951.30Skamil		}
14961.30Skamil
14971.29Skamil		ATF_REQUIRE_EQ(state.pe_other_pid, child);
14981.29Skamil
14991.29Skamil		DPRINTF("Before resuming the forkee process where it left off "
15001.29Skamil		    "and without signal to be sent\n");
15011.29Skamil		SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child2, (void *)1, 0)
15021.29Skamil		                != -1);
15031.29Skamil
15041.29Skamil		DPRINTF("Before resuming the child process where it left off "
15051.29Skamil		        "and without signal to be sent\n");
15061.29Skamil		SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
15071.30Skamil	}
15081.30Skamil#endif
15091.30Skamil
15101.31Skamil	if (trackvforkdone && fn == vfork) {
15111.30Skamil		DPRINTF("Before calling %s() for the child %d\n", TWAIT_FNAME,
15121.30Skamil		        child);
15131.30Skamil		TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0),
15141.30Skamil		                      child);
15151.30Skamil
15161.30Skamil		validate_status_stopped(status, SIGTRAP);
15171.30Skamil
15181.30Skamil		SYSCALL_REQUIRE(ptrace(PT_GET_PROCESS_STATE, child, &state,
15191.30Skamil		                       slen) != -1);
15201.30Skamil		ATF_REQUIRE_EQ(state.pe_report_event, PTRACE_VFORK_DONE);
15211.30Skamil
15221.30Skamil		child2 = state.pe_other_pid;
15231.30Skamil		DPRINTF("Reported PTRACE_VFORK_DONE event with forkee %d\n",
15241.30Skamil		        child2);
15251.30Skamil
15261.30Skamil		DPRINTF("Before resuming the child process where it left off "
15271.30Skamil		        "and without signal to be sent\n");
15281.30Skamil		SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
15291.30Skamil	}
15301.29Skamil
15311.30Skamil#if defined(TWAIT_HAVE_PID)
15321.31Skamil	if ((trackfork && fn == fork) || (trackvfork && fn == vfork)) {
15331.29Skamil		DPRINTF("Before calling %s() for the forkee - expected exited"
15341.29Skamil		        "\n", TWAIT_FNAME);
15351.29Skamil		TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child2, &status, 0),
15361.29Skamil		    child2);
15371.29Skamil
15381.29Skamil		validate_status_exited(status, exitval2);
15391.29Skamil
15401.29Skamil		DPRINTF("Before calling %s() for the forkee - expected no "
15411.29Skamil		        "process\n", TWAIT_FNAME);
15421.29Skamil		TWAIT_REQUIRE_FAILURE(ECHILD,
15431.29Skamil		    wpid = TWAIT_GENERIC(child2, &status, 0));
15441.29Skamil	}
15451.29Skamil#endif
15461.1Skamil
15471.13Schristos	DPRINTF("Before calling %s() for the child - expected stopped "
15481.1Skamil	    "SIGCHLD\n", TWAIT_FNAME);
15491.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
15501.1Skamil
15511.1Skamil	validate_status_stopped(status, SIGCHLD);
15521.1Skamil
15531.13Schristos	DPRINTF("Before resuming the child process where it left off and "
15541.1Skamil	    "without signal to be sent\n");
15551.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
15561.1Skamil
15571.13Schristos	DPRINTF("Before calling %s() for the child - expected exited\n",
15581.1Skamil	    TWAIT_FNAME);
15591.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
15601.1Skamil
15611.1Skamil	validate_status_exited(status, exitval);
15621.1Skamil
15631.13Schristos	DPRINTF("Before calling %s() for the child - expected no process\n",
15641.1Skamil	    TWAIT_FNAME);
15651.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
15661.1Skamil}
15671.28Skamil
15681.32Skamil#define FORK_TEST(name,descr,fun,tfork,tvfork,tvforkdone,detchild,detparent)	\
15691.32SkamilATF_TC(name);									\
15701.32SkamilATF_TC_HEAD(name, tc)								\
15711.32Skamil{										\
15721.32Skamil	atf_tc_set_md_var(tc, "descr", descr);					\
15731.32Skamil}										\
15741.32Skamil										\
15751.32SkamilATF_TC_BODY(name, tc)								\
15761.32Skamil{										\
15771.32Skamil										\
15781.32Skamil	fork_body(fun, tfork, tvfork, tvforkdone, detchild, detparent);		\
15791.32Skamil}
15801.32Skamil
15811.32Skamil#define F false
15821.32Skamil#define T true
15831.32Skamil
15841.32Skamil#define F_IF__0(x)
15851.32Skamil#define F_IF__1(x) x
15861.32Skamil#define F_IF__(x,y) F_IF__ ## x (y)
15871.32Skamil#define F_IF_(x,y) F_IF__(x,y)
15881.32Skamil#define F_IF(x,y) F_IF_(x,y)
15891.32Skamil
15901.32Skamil#define DSCR(function,forkbit,vforkbit,vforkdonebit,dchildbit,dparentbit)	\
15911.32Skamil        "Verify " #function "(2) called with 0"					\
15921.32Skamil        F_IF(forkbit,"|PTRACE_FORK")						\
15931.32Skamil        F_IF(vforkbit,"|PTRACE_VFORK")						\
15941.32Skamil        F_IF(vforkdonebit,"|PTRACE_VFORK_DONE")					\
15951.32Skamil        " in EVENT_MASK."							\
15961.32Skamil        F_IF(dchildbit," Detach child in this test.")				\
15971.32Skamil        F_IF(dparentbit," Detach parent in this test.")
15981.1Skamil
15991.32SkamilFORK_TEST(fork1, DSCR(fork,0,0,0,0,0), fork, F, F, F, F, F)
16001.31Skamil#if defined(TWAIT_HAVE_PID)
16011.32SkamilFORK_TEST(fork2, DSCR(fork,1,0,0,0,0), fork, T, F, F, F, F)
16021.32SkamilFORK_TEST(fork3, DSCR(fork,0,1,0,0,0), fork, F, T, F, F, F)
16031.32SkamilFORK_TEST(fork4, DSCR(fork,1,1,0,0,0), fork, T, T, F, F, F)
16041.31Skamil#endif
16051.32SkamilFORK_TEST(fork5, DSCR(fork,0,0,1,0,0), fork, F, F, T, F, F)
16061.31Skamil#if defined(TWAIT_HAVE_PID)
16071.32SkamilFORK_TEST(fork6, DSCR(fork,1,0,1,0,0), fork, T, F, T, F, F)
16081.32SkamilFORK_TEST(fork7, DSCR(fork,0,1,1,0,0), fork, F, T, T, F, F)
16091.32SkamilFORK_TEST(fork8, DSCR(fork,1,1,1,0,0), fork, T, T, T, F, F)
16101.31Skamil#endif
16111.1Skamil
16121.32SkamilFORK_TEST(vfork1, DSCR(vfork,0,0,0,0,0), vfork, F, F, F, F, F)
16131.31Skamil#if defined(TWAIT_HAVE_PID)
16141.32SkamilFORK_TEST(vfork2, DSCR(vfork,1,0,0,0,0), vfork, T, F, F, F, F)
16151.32SkamilFORK_TEST(vfork3, DSCR(vfork,0,1,0,0,0), vfork, F, T, F, F, F)
16161.32SkamilFORK_TEST(vfork4, DSCR(vfork,1,1,0,0,0), vfork, T, T, F, F, F)
16171.31Skamil#endif
16181.32SkamilFORK_TEST(vfork5, DSCR(vfork,0,0,1,0,0), vfork, F, F, T, F, F)
16191.31Skamil#if defined(TWAIT_HAVE_PID)
16201.32SkamilFORK_TEST(vfork6, DSCR(vfork,1,0,1,0,0), vfork, T, F, T, F, F)
16211.32SkamilFORK_TEST(vfork7, DSCR(vfork,0,1,1,0,0), vfork, F, T, T, F, F)
16221.32SkamilFORK_TEST(vfork8, DSCR(vfork,1,1,1,0,0), vfork, T, T, T, F, F)
16231.31Skamil#endif
16241.31Skamil
16251.31Skamil
16261.31Skamil
16271.1Skamil
16281.1SkamilATF_TC(io_read_d1);
16291.1SkamilATF_TC_HEAD(io_read_d1, tc)
16301.1Skamil{
16311.1Skamil	atf_tc_set_md_var(tc, "descr",
16321.1Skamil	    "Verify PT_IO with PIOD_READ_D and len = sizeof(uint8_t)");
16331.1Skamil}
16341.1Skamil
16351.1SkamilATF_TC_BODY(io_read_d1, tc)
16361.1Skamil{
16371.1Skamil	const int exitval = 5;
16381.1Skamil	const int sigval = SIGSTOP;
16391.1Skamil	pid_t child, wpid;
16401.1Skamil	uint8_t lookup_me = 0;
16411.1Skamil	const uint8_t magic = 0xab;
16421.1Skamil	struct ptrace_io_desc io = {
16431.1Skamil		.piod_op = PIOD_READ_D,
16441.1Skamil		.piod_offs = &lookup_me,
16451.1Skamil		.piod_addr = &lookup_me,
16461.1Skamil		.piod_len = sizeof(lookup_me)
16471.1Skamil	};
16481.1Skamil#if defined(TWAIT_HAVE_STATUS)
16491.1Skamil	int status;
16501.1Skamil#endif
16511.1Skamil
16521.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
16531.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
16541.1Skamil	if (child == 0) {
16551.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
16561.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
16571.1Skamil
16581.1Skamil		lookup_me = magic;
16591.1Skamil
16601.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
16611.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
16621.1Skamil
16631.13Schristos		DPRINTF("Before exiting of the child process\n");
16641.1Skamil		_exit(exitval);
16651.1Skamil	}
16661.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
16671.1Skamil
16681.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
16691.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
16701.1Skamil
16711.1Skamil	validate_status_stopped(status, sigval);
16721.1Skamil
16731.13Schristos	DPRINTF("Read lookup_me from tracee (PID=%d) by tracer (PID=%d)\n",
16741.1Skamil	    child, getpid());
16751.13Schristos	SYSCALL_REQUIRE(ptrace(PT_IO, child, &io, 0) != -1);
16761.1Skamil
16771.1Skamil	ATF_REQUIRE_EQ_MSG(lookup_me, magic,
16781.1Skamil	    "got value %" PRIx8 " != expected %" PRIx8, lookup_me, magic);
16791.1Skamil
16801.13Schristos	DPRINTF("Before resuming the child process where it left off and "
16811.1Skamil	    "without signal to be sent\n");
16821.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
16831.1Skamil
16841.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
16851.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
16861.1Skamil
16871.1Skamil	validate_status_exited(status, exitval);
16881.1Skamil
16891.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
16901.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
16911.1Skamil}
16921.1Skamil
16931.1SkamilATF_TC(io_read_d2);
16941.1SkamilATF_TC_HEAD(io_read_d2, tc)
16951.1Skamil{
16961.1Skamil	atf_tc_set_md_var(tc, "descr",
16971.1Skamil	    "Verify PT_IO with PIOD_READ_D and len = sizeof(uint16_t)");
16981.1Skamil}
16991.1Skamil
17001.1SkamilATF_TC_BODY(io_read_d2, tc)
17011.1Skamil{
17021.1Skamil	const int exitval = 5;
17031.1Skamil	const int sigval = SIGSTOP;
17041.1Skamil	pid_t child, wpid;
17051.1Skamil	uint16_t lookup_me = 0;
17061.1Skamil	const uint16_t magic = 0x1234;
17071.1Skamil	struct ptrace_io_desc io = {
17081.1Skamil		.piod_op = PIOD_READ_D,
17091.1Skamil		.piod_offs = &lookup_me,
17101.1Skamil		.piod_addr = &lookup_me,
17111.1Skamil		.piod_len = sizeof(lookup_me)
17121.1Skamil	};
17131.1Skamil#if defined(TWAIT_HAVE_STATUS)
17141.1Skamil	int status;
17151.1Skamil#endif
17161.1Skamil
17171.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
17181.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
17191.1Skamil	if (child == 0) {
17201.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
17211.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
17221.1Skamil
17231.1Skamil		lookup_me = magic;
17241.1Skamil
17251.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
17261.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
17271.1Skamil
17281.13Schristos		DPRINTF("Before exiting of the child process\n");
17291.1Skamil		_exit(exitval);
17301.1Skamil	}
17311.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
17321.1Skamil
17331.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
17341.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
17351.1Skamil
17361.1Skamil	validate_status_stopped(status, sigval);
17371.1Skamil
17381.13Schristos	DPRINTF("Read lookup_me from tracee (PID=%d) by tracer (PID=%d)\n",
17391.1Skamil	    child, getpid());
17401.13Schristos	SYSCALL_REQUIRE(ptrace(PT_IO, child, &io, 0) != -1);
17411.1Skamil
17421.1Skamil	ATF_REQUIRE_EQ_MSG(lookup_me, magic,
17431.1Skamil	    "got value %" PRIx16 " != expected %" PRIx16, lookup_me, magic);
17441.1Skamil
17451.13Schristos	DPRINTF("Before resuming the child process where it left off and "
17461.1Skamil	    "without signal to be sent\n");
17471.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
17481.1Skamil
17491.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
17501.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
17511.1Skamil
17521.1Skamil	validate_status_exited(status, exitval);
17531.1Skamil
17541.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
17551.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
17561.1Skamil}
17571.1Skamil
17581.1SkamilATF_TC(io_read_d3);
17591.1SkamilATF_TC_HEAD(io_read_d3, tc)
17601.1Skamil{
17611.1Skamil	atf_tc_set_md_var(tc, "descr",
17621.1Skamil	    "Verify PT_IO with PIOD_READ_D and len = sizeof(uint32_t)");
17631.1Skamil}
17641.1Skamil
17651.1SkamilATF_TC_BODY(io_read_d3, tc)
17661.1Skamil{
17671.1Skamil	const int exitval = 5;
17681.1Skamil	const int sigval = SIGSTOP;
17691.1Skamil	pid_t child, wpid;
17701.1Skamil	uint32_t lookup_me = 0;
17711.1Skamil	const uint32_t magic = 0x1234abcd;
17721.1Skamil	struct ptrace_io_desc io = {
17731.1Skamil		.piod_op = PIOD_READ_D,
17741.1Skamil		.piod_offs = &lookup_me,
17751.1Skamil		.piod_addr = &lookup_me,
17761.1Skamil		.piod_len = sizeof(lookup_me)
17771.1Skamil	};
17781.1Skamil#if defined(TWAIT_HAVE_STATUS)
17791.1Skamil	int status;
17801.1Skamil#endif
17811.1Skamil
17821.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
17831.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
17841.1Skamil	if (child == 0) {
17851.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
17861.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
17871.1Skamil
17881.1Skamil		lookup_me = magic;
17891.1Skamil
17901.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
17911.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
17921.1Skamil
17931.13Schristos		DPRINTF("Before exiting of the child process\n");
17941.1Skamil		_exit(exitval);
17951.1Skamil	}
17961.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
17971.1Skamil
17981.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
17991.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
18001.1Skamil
18011.1Skamil	validate_status_stopped(status, sigval);
18021.1Skamil
18031.13Schristos	DPRINTF("Read lookup_me from tracee (PID=%d) by tracer (PID=%d)\n",
18041.1Skamil	    child, getpid());
18051.13Schristos	SYSCALL_REQUIRE(ptrace(PT_IO, child, &io, 0) != -1);
18061.1Skamil
18071.1Skamil	ATF_REQUIRE_EQ_MSG(lookup_me, magic,
18081.1Skamil	    "got value %" PRIx32 " != expected %" PRIx32, lookup_me, magic);
18091.1Skamil
18101.13Schristos	DPRINTF("Before resuming the child process where it left off and "
18111.1Skamil	    "without signal to be sent\n");
18121.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
18131.1Skamil
18141.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
18151.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
18161.1Skamil
18171.1Skamil	validate_status_exited(status, exitval);
18181.1Skamil
18191.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
18201.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
18211.1Skamil}
18221.1Skamil
18231.1SkamilATF_TC(io_read_d4);
18241.1SkamilATF_TC_HEAD(io_read_d4, tc)
18251.1Skamil{
18261.1Skamil	atf_tc_set_md_var(tc, "descr",
18271.1Skamil	    "Verify PT_IO with PIOD_READ_D and len = sizeof(uint64_t)");
18281.1Skamil}
18291.1Skamil
18301.1SkamilATF_TC_BODY(io_read_d4, tc)
18311.1Skamil{
18321.1Skamil	const int exitval = 5;
18331.1Skamil	const int sigval = SIGSTOP;
18341.1Skamil	pid_t child, wpid;
18351.1Skamil	uint64_t lookup_me = 0;
18361.1Skamil	const uint64_t magic = 0x1234abcd9876dcfa;
18371.1Skamil	struct ptrace_io_desc io = {
18381.1Skamil		.piod_op = PIOD_READ_D,
18391.1Skamil		.piod_offs = &lookup_me,
18401.1Skamil		.piod_addr = &lookup_me,
18411.1Skamil		.piod_len = sizeof(lookup_me)
18421.1Skamil	};
18431.1Skamil#if defined(TWAIT_HAVE_STATUS)
18441.1Skamil	int status;
18451.1Skamil#endif
18461.1Skamil
18471.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
18481.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
18491.1Skamil	if (child == 0) {
18501.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
18511.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
18521.1Skamil
18531.1Skamil		lookup_me = magic;
18541.1Skamil
18551.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
18561.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
18571.1Skamil
18581.13Schristos		DPRINTF("Before exiting of the child process\n");
18591.1Skamil		_exit(exitval);
18601.1Skamil	}
18611.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
18621.1Skamil
18631.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
18641.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
18651.1Skamil
18661.1Skamil	validate_status_stopped(status, sigval);
18671.1Skamil
18681.13Schristos	DPRINTF("Read lookup_me from tracee (PID=%d) by tracer (PID=%d)\n",
18691.1Skamil	    child, getpid());
18701.13Schristos	SYSCALL_REQUIRE(ptrace(PT_IO, child, &io, 0) != -1);
18711.1Skamil
18721.1Skamil	ATF_REQUIRE_EQ_MSG(lookup_me, magic,
18731.1Skamil	    "got value %" PRIx64 " != expected %" PRIx64, lookup_me, magic);
18741.1Skamil
18751.13Schristos	DPRINTF("Before resuming the child process where it left off and "
18761.1Skamil	    "without signal to be sent\n");
18771.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
18781.1Skamil
18791.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
18801.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
18811.1Skamil
18821.1Skamil	validate_status_exited(status, exitval);
18831.1Skamil
18841.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
18851.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
18861.1Skamil}
18871.1Skamil
18881.1SkamilATF_TC(io_write_d1);
18891.1SkamilATF_TC_HEAD(io_write_d1, tc)
18901.1Skamil{
18911.1Skamil	atf_tc_set_md_var(tc, "descr",
18921.1Skamil	    "Verify PT_IO with PIOD_WRITE_D and len = sizeof(uint8_t)");
18931.1Skamil}
18941.1Skamil
18951.1SkamilATF_TC_BODY(io_write_d1, tc)
18961.1Skamil{
18971.1Skamil	const int exitval = 5;
18981.1Skamil	const int sigval = SIGSTOP;
18991.1Skamil	pid_t child, wpid;
19001.1Skamil	uint8_t lookup_me = 0;
19011.1Skamil	const uint8_t magic = 0xab;
19021.1Skamil	struct ptrace_io_desc io = {
19031.1Skamil		.piod_op = PIOD_WRITE_D,
19041.1Skamil		.piod_offs = &lookup_me,
19051.1Skamil		.piod_addr = &lookup_me,
19061.1Skamil		.piod_len = sizeof(lookup_me)
19071.1Skamil	};
19081.1Skamil#if defined(TWAIT_HAVE_STATUS)
19091.1Skamil	int status;
19101.1Skamil#endif
19111.1Skamil
19121.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
19131.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
19141.1Skamil	if (child == 0) {
19151.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
19161.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
19171.1Skamil
19181.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
19191.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
19201.1Skamil
19211.1Skamil		FORKEE_ASSERT_EQ(lookup_me, magic);
19221.1Skamil
19231.13Schristos		DPRINTF("Before exiting of the child process\n");
19241.1Skamil		_exit(exitval);
19251.1Skamil	}
19261.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
19271.1Skamil
19281.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
19291.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
19301.1Skamil
19311.1Skamil	validate_status_stopped(status, sigval);
19321.1Skamil
19331.1Skamil	lookup_me = magic;
19341.1Skamil
19351.13Schristos	DPRINTF("Write new lookup_me to tracee (PID=%d) from tracer (PID=%d)\n",
19361.1Skamil	    child, getpid());
19371.13Schristos	SYSCALL_REQUIRE(ptrace(PT_IO, child, &io, 0) != -1);
19381.1Skamil
19391.13Schristos	DPRINTF("Before resuming the child process where it left off and "
19401.1Skamil	    "without signal to be sent\n");
19411.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
19421.1Skamil
19431.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
19441.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
19451.1Skamil
19461.1Skamil	validate_status_exited(status, exitval);
19471.1Skamil
19481.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
19491.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
19501.1Skamil}
19511.1Skamil
19521.1SkamilATF_TC(io_write_d2);
19531.1SkamilATF_TC_HEAD(io_write_d2, tc)
19541.1Skamil{
19551.1Skamil	atf_tc_set_md_var(tc, "descr",
19561.1Skamil	    "Verify PT_IO with PIOD_WRITE_D and len = sizeof(uint16_t)");
19571.1Skamil}
19581.1Skamil
19591.1SkamilATF_TC_BODY(io_write_d2, tc)
19601.1Skamil{
19611.1Skamil	const int exitval = 5;
19621.1Skamil	const int sigval = SIGSTOP;
19631.1Skamil	pid_t child, wpid;
19641.1Skamil	uint16_t lookup_me = 0;
19651.1Skamil	const uint16_t magic = 0xab12;
19661.1Skamil	struct ptrace_io_desc io = {
19671.1Skamil		.piod_op = PIOD_WRITE_D,
19681.1Skamil		.piod_offs = &lookup_me,
19691.1Skamil		.piod_addr = &lookup_me,
19701.1Skamil		.piod_len = sizeof(lookup_me)
19711.1Skamil	};
19721.1Skamil#if defined(TWAIT_HAVE_STATUS)
19731.1Skamil	int status;
19741.1Skamil#endif
19751.1Skamil
19761.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
19771.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
19781.1Skamil	if (child == 0) {
19791.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
19801.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
19811.1Skamil
19821.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
19831.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
19841.1Skamil
19851.1Skamil		FORKEE_ASSERT_EQ(lookup_me, magic);
19861.1Skamil
19871.13Schristos		DPRINTF("Before exiting of the child process\n");
19881.1Skamil		_exit(exitval);
19891.1Skamil	}
19901.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
19911.1Skamil
19921.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
19931.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
19941.1Skamil
19951.1Skamil	validate_status_stopped(status, sigval);
19961.1Skamil
19971.1Skamil	lookup_me = magic;
19981.1Skamil
19991.13Schristos	DPRINTF("Write new lookup_me to tracee (PID=%d) from tracer (PID=%d)\n",
20001.1Skamil	    child, getpid());
20011.13Schristos	SYSCALL_REQUIRE(ptrace(PT_IO, child, &io, 0) != -1);
20021.1Skamil
20031.13Schristos	DPRINTF("Before resuming the child process where it left off and "
20041.1Skamil	    "without signal to be sent\n");
20051.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
20061.1Skamil
20071.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
20081.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
20091.1Skamil
20101.1Skamil	validate_status_exited(status, exitval);
20111.1Skamil
20121.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
20131.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
20141.1Skamil}
20151.1Skamil
20161.1SkamilATF_TC(io_write_d3);
20171.1SkamilATF_TC_HEAD(io_write_d3, tc)
20181.1Skamil{
20191.1Skamil	atf_tc_set_md_var(tc, "descr",
20201.1Skamil	    "Verify PT_IO with PIOD_WRITE_D and len = sizeof(uint32_t)");
20211.1Skamil}
20221.1Skamil
20231.1SkamilATF_TC_BODY(io_write_d3, tc)
20241.1Skamil{
20251.1Skamil	const int exitval = 5;
20261.1Skamil	const int sigval = SIGSTOP;
20271.1Skamil	pid_t child, wpid;
20281.1Skamil	uint32_t lookup_me = 0;
20291.1Skamil	const uint32_t magic = 0xab127643;
20301.1Skamil	struct ptrace_io_desc io = {
20311.1Skamil		.piod_op = PIOD_WRITE_D,
20321.1Skamil		.piod_offs = &lookup_me,
20331.1Skamil		.piod_addr = &lookup_me,
20341.1Skamil		.piod_len = sizeof(lookup_me)
20351.1Skamil	};
20361.1Skamil#if defined(TWAIT_HAVE_STATUS)
20371.1Skamil	int status;
20381.1Skamil#endif
20391.1Skamil
20401.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
20411.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
20421.1Skamil	if (child == 0) {
20431.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
20441.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
20451.1Skamil
20461.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
20471.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
20481.1Skamil
20491.1Skamil		FORKEE_ASSERT_EQ(lookup_me, magic);
20501.1Skamil
20511.13Schristos		DPRINTF("Before exiting of the child process\n");
20521.1Skamil		_exit(exitval);
20531.1Skamil	}
20541.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
20551.1Skamil
20561.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
20571.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
20581.1Skamil
20591.1Skamil	validate_status_stopped(status, sigval);
20601.1Skamil
20611.1Skamil	lookup_me = magic;
20621.1Skamil
20631.13Schristos	DPRINTF("Write new lookup_me to tracee (PID=%d) from tracer (PID=%d)\n",
20641.1Skamil	    child, getpid());
20651.13Schristos	SYSCALL_REQUIRE(ptrace(PT_IO, child, &io, 0) != -1);
20661.1Skamil
20671.13Schristos	DPRINTF("Before resuming the child process where it left off and "
20681.1Skamil	    "without signal to be sent\n");
20691.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
20701.1Skamil
20711.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
20721.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
20731.1Skamil
20741.1Skamil	validate_status_exited(status, exitval);
20751.1Skamil
20761.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
20771.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
20781.1Skamil}
20791.1Skamil
20801.1SkamilATF_TC(io_write_d4);
20811.1SkamilATF_TC_HEAD(io_write_d4, tc)
20821.1Skamil{
20831.1Skamil	atf_tc_set_md_var(tc, "descr",
20841.1Skamil	    "Verify PT_IO with PIOD_WRITE_D and len = sizeof(uint64_t)");
20851.1Skamil}
20861.1Skamil
20871.1SkamilATF_TC_BODY(io_write_d4, tc)
20881.1Skamil{
20891.1Skamil	const int exitval = 5;
20901.1Skamil	const int sigval = SIGSTOP;
20911.1Skamil	pid_t child, wpid;
20921.1Skamil	uint64_t lookup_me = 0;
20931.1Skamil	const uint64_t magic = 0xab12764376490123;
20941.1Skamil	struct ptrace_io_desc io = {
20951.1Skamil		.piod_op = PIOD_WRITE_D,
20961.1Skamil		.piod_offs = &lookup_me,
20971.1Skamil		.piod_addr = &lookup_me,
20981.1Skamil		.piod_len = sizeof(lookup_me)
20991.1Skamil	};
21001.1Skamil#if defined(TWAIT_HAVE_STATUS)
21011.1Skamil	int status;
21021.1Skamil#endif
21031.1Skamil
21041.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
21051.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
21061.1Skamil	if (child == 0) {
21071.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
21081.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
21091.1Skamil
21101.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
21111.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
21121.1Skamil
21131.1Skamil		FORKEE_ASSERT_EQ(lookup_me, magic);
21141.1Skamil
21151.13Schristos		DPRINTF("Before exiting of the child process\n");
21161.1Skamil		_exit(exitval);
21171.1Skamil	}
21181.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
21191.1Skamil
21201.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
21211.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
21221.1Skamil
21231.1Skamil	validate_status_stopped(status, sigval);
21241.1Skamil
21251.1Skamil	lookup_me = magic;
21261.1Skamil
21271.13Schristos	DPRINTF("Write new lookup_me to tracee (PID=%d) from tracer (PID=%d)\n",
21281.1Skamil	    child, getpid());
21291.13Schristos	SYSCALL_REQUIRE(ptrace(PT_IO, child, &io, 0) != -1);
21301.1Skamil
21311.13Schristos	DPRINTF("Before resuming the child process where it left off and "
21321.1Skamil	    "without signal to be sent\n");
21331.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
21341.1Skamil
21351.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
21361.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
21371.1Skamil
21381.1Skamil	validate_status_exited(status, exitval);
21391.1Skamil
21401.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
21411.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
21421.1Skamil}
21431.1Skamil
21441.1SkamilATF_TC(io_read_auxv1);
21451.1SkamilATF_TC_HEAD(io_read_auxv1, tc)
21461.1Skamil{
21471.1Skamil	atf_tc_set_md_var(tc, "descr",
21481.1Skamil	    "Verify PT_READ_AUXV called for tracee");
21491.1Skamil}
21501.1Skamil
21511.1SkamilATF_TC_BODY(io_read_auxv1, tc)
21521.1Skamil{
21531.1Skamil	const int exitval = 5;
21541.1Skamil	const int sigval = SIGSTOP;
21551.1Skamil	pid_t child, wpid;
21561.1Skamil#if defined(TWAIT_HAVE_STATUS)
21571.1Skamil	int status;
21581.1Skamil#endif
21591.1Skamil	AuxInfo ai[100], *aip;
21601.1Skamil	struct ptrace_io_desc io = {
21611.1Skamil		.piod_op = PIOD_READ_AUXV,
21621.1Skamil		.piod_offs = 0,
21631.1Skamil		.piod_addr = ai,
21641.1Skamil		.piod_len = sizeof(ai)
21651.1Skamil	};
21661.1Skamil
21671.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
21681.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
21691.1Skamil	if (child == 0) {
21701.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
21711.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
21721.1Skamil
21731.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
21741.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
21751.1Skamil
21761.13Schristos		DPRINTF("Before exiting of the child process\n");
21771.1Skamil		_exit(exitval);
21781.1Skamil	}
21791.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
21801.1Skamil
21811.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
21821.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
21831.1Skamil
21841.1Skamil	validate_status_stopped(status, sigval);
21851.1Skamil
21861.13Schristos	DPRINTF("Read new AUXV from tracee (PID=%d) by tracer (PID=%d)\n",
21871.1Skamil	    child, getpid());
21881.13Schristos	SYSCALL_REQUIRE(ptrace(PT_IO, child, &io, 0) != -1);
21891.1Skamil
21901.13Schristos	DPRINTF("Asserting that AUXV length (%zu) is > 0\n", io.piod_len);
21911.1Skamil	ATF_REQUIRE(io.piod_len > 0);
21921.1Skamil
21931.1Skamil	for (aip = ai; aip->a_type != AT_NULL; aip++)
21941.13Schristos		DPRINTF("a_type=%#llx a_v=%#llx\n",
21951.1Skamil		    (long long int)aip->a_type, (long long int)aip->a_v);
21961.1Skamil
21971.13Schristos	DPRINTF("Before resuming the child process where it left off and "
21981.1Skamil	    "without signal to be sent\n");
21991.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
22001.1Skamil
22011.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
22021.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
22031.1Skamil
22041.1Skamil	validate_status_exited(status, exitval);
22051.1Skamil
22061.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
22071.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
22081.1Skamil}
22091.1Skamil
22101.1SkamilATF_TC(read_d1);
22111.1SkamilATF_TC_HEAD(read_d1, tc)
22121.1Skamil{
22131.1Skamil	atf_tc_set_md_var(tc, "descr",
22141.1Skamil	    "Verify PT_READ_D called once");
22151.1Skamil}
22161.1Skamil
22171.1SkamilATF_TC_BODY(read_d1, tc)
22181.1Skamil{
22191.1Skamil	const int exitval = 5;
22201.1Skamil	const int sigval = SIGSTOP;
22211.1Skamil	pid_t child, wpid;
22221.1Skamil	int lookup_me = 0;
22231.1Skamil	const int magic = (int)random();
22241.1Skamil#if defined(TWAIT_HAVE_STATUS)
22251.1Skamil	int status;
22261.1Skamil#endif
22271.1Skamil
22281.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
22291.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
22301.1Skamil	if (child == 0) {
22311.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
22321.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
22331.1Skamil
22341.1Skamil		lookup_me = magic;
22351.1Skamil
22361.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
22371.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
22381.1Skamil
22391.13Schristos		DPRINTF("Before exiting of the child process\n");
22401.1Skamil		_exit(exitval);
22411.1Skamil	}
22421.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
22431.1Skamil
22441.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
22451.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
22461.1Skamil
22471.1Skamil	validate_status_stopped(status, sigval);
22481.1Skamil
22491.13Schristos	DPRINTF("Read new lookup_me from tracee (PID=%d) by tracer (PID=%d)\n",
22501.1Skamil	    child, getpid());
22511.1Skamil	errno = 0;
22521.1Skamil	lookup_me = ptrace(PT_READ_D, child, &lookup_me, 0);
22531.18Schristos	SYSCALL_REQUIRE_ERRNO(errno, 0);
22541.1Skamil
22551.1Skamil	ATF_REQUIRE_EQ_MSG(lookup_me, magic,
22561.1Skamil	    "got value %#x != expected %#x", lookup_me, magic);
22571.1Skamil
22581.13Schristos	DPRINTF("Before resuming the child process where it left off and "
22591.1Skamil	    "without signal to be sent\n");
22601.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
22611.1Skamil
22621.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
22631.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
22641.1Skamil
22651.1Skamil	validate_status_exited(status, exitval);
22661.1Skamil
22671.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
22681.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
22691.1Skamil}
22701.1Skamil
22711.1SkamilATF_TC(read_d2);
22721.1SkamilATF_TC_HEAD(read_d2, tc)
22731.1Skamil{
22741.1Skamil	atf_tc_set_md_var(tc, "descr",
22751.1Skamil	    "Verify PT_READ_D called twice");
22761.1Skamil}
22771.1Skamil
22781.1SkamilATF_TC_BODY(read_d2, tc)
22791.1Skamil{
22801.1Skamil	const int exitval = 5;
22811.1Skamil	const int sigval = SIGSTOP;
22821.1Skamil	pid_t child, wpid;
22831.1Skamil	int lookup_me1 = 0;
22841.1Skamil	int lookup_me2 = 0;
22851.1Skamil	const int magic1 = (int)random();
22861.1Skamil	const int magic2 = (int)random();
22871.1Skamil#if defined(TWAIT_HAVE_STATUS)
22881.1Skamil	int status;
22891.1Skamil#endif
22901.1Skamil
22911.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
22921.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
22931.1Skamil	if (child == 0) {
22941.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
22951.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
22961.1Skamil
22971.1Skamil		lookup_me1 = magic1;
22981.1Skamil		lookup_me2 = magic2;
22991.1Skamil
23001.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
23011.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
23021.1Skamil
23031.13Schristos		DPRINTF("Before exiting of the child process\n");
23041.1Skamil		_exit(exitval);
23051.1Skamil	}
23061.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
23071.1Skamil
23081.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
23091.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
23101.1Skamil
23111.1Skamil	validate_status_stopped(status, sigval);
23121.1Skamil
23131.13Schristos	DPRINTF("Read new lookup_me1 from tracee (PID=%d) by tracer (PID=%d)\n",
23141.1Skamil	    child, getpid());
23151.1Skamil	errno = 0;
23161.1Skamil	lookup_me1 = ptrace(PT_READ_D, child, &lookup_me1, 0);
23171.18Schristos	SYSCALL_REQUIRE_ERRNO(errno, 0);
23181.1Skamil
23191.1Skamil	ATF_REQUIRE_EQ_MSG(lookup_me1, magic1,
23201.1Skamil	    "got value %#x != expected %#x", lookup_me1, magic1);
23211.1Skamil
23221.13Schristos	DPRINTF("Read new lookup_me2 from tracee (PID=%d) by tracer (PID=%d)\n",
23231.1Skamil	    child, getpid());
23241.1Skamil	errno = 0;
23251.1Skamil	lookup_me2 = ptrace(PT_READ_D, child, &lookup_me2, 0);
23261.18Schristos	SYSCALL_REQUIRE_ERRNO(errno, 0);
23271.1Skamil
23281.1Skamil	ATF_REQUIRE_EQ_MSG(lookup_me2, magic2,
23291.1Skamil	    "got value %#x != expected %#x", lookup_me2, magic2);
23301.1Skamil
23311.13Schristos	DPRINTF("Before resuming the child process where it left off and "
23321.1Skamil	    "without signal to be sent\n");
23331.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
23341.1Skamil
23351.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
23361.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
23371.1Skamil
23381.1Skamil	validate_status_exited(status, exitval);
23391.1Skamil
23401.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
23411.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
23421.1Skamil}
23431.1Skamil
23441.1SkamilATF_TC(read_d3);
23451.1SkamilATF_TC_HEAD(read_d3, tc)
23461.1Skamil{
23471.1Skamil	atf_tc_set_md_var(tc, "descr",
23481.1Skamil	    "Verify PT_READ_D called three times");
23491.1Skamil}
23501.1Skamil
23511.1SkamilATF_TC_BODY(read_d3, tc)
23521.1Skamil{
23531.1Skamil	const int exitval = 5;
23541.1Skamil	const int sigval = SIGSTOP;
23551.1Skamil	pid_t child, wpid;
23561.1Skamil	int lookup_me1 = 0;
23571.1Skamil	int lookup_me2 = 0;
23581.1Skamil	int lookup_me3 = 0;
23591.1Skamil	const int magic1 = (int)random();
23601.1Skamil	const int magic2 = (int)random();
23611.1Skamil	const int magic3 = (int)random();
23621.1Skamil#if defined(TWAIT_HAVE_STATUS)
23631.1Skamil	int status;
23641.1Skamil#endif
23651.1Skamil
23661.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
23671.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
23681.1Skamil	if (child == 0) {
23691.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
23701.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
23711.1Skamil
23721.1Skamil		lookup_me1 = magic1;
23731.1Skamil		lookup_me2 = magic2;
23741.1Skamil		lookup_me3 = magic3;
23751.1Skamil
23761.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
23771.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
23781.1Skamil
23791.13Schristos		DPRINTF("Before exiting of the child process\n");
23801.1Skamil		_exit(exitval);
23811.1Skamil	}
23821.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
23831.1Skamil
23841.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
23851.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
23861.1Skamil
23871.1Skamil	validate_status_stopped(status, sigval);
23881.1Skamil
23891.13Schristos	DPRINTF("Read new lookup_me1 from tracee (PID=%d) by tracer (PID=%d)\n",
23901.1Skamil	    child, getpid());
23911.1Skamil	errno = 0;
23921.1Skamil	lookup_me1 = ptrace(PT_READ_D, child, &lookup_me1, 0);
23931.18Schristos	SYSCALL_REQUIRE_ERRNO(errno, 0);
23941.1Skamil
23951.1Skamil	ATF_REQUIRE_EQ_MSG(lookup_me1, magic1,
23961.1Skamil	    "got value %#x != expected %#x", lookup_me1, magic1);
23971.1Skamil
23981.13Schristos	DPRINTF("Read new lookup_me2 from tracee (PID=%d) by tracer (PID=%d)\n",
23991.1Skamil	    child, getpid());
24001.1Skamil	errno = 0;
24011.1Skamil	lookup_me2 = ptrace(PT_READ_D, child, &lookup_me2, 0);
24021.18Schristos	SYSCALL_REQUIRE_ERRNO(errno, 0);
24031.1Skamil
24041.1Skamil	ATF_REQUIRE_EQ_MSG(lookup_me2, magic2,
24051.1Skamil	    "got value %#x != expected %#x", lookup_me2, magic2);
24061.1Skamil
24071.13Schristos	DPRINTF("Read new lookup_me3 from tracee (PID=%d) by tracer (PID=%d)\n",
24081.1Skamil	    child, getpid());
24091.1Skamil	errno = 0;
24101.1Skamil	lookup_me3 = ptrace(PT_READ_D, child, &lookup_me3, 0);
24111.18Schristos	SYSCALL_REQUIRE_ERRNO(errno, 0);
24121.1Skamil
24131.1Skamil	ATF_REQUIRE_EQ_MSG(lookup_me3, magic3,
24141.1Skamil	    "got value %#x != expected %#x", lookup_me3, magic3);
24151.1Skamil
24161.13Schristos	DPRINTF("Before resuming the child process where it left off and "
24171.1Skamil	    "without signal to be sent\n");
24181.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
24191.1Skamil
24201.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
24211.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
24221.1Skamil
24231.1Skamil	validate_status_exited(status, exitval);
24241.1Skamil
24251.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
24261.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
24271.1Skamil}
24281.1Skamil
24291.1SkamilATF_TC(read_d4);
24301.1SkamilATF_TC_HEAD(read_d4, tc)
24311.1Skamil{
24321.1Skamil	atf_tc_set_md_var(tc, "descr",
24331.1Skamil	    "Verify PT_READ_D called four times");
24341.1Skamil}
24351.1Skamil
24361.1SkamilATF_TC_BODY(read_d4, tc)
24371.1Skamil{
24381.1Skamil	const int exitval = 5;
24391.1Skamil	const int sigval = SIGSTOP;
24401.1Skamil	pid_t child, wpid;
24411.1Skamil	int lookup_me1 = 0;
24421.1Skamil	int lookup_me2 = 0;
24431.1Skamil	int lookup_me3 = 0;
24441.1Skamil	int lookup_me4 = 0;
24451.1Skamil	const int magic1 = (int)random();
24461.1Skamil	const int magic2 = (int)random();
24471.1Skamil	const int magic3 = (int)random();
24481.1Skamil	const int magic4 = (int)random();
24491.1Skamil#if defined(TWAIT_HAVE_STATUS)
24501.1Skamil	int status;
24511.1Skamil#endif
24521.1Skamil
24531.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
24541.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
24551.1Skamil	if (child == 0) {
24561.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
24571.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
24581.1Skamil
24591.1Skamil		lookup_me1 = magic1;
24601.1Skamil		lookup_me2 = magic2;
24611.1Skamil		lookup_me3 = magic3;
24621.1Skamil		lookup_me4 = magic4;
24631.1Skamil
24641.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
24651.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
24661.1Skamil
24671.13Schristos		DPRINTF("Before exiting of the child process\n");
24681.1Skamil		_exit(exitval);
24691.1Skamil	}
24701.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
24711.1Skamil
24721.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
24731.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
24741.1Skamil
24751.1Skamil	validate_status_stopped(status, sigval);
24761.1Skamil
24771.13Schristos	DPRINTF("Read new lookup_me1 from tracee (PID=%d) by tracer (PID=%d)\n",
24781.1Skamil	    child, getpid());
24791.1Skamil	errno = 0;
24801.1Skamil	lookup_me1 = ptrace(PT_READ_D, child, &lookup_me1, 0);
24811.18Schristos	SYSCALL_REQUIRE_ERRNO(errno, 0);
24821.1Skamil
24831.1Skamil	ATF_REQUIRE_EQ_MSG(lookup_me1, magic1,
24841.1Skamil	    "got value %#x != expected %#x", lookup_me1, magic1);
24851.1Skamil
24861.13Schristos	DPRINTF("Read new lookup_me2 from tracee (PID=%d) by tracer (PID=%d)\n",
24871.1Skamil	    child, getpid());
24881.1Skamil	errno = 0;
24891.1Skamil	lookup_me2 = ptrace(PT_READ_D, child, &lookup_me2, 0);
24901.18Schristos	SYSCALL_REQUIRE_ERRNO(errno, 0);
24911.1Skamil
24921.1Skamil	ATF_REQUIRE_EQ_MSG(lookup_me2, magic2,
24931.1Skamil	    "got value %#x != expected %#x", lookup_me2, magic2);
24941.1Skamil
24951.13Schristos	DPRINTF("Read new lookup_me3 from tracee (PID=%d) by tracer (PID=%d)\n",
24961.1Skamil	    child, getpid());
24971.1Skamil	errno = 0;
24981.1Skamil	lookup_me3 = ptrace(PT_READ_D, child, &lookup_me3, 0);
24991.18Schristos	SYSCALL_REQUIRE_ERRNO(errno, 0);
25001.1Skamil
25011.1Skamil	ATF_REQUIRE_EQ_MSG(lookup_me3, magic3,
25021.1Skamil	    "got value %#x != expected %#x", lookup_me3, magic3);
25031.1Skamil
25041.13Schristos	DPRINTF("Read new lookup_me4 from tracee (PID=%d) by tracer (PID=%d)\n",
25051.1Skamil	    child, getpid());
25061.1Skamil	errno = 0;
25071.1Skamil	lookup_me4 = ptrace(PT_READ_D, child, &lookup_me4, 0);
25081.18Schristos	SYSCALL_REQUIRE_ERRNO(errno, 0);
25091.1Skamil
25101.1Skamil	ATF_REQUIRE_EQ_MSG(lookup_me4, magic4,
25111.1Skamil	    "got value %#x != expected %#x", lookup_me4, magic4);
25121.1Skamil
25131.13Schristos	DPRINTF("Before resuming the child process where it left off and "
25141.1Skamil	    "without signal to be sent\n");
25151.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
25161.1Skamil
25171.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
25181.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
25191.1Skamil
25201.1Skamil	validate_status_exited(status, exitval);
25211.1Skamil
25221.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
25231.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
25241.1Skamil}
25251.1Skamil
25261.1SkamilATF_TC(write_d1);
25271.1SkamilATF_TC_HEAD(write_d1, tc)
25281.1Skamil{
25291.1Skamil	atf_tc_set_md_var(tc, "descr",
25301.1Skamil	    "Verify PT_WRITE_D called once");
25311.1Skamil}
25321.1Skamil
25331.1SkamilATF_TC_BODY(write_d1, tc)
25341.1Skamil{
25351.1Skamil	const int exitval = 5;
25361.1Skamil	const int sigval = SIGSTOP;
25371.1Skamil	pid_t child, wpid;
25381.1Skamil	int lookup_me = 0;
25391.1Skamil	const int magic = (int)random();
25401.1Skamil#if defined(TWAIT_HAVE_STATUS)
25411.1Skamil	int status;
25421.1Skamil#endif
25431.1Skamil
25441.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
25451.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
25461.1Skamil	if (child == 0) {
25471.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
25481.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
25491.1Skamil
25501.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
25511.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
25521.1Skamil
25531.1Skamil		FORKEE_ASSERT_EQ(lookup_me, magic);
25541.1Skamil
25551.13Schristos		DPRINTF("Before exiting of the child process\n");
25561.1Skamil		_exit(exitval);
25571.1Skamil	}
25581.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
25591.1Skamil
25601.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
25611.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
25621.1Skamil
25631.1Skamil	validate_status_stopped(status, sigval);
25641.1Skamil
25651.13Schristos	DPRINTF("Write new lookup_me to tracee (PID=%d) from tracer (PID=%d)\n",
25661.1Skamil	    child, getpid());
25671.13Schristos	SYSCALL_REQUIRE(ptrace(PT_WRITE_D, child, &lookup_me, magic) != -1);
25681.1Skamil
25691.13Schristos	DPRINTF("Before resuming the child process where it left off and "
25701.1Skamil	    "without signal to be sent\n");
25711.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
25721.1Skamil
25731.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
25741.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
25751.1Skamil
25761.1Skamil	validate_status_exited(status, exitval);
25771.1Skamil
25781.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
25791.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
25801.1Skamil}
25811.1Skamil
25821.1SkamilATF_TC(write_d2);
25831.1SkamilATF_TC_HEAD(write_d2, tc)
25841.1Skamil{
25851.1Skamil	atf_tc_set_md_var(tc, "descr",
25861.1Skamil	    "Verify PT_WRITE_D called twice");
25871.1Skamil}
25881.1Skamil
25891.1SkamilATF_TC_BODY(write_d2, tc)
25901.1Skamil{
25911.1Skamil	const int exitval = 5;
25921.1Skamil	const int sigval = SIGSTOP;
25931.1Skamil	pid_t child, wpid;
25941.1Skamil	int lookup_me1 = 0;
25951.1Skamil	int lookup_me2 = 0;
25961.1Skamil	const int magic1 = (int)random();
25971.1Skamil	const int magic2 = (int)random();
25981.1Skamil#if defined(TWAIT_HAVE_STATUS)
25991.1Skamil	int status;
26001.1Skamil#endif
26011.1Skamil
26021.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
26031.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
26041.1Skamil	if (child == 0) {
26051.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
26061.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
26071.1Skamil
26081.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
26091.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
26101.1Skamil
26111.1Skamil		FORKEE_ASSERT_EQ(lookup_me1, magic1);
26121.1Skamil		FORKEE_ASSERT_EQ(lookup_me2, magic2);
26131.1Skamil
26141.13Schristos		DPRINTF("Before exiting of the child process\n");
26151.1Skamil		_exit(exitval);
26161.1Skamil	}
26171.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
26181.1Skamil
26191.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
26201.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
26211.1Skamil
26221.1Skamil	validate_status_stopped(status, sigval);
26231.1Skamil
26241.13Schristos	DPRINTF("Write new lookup_me1 to tracee (PID=%d) from tracer (PID=%d)\n",
26251.1Skamil	    child, getpid());
26261.13Schristos	SYSCALL_REQUIRE(ptrace(PT_WRITE_D, child, &lookup_me1, magic1) != -1);
26271.1Skamil
26281.13Schristos	DPRINTF("Write new lookup_me2 to tracee (PID=%d) from tracer (PID=%d)\n",
26291.1Skamil	    child, getpid());
26301.13Schristos	SYSCALL_REQUIRE(ptrace(PT_WRITE_D, child, &lookup_me2, magic2) != -1);
26311.1Skamil
26321.13Schristos	DPRINTF("Before resuming the child process where it left off and "
26331.1Skamil	    "without signal to be sent\n");
26341.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
26351.1Skamil
26361.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
26371.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
26381.1Skamil
26391.1Skamil	validate_status_exited(status, exitval);
26401.1Skamil
26411.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
26421.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
26431.1Skamil}
26441.1Skamil
26451.1SkamilATF_TC(write_d3);
26461.1SkamilATF_TC_HEAD(write_d3, tc)
26471.1Skamil{
26481.1Skamil	atf_tc_set_md_var(tc, "descr",
26491.1Skamil	    "Verify PT_WRITE_D called three times");
26501.1Skamil}
26511.1Skamil
26521.1SkamilATF_TC_BODY(write_d3, tc)
26531.1Skamil{
26541.1Skamil	const int exitval = 5;
26551.1Skamil	const int sigval = SIGSTOP;
26561.1Skamil	pid_t child, wpid;
26571.1Skamil	int lookup_me1 = 0;
26581.1Skamil	int lookup_me2 = 0;
26591.1Skamil	int lookup_me3 = 0;
26601.1Skamil	const int magic1 = (int)random();
26611.1Skamil	const int magic2 = (int)random();
26621.1Skamil	const int magic3 = (int)random();
26631.1Skamil#if defined(TWAIT_HAVE_STATUS)
26641.1Skamil	int status;
26651.1Skamil#endif
26661.1Skamil
26671.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
26681.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
26691.1Skamil	if (child == 0) {
26701.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
26711.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
26721.1Skamil
26731.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
26741.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
26751.1Skamil
26761.1Skamil		FORKEE_ASSERT_EQ(lookup_me1, magic1);
26771.1Skamil		FORKEE_ASSERT_EQ(lookup_me2, magic2);
26781.1Skamil		FORKEE_ASSERT_EQ(lookup_me3, magic3);
26791.1Skamil
26801.13Schristos		DPRINTF("Before exiting of the child process\n");
26811.1Skamil		_exit(exitval);
26821.1Skamil	}
26831.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
26841.1Skamil
26851.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
26861.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
26871.1Skamil
26881.1Skamil	validate_status_stopped(status, sigval);
26891.1Skamil
26901.13Schristos	DPRINTF("Write new lookup_me1 to tracee (PID=%d) from tracer (PID=%d)\n",
26911.1Skamil	    child, getpid());
26921.13Schristos	SYSCALL_REQUIRE(ptrace(PT_WRITE_D, child, &lookup_me1, magic1) != -1);
26931.1Skamil
26941.13Schristos	DPRINTF("Write new lookup_me2 to tracee (PID=%d) from tracer (PID=%d)\n",
26951.1Skamil	    child, getpid());
26961.13Schristos	SYSCALL_REQUIRE(ptrace(PT_WRITE_D, child, &lookup_me2, magic2) != -1);
26971.1Skamil
26981.13Schristos	DPRINTF("Write new lookup_me3 to tracee (PID=%d) from tracer (PID=%d)\n",
26991.1Skamil	    child, getpid());
27001.13Schristos	SYSCALL_REQUIRE(ptrace(PT_WRITE_D, child, &lookup_me3, magic3) != -1);
27011.1Skamil
27021.13Schristos	DPRINTF("Before resuming the child process where it left off and "
27031.1Skamil	    "without signal to be sent\n");
27041.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
27051.1Skamil
27061.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
27071.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
27081.1Skamil
27091.1Skamil	validate_status_exited(status, exitval);
27101.1Skamil
27111.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
27121.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
27131.1Skamil}
27141.1Skamil
27151.1SkamilATF_TC(write_d4);
27161.1SkamilATF_TC_HEAD(write_d4, tc)
27171.1Skamil{
27181.1Skamil	atf_tc_set_md_var(tc, "descr",
27191.1Skamil	    "Verify PT_WRITE_D called four times");
27201.1Skamil}
27211.1Skamil
27221.1SkamilATF_TC_BODY(write_d4, tc)
27231.1Skamil{
27241.1Skamil	const int exitval = 5;
27251.1Skamil	const int sigval = SIGSTOP;
27261.1Skamil	pid_t child, wpid;
27271.1Skamil	int lookup_me1 = 0;
27281.1Skamil	int lookup_me2 = 0;
27291.1Skamil	int lookup_me3 = 0;
27301.1Skamil	int lookup_me4 = 0;
27311.1Skamil	const int magic1 = (int)random();
27321.1Skamil	const int magic2 = (int)random();
27331.1Skamil	const int magic3 = (int)random();
27341.1Skamil	const int magic4 = (int)random();
27351.1Skamil#if defined(TWAIT_HAVE_STATUS)
27361.1Skamil	int status;
27371.1Skamil#endif
27381.1Skamil
27391.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
27401.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
27411.1Skamil	if (child == 0) {
27421.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
27431.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
27441.1Skamil
27451.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
27461.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
27471.1Skamil
27481.1Skamil		FORKEE_ASSERT_EQ(lookup_me1, magic1);
27491.1Skamil		FORKEE_ASSERT_EQ(lookup_me2, magic2);
27501.1Skamil		FORKEE_ASSERT_EQ(lookup_me3, magic3);
27511.1Skamil		FORKEE_ASSERT_EQ(lookup_me4, magic4);
27521.1Skamil
27531.13Schristos		DPRINTF("Before exiting of the child process\n");
27541.1Skamil		_exit(exitval);
27551.1Skamil	}
27561.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
27571.1Skamil
27581.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
27591.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
27601.1Skamil
27611.1Skamil	validate_status_stopped(status, sigval);
27621.1Skamil
27631.13Schristos	DPRINTF("Write new lookup_me1 to tracee (PID=%d) from tracer (PID=%d)\n",
27641.1Skamil	    child, getpid());
27651.13Schristos	SYSCALL_REQUIRE(ptrace(PT_WRITE_D, child, &lookup_me1, magic1) != -1);
27661.1Skamil
27671.13Schristos	DPRINTF("Write new lookup_me2 to tracee (PID=%d) from tracer (PID=%d)\n",
27681.1Skamil	    child, getpid());
27691.13Schristos	SYSCALL_REQUIRE(ptrace(PT_WRITE_D, child, &lookup_me2, magic2) != -1);
27701.1Skamil
27711.13Schristos	DPRINTF("Write new lookup_me3 to tracee (PID=%d) from tracer (PID=%d)\n",
27721.1Skamil	    child, getpid());
27731.13Schristos	SYSCALL_REQUIRE(ptrace(PT_WRITE_D, child, &lookup_me3, magic3) != -1);
27741.1Skamil
27751.13Schristos	DPRINTF("Write new lookup_me4 to tracee (PID=%d) from tracer (PID=%d)\n",
27761.1Skamil	    child, getpid());
27771.13Schristos	SYSCALL_REQUIRE(ptrace(PT_WRITE_D, child, &lookup_me4, magic4) != -1);
27781.1Skamil
27791.13Schristos	DPRINTF("Before resuming the child process where it left off and "
27801.1Skamil	    "without signal to be sent\n");
27811.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
27821.1Skamil
27831.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
27841.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
27851.1Skamil
27861.1Skamil	validate_status_exited(status, exitval);
27871.1Skamil
27881.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
27891.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
27901.1Skamil}
27911.1Skamil
27921.1SkamilATF_TC(io_read_d_write_d_handshake1);
27931.1SkamilATF_TC_HEAD(io_read_d_write_d_handshake1, tc)
27941.1Skamil{
27951.1Skamil	atf_tc_set_md_var(tc, "descr",
27961.1Skamil	    "Verify PT_IO with PIOD_READ_D and PIOD_WRITE_D handshake");
27971.1Skamil}
27981.1Skamil
27991.1SkamilATF_TC_BODY(io_read_d_write_d_handshake1, tc)
28001.1Skamil{
28011.1Skamil	const int exitval = 5;
28021.1Skamil	const int sigval = SIGSTOP;
28031.1Skamil	pid_t child, wpid;
28041.1Skamil	uint8_t lookup_me_fromtracee = 0;
28051.1Skamil	const uint8_t magic_fromtracee = (uint8_t)random();
28061.1Skamil	uint8_t lookup_me_totracee = 0;
28071.1Skamil	const uint8_t magic_totracee = (uint8_t)random();
28081.1Skamil	struct ptrace_io_desc io_fromtracee = {
28091.1Skamil		.piod_op = PIOD_READ_D,
28101.1Skamil		.piod_offs = &lookup_me_fromtracee,
28111.1Skamil		.piod_addr = &lookup_me_fromtracee,
28121.1Skamil		.piod_len = sizeof(lookup_me_fromtracee)
28131.1Skamil	};
28141.1Skamil	struct ptrace_io_desc io_totracee = {
28151.1Skamil		.piod_op = PIOD_WRITE_D,
28161.1Skamil		.piod_offs = &lookup_me_totracee,
28171.1Skamil		.piod_addr = &lookup_me_totracee,
28181.1Skamil		.piod_len = sizeof(lookup_me_totracee)
28191.1Skamil	};
28201.1Skamil#if defined(TWAIT_HAVE_STATUS)
28211.1Skamil	int status;
28221.1Skamil#endif
28231.1Skamil
28241.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
28251.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
28261.1Skamil	if (child == 0) {
28271.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
28281.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
28291.1Skamil
28301.1Skamil		lookup_me_fromtracee = magic_fromtracee;
28311.1Skamil
28321.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
28331.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
28341.1Skamil
28351.1Skamil		FORKEE_ASSERT_EQ(lookup_me_totracee, magic_totracee);
28361.1Skamil
28371.13Schristos		DPRINTF("Before exiting of the child process\n");
28381.1Skamil		_exit(exitval);
28391.1Skamil	}
28401.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
28411.1Skamil
28421.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
28431.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
28441.1Skamil
28451.1Skamil	validate_status_stopped(status, sigval);
28461.1Skamil
28471.13Schristos	DPRINTF("Read lookup_me_fromtracee PID=%d by tracer (PID=%d)\n",
28481.1Skamil	    child, getpid());
28491.13Schristos	SYSCALL_REQUIRE(ptrace(PT_IO, child, &io_fromtracee, 0) != -1);
28501.1Skamil
28511.1Skamil	ATF_REQUIRE_EQ_MSG(lookup_me_fromtracee, magic_fromtracee,
28521.1Skamil	    "got value %" PRIx8 " != expected %" PRIx8, lookup_me_fromtracee,
28531.1Skamil	    magic_fromtracee);
28541.1Skamil
28551.1Skamil	lookup_me_totracee = magic_totracee;
28561.1Skamil
28571.13Schristos	DPRINTF("Write lookup_me_totracee to PID=%d by tracer (PID=%d)\n",
28581.1Skamil	    child, getpid());
28591.13Schristos	SYSCALL_REQUIRE(ptrace(PT_IO, child, &io_totracee, 0) != -1);
28601.1Skamil
28611.1Skamil	ATF_REQUIRE_EQ_MSG(lookup_me_totracee, magic_totracee,
28621.1Skamil	    "got value %" PRIx8 " != expected %" PRIx8, lookup_me_totracee,
28631.1Skamil	    magic_totracee);
28641.1Skamil
28651.13Schristos	DPRINTF("Before resuming the child process where it left off and "
28661.1Skamil	    "without signal to be sent\n");
28671.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
28681.1Skamil
28691.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
28701.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
28711.1Skamil
28721.1Skamil	validate_status_exited(status, exitval);
28731.1Skamil
28741.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
28751.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
28761.1Skamil}
28771.1Skamil
28781.1SkamilATF_TC(io_read_d_write_d_handshake2);
28791.1SkamilATF_TC_HEAD(io_read_d_write_d_handshake2, tc)
28801.1Skamil{
28811.1Skamil	atf_tc_set_md_var(tc, "descr",
28821.1Skamil	    "Verify PT_IO with PIOD_WRITE_D and PIOD_READ_D handshake");
28831.1Skamil}
28841.1Skamil
28851.1SkamilATF_TC_BODY(io_read_d_write_d_handshake2, tc)
28861.1Skamil{
28871.1Skamil	const int exitval = 5;
28881.1Skamil	const int sigval = SIGSTOP;
28891.1Skamil	pid_t child, wpid;
28901.1Skamil	uint8_t lookup_me_fromtracee = 0;
28911.1Skamil	const uint8_t magic_fromtracee = (uint8_t)random();
28921.1Skamil	uint8_t lookup_me_totracee = 0;
28931.1Skamil	const uint8_t magic_totracee = (uint8_t)random();
28941.1Skamil	struct ptrace_io_desc io_fromtracee = {
28951.1Skamil		.piod_op = PIOD_READ_D,
28961.1Skamil		.piod_offs = &lookup_me_fromtracee,
28971.1Skamil		.piod_addr = &lookup_me_fromtracee,
28981.1Skamil		.piod_len = sizeof(lookup_me_fromtracee)
28991.1Skamil	};
29001.1Skamil	struct ptrace_io_desc io_totracee = {
29011.1Skamil		.piod_op = PIOD_WRITE_D,
29021.1Skamil		.piod_offs = &lookup_me_totracee,
29031.1Skamil		.piod_addr = &lookup_me_totracee,
29041.1Skamil		.piod_len = sizeof(lookup_me_totracee)
29051.1Skamil	};
29061.1Skamil#if defined(TWAIT_HAVE_STATUS)
29071.1Skamil	int status;
29081.1Skamil#endif
29091.1Skamil
29101.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
29111.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
29121.1Skamil	if (child == 0) {
29131.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
29141.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
29151.1Skamil
29161.1Skamil		lookup_me_fromtracee = magic_fromtracee;
29171.1Skamil
29181.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
29191.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
29201.1Skamil
29211.1Skamil		FORKEE_ASSERT_EQ(lookup_me_totracee, magic_totracee);
29221.1Skamil
29231.13Schristos		DPRINTF("Before exiting of the child process\n");
29241.1Skamil		_exit(exitval);
29251.1Skamil	}
29261.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
29271.1Skamil
29281.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
29291.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
29301.1Skamil
29311.1Skamil	validate_status_stopped(status, sigval);
29321.1Skamil
29331.1Skamil	lookup_me_totracee = magic_totracee;
29341.1Skamil
29351.13Schristos	DPRINTF("Write lookup_me_totracee to PID=%d by tracer (PID=%d)\n",
29361.1Skamil	    child, getpid());
29371.13Schristos	SYSCALL_REQUIRE(ptrace(PT_IO, child, &io_totracee, 0) != -1);
29381.1Skamil
29391.1Skamil	ATF_REQUIRE_EQ_MSG(lookup_me_totracee, magic_totracee,
29401.1Skamil	    "got value %" PRIx8 " != expected %" PRIx8, lookup_me_totracee,
29411.1Skamil	    magic_totracee);
29421.1Skamil
29431.13Schristos	DPRINTF("Read lookup_me_fromtracee PID=%d by tracer (PID=%d)\n",
29441.1Skamil	    child, getpid());
29451.13Schristos	SYSCALL_REQUIRE(ptrace(PT_IO, child, &io_fromtracee, 0) != -1);
29461.1Skamil
29471.1Skamil	ATF_REQUIRE_EQ_MSG(lookup_me_fromtracee, magic_fromtracee,
29481.1Skamil	    "got value %" PRIx8 " != expected %" PRIx8, lookup_me_fromtracee,
29491.1Skamil	    magic_fromtracee);
29501.1Skamil
29511.13Schristos	DPRINTF("Before resuming the child process where it left off and "
29521.1Skamil	    "without signal to be sent\n");
29531.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
29541.1Skamil
29551.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
29561.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
29571.1Skamil
29581.1Skamil	validate_status_exited(status, exitval);
29591.1Skamil
29601.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
29611.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
29621.1Skamil}
29631.1Skamil
29641.1SkamilATF_TC(read_d_write_d_handshake1);
29651.1SkamilATF_TC_HEAD(read_d_write_d_handshake1, tc)
29661.1Skamil{
29671.1Skamil	atf_tc_set_md_var(tc, "descr",
29681.1Skamil	    "Verify PT_READ_D with PT_WRITE_D handshake");
29691.1Skamil}
29701.1Skamil
29711.1SkamilATF_TC_BODY(read_d_write_d_handshake1, tc)
29721.1Skamil{
29731.1Skamil	const int exitval = 5;
29741.1Skamil	const int sigval = SIGSTOP;
29751.1Skamil	pid_t child, wpid;
29761.1Skamil	int lookup_me_fromtracee = 0;
29771.1Skamil	const int magic_fromtracee = (int)random();
29781.1Skamil	int lookup_me_totracee = 0;
29791.1Skamil	const int magic_totracee = (int)random();
29801.1Skamil#if defined(TWAIT_HAVE_STATUS)
29811.1Skamil	int status;
29821.1Skamil#endif
29831.1Skamil
29841.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
29851.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
29861.1Skamil	if (child == 0) {
29871.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
29881.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
29891.1Skamil
29901.1Skamil		lookup_me_fromtracee = magic_fromtracee;
29911.1Skamil
29921.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
29931.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
29941.1Skamil
29951.1Skamil		FORKEE_ASSERT_EQ(lookup_me_totracee, magic_totracee);
29961.1Skamil
29971.13Schristos		DPRINTF("Before exiting of the child process\n");
29981.1Skamil		_exit(exitval);
29991.1Skamil	}
30001.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
30011.1Skamil
30021.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
30031.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
30041.1Skamil
30051.1Skamil	validate_status_stopped(status, sigval);
30061.1Skamil
30071.13Schristos	DPRINTF("Read new lookup_me_fromtracee PID=%d by tracer (PID=%d)\n",
30081.1Skamil	    child, getpid());
30091.1Skamil	errno = 0;
30101.1Skamil	lookup_me_fromtracee =
30111.1Skamil	    ptrace(PT_READ_D, child, &lookup_me_fromtracee, 0);
30121.18Schristos	SYSCALL_REQUIRE_ERRNO(errno, 0);
30131.1Skamil
30141.1Skamil	ATF_REQUIRE_EQ_MSG(lookup_me_fromtracee, magic_fromtracee,
30151.1Skamil	    "got value %#x != expected %#x", lookup_me_fromtracee,
30161.1Skamil	    magic_fromtracee);
30171.1Skamil
30181.13Schristos	DPRINTF("Write new lookup_me_totracee to PID=%d from tracer (PID=%d)\n",
30191.1Skamil	    child, getpid());
30201.1Skamil	ATF_REQUIRE
30211.1Skamil	    (ptrace(PT_WRITE_D, child, &lookup_me_totracee, magic_totracee)
30221.1Skamil	    != -1);
30231.1Skamil
30241.13Schristos	DPRINTF("Before resuming the child process where it left off and "
30251.1Skamil	    "without signal to be sent\n");
30261.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
30271.1Skamil
30281.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
30291.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
30301.1Skamil
30311.1Skamil	validate_status_exited(status, exitval);
30321.1Skamil
30331.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
30341.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
30351.1Skamil}
30361.1Skamil
30371.1SkamilATF_TC(read_d_write_d_handshake2);
30381.1SkamilATF_TC_HEAD(read_d_write_d_handshake2, tc)
30391.1Skamil{
30401.1Skamil	atf_tc_set_md_var(tc, "descr",
30411.1Skamil	    "Verify PT_WRITE_D with PT_READ_D handshake");
30421.1Skamil}
30431.1Skamil
30441.1SkamilATF_TC_BODY(read_d_write_d_handshake2, tc)
30451.1Skamil{
30461.1Skamil	const int exitval = 5;
30471.1Skamil	const int sigval = SIGSTOP;
30481.1Skamil	pid_t child, wpid;
30491.1Skamil	int lookup_me_fromtracee = 0;
30501.1Skamil	const int magic_fromtracee = (int)random();
30511.1Skamil	int lookup_me_totracee = 0;
30521.1Skamil	const int magic_totracee = (int)random();
30531.1Skamil#if defined(TWAIT_HAVE_STATUS)
30541.1Skamil	int status;
30551.1Skamil#endif
30561.1Skamil
30571.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
30581.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
30591.1Skamil	if (child == 0) {
30601.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
30611.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
30621.1Skamil
30631.1Skamil		lookup_me_fromtracee = magic_fromtracee;
30641.1Skamil
30651.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
30661.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
30671.1Skamil
30681.1Skamil		FORKEE_ASSERT_EQ(lookup_me_totracee, magic_totracee);
30691.1Skamil
30701.13Schristos		DPRINTF("Before exiting of the child process\n");
30711.1Skamil		_exit(exitval);
30721.1Skamil	}
30731.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
30741.1Skamil
30751.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
30761.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
30771.1Skamil
30781.1Skamil	validate_status_stopped(status, sigval);
30791.1Skamil
30801.13Schristos	DPRINTF("Write new lookup_me_totracee to PID=%d from tracer (PID=%d)\n",
30811.1Skamil	    child, getpid());
30821.1Skamil	ATF_REQUIRE
30831.1Skamil	    (ptrace(PT_WRITE_D, child, &lookup_me_totracee, magic_totracee)
30841.1Skamil	    != -1);
30851.1Skamil
30861.13Schristos	DPRINTF("Read new lookup_me_fromtracee PID=%d by tracer (PID=%d)\n",
30871.1Skamil	    child, getpid());
30881.1Skamil	errno = 0;
30891.1Skamil	lookup_me_fromtracee =
30901.1Skamil	    ptrace(PT_READ_D, child, &lookup_me_fromtracee, 0);
30911.18Schristos	SYSCALL_REQUIRE_ERRNO(errno, 0);
30921.1Skamil
30931.1Skamil	ATF_REQUIRE_EQ_MSG(lookup_me_fromtracee, magic_fromtracee,
30941.1Skamil	    "got value %#x != expected %#x", lookup_me_fromtracee,
30951.1Skamil	    magic_fromtracee);
30961.1Skamil
30971.13Schristos	DPRINTF("Before resuming the child process where it left off and "
30981.1Skamil	    "without signal to be sent\n");
30991.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
31001.1Skamil
31011.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
31021.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
31031.1Skamil
31041.1Skamil	validate_status_exited(status, exitval);
31051.1Skamil
31061.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
31071.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
31081.1Skamil}
31091.1Skamil
31101.1Skamil/* These dummy functions are used to be copied with ptrace(2) calls */
31111.1Skamilstatic int __used
31121.1Skamildummy_fn1(int a, int b, int c, int d)
31131.1Skamil{
31141.1Skamil
31151.1Skamil	a *= 1;
31161.1Skamil	b += 2;
31171.1Skamil	c -= 3;
31181.1Skamil	d /= 4;
31191.1Skamil
31201.1Skamil	return a + b * c - d;
31211.1Skamil}
31221.1Skamil
31231.1Skamilstatic int __used
31241.1Skamildummy_fn2(int a, int b, int c, int d)
31251.1Skamil{
31261.1Skamil
31271.1Skamil	a *= 4;
31281.1Skamil	b += 3;
31291.1Skamil	c -= 2;
31301.1Skamil	d /= 1;
31311.1Skamil
31321.1Skamil	return a + b * c - d;
31331.1Skamil}
31341.1Skamil
31351.1Skamilstatic int __used
31361.1Skamildummy_fn3(int a, int b, int c, int d)
31371.1Skamil{
31381.1Skamil
31391.1Skamil	a *= 10;
31401.1Skamil	b += 20;
31411.1Skamil	c -= 30;
31421.1Skamil	d /= 40;
31431.1Skamil
31441.1Skamil	return a + b * c - d;
31451.1Skamil}
31461.1Skamil
31471.1Skamilstatic int __used
31481.1Skamildummy_fn4(int a, int b, int c, int d)
31491.1Skamil{
31501.1Skamil
31511.1Skamil	a *= 40;
31521.1Skamil	b += 30;
31531.1Skamil	c -= 20;
31541.1Skamil	d /= 10;
31551.1Skamil
31561.1Skamil	return a + b * c - d;
31571.1Skamil}
31581.1Skamil
31591.1SkamilATF_TC(io_read_i1);
31601.1SkamilATF_TC_HEAD(io_read_i1, tc)
31611.1Skamil{
31621.1Skamil	atf_tc_set_md_var(tc, "descr",
31631.1Skamil	    "Verify PT_IO with PIOD_READ_I and len = sizeof(uint8_t)");
31641.1Skamil}
31651.1Skamil
31661.1SkamilATF_TC_BODY(io_read_i1, tc)
31671.1Skamil{
31681.1Skamil	const int exitval = 5;
31691.1Skamil	const int sigval = SIGSTOP;
31701.1Skamil	pid_t child, wpid;
31711.1Skamil	uint8_t lookup_me = 0;
31721.1Skamil	uint8_t magic;
31731.1Skamil	memcpy(&magic, dummy_fn1, sizeof(magic));
31741.1Skamil	struct ptrace_io_desc io = {
31751.1Skamil		.piod_op = PIOD_READ_I,
31761.1Skamil		.piod_offs = dummy_fn1,
31771.1Skamil		.piod_addr = &lookup_me,
31781.1Skamil		.piod_len = sizeof(lookup_me)
31791.1Skamil	};
31801.1Skamil#if defined(TWAIT_HAVE_STATUS)
31811.1Skamil	int status;
31821.1Skamil#endif
31831.1Skamil
31841.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
31851.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
31861.1Skamil	if (child == 0) {
31871.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
31881.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
31891.1Skamil
31901.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
31911.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
31921.1Skamil
31931.13Schristos		DPRINTF("Before exiting of the child process\n");
31941.1Skamil		_exit(exitval);
31951.1Skamil	}
31961.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
31971.1Skamil
31981.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
31991.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
32001.1Skamil
32011.1Skamil	validate_status_stopped(status, sigval);
32021.1Skamil
32031.13Schristos	DPRINTF("Read lookup_me from tracee (PID=%d) by tracer (PID=%d)\n",
32041.1Skamil	    child, getpid());
32051.13Schristos	SYSCALL_REQUIRE(ptrace(PT_IO, child, &io, 0) != -1);
32061.1Skamil
32071.1Skamil	ATF_REQUIRE_EQ_MSG(lookup_me, magic,
32081.1Skamil	    "got value %" PRIx8 " != expected %" PRIx8, lookup_me, magic);
32091.1Skamil
32101.13Schristos	DPRINTF("Before resuming the child process where it left off and "
32111.1Skamil	    "without signal to be sent\n");
32121.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
32131.1Skamil
32141.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
32151.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
32161.1Skamil
32171.1Skamil	validate_status_exited(status, exitval);
32181.1Skamil
32191.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
32201.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
32211.1Skamil}
32221.1Skamil
32231.1SkamilATF_TC(io_read_i2);
32241.1SkamilATF_TC_HEAD(io_read_i2, tc)
32251.1Skamil{
32261.1Skamil	atf_tc_set_md_var(tc, "descr",
32271.1Skamil	    "Verify PT_IO with PIOD_READ_I and len = sizeof(uint16_t)");
32281.1Skamil}
32291.1Skamil
32301.1SkamilATF_TC_BODY(io_read_i2, tc)
32311.1Skamil{
32321.1Skamil	const int exitval = 5;
32331.1Skamil	const int sigval = SIGSTOP;
32341.1Skamil	pid_t child, wpid;
32351.1Skamil	uint16_t lookup_me = 0;
32361.1Skamil	uint16_t magic;
32371.1Skamil	memcpy(&magic, dummy_fn1, sizeof(magic));
32381.1Skamil	struct ptrace_io_desc io = {
32391.1Skamil		.piod_op = PIOD_READ_I,
32401.1Skamil		.piod_offs = dummy_fn1,
32411.1Skamil		.piod_addr = &lookup_me,
32421.1Skamil		.piod_len = sizeof(lookup_me)
32431.1Skamil	};
32441.1Skamil#if defined(TWAIT_HAVE_STATUS)
32451.1Skamil	int status;
32461.1Skamil#endif
32471.1Skamil
32481.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
32491.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
32501.1Skamil	if (child == 0) {
32511.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
32521.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
32531.1Skamil
32541.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
32551.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
32561.1Skamil
32571.13Schristos		DPRINTF("Before exiting of the child process\n");
32581.1Skamil		_exit(exitval);
32591.1Skamil	}
32601.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
32611.1Skamil
32621.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
32631.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
32641.1Skamil
32651.1Skamil	validate_status_stopped(status, sigval);
32661.1Skamil
32671.13Schristos	DPRINTF("Read lookup_me from tracee (PID=%d) by tracer (PID=%d)\n",
32681.1Skamil	    child, getpid());
32691.13Schristos	SYSCALL_REQUIRE(ptrace(PT_IO, child, &io, 0) != -1);
32701.1Skamil
32711.1Skamil	ATF_REQUIRE_EQ_MSG(lookup_me, magic,
32721.1Skamil	    "got value %" PRIx16 " != expected %" PRIx16, lookup_me, magic);
32731.1Skamil
32741.13Schristos	DPRINTF("Before resuming the child process where it left off and "
32751.1Skamil	    "without signal to be sent\n");
32761.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
32771.1Skamil
32781.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
32791.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
32801.1Skamil
32811.1Skamil	validate_status_exited(status, exitval);
32821.1Skamil
32831.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
32841.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
32851.1Skamil}
32861.1Skamil
32871.1SkamilATF_TC(io_read_i3);
32881.1SkamilATF_TC_HEAD(io_read_i3, tc)
32891.1Skamil{
32901.1Skamil	atf_tc_set_md_var(tc, "descr",
32911.1Skamil	    "Verify PT_IO with PIOD_READ_I and len = sizeof(uint32_t)");
32921.1Skamil}
32931.1Skamil
32941.1SkamilATF_TC_BODY(io_read_i3, tc)
32951.1Skamil{
32961.1Skamil	const int exitval = 5;
32971.1Skamil	const int sigval = SIGSTOP;
32981.1Skamil	pid_t child, wpid;
32991.1Skamil	uint32_t lookup_me = 0;
33001.1Skamil	uint32_t magic;
33011.1Skamil	memcpy(&magic, dummy_fn1, sizeof(magic));
33021.1Skamil	struct ptrace_io_desc io = {
33031.1Skamil		.piod_op = PIOD_READ_I,
33041.1Skamil		.piod_offs = dummy_fn1,
33051.1Skamil		.piod_addr = &lookup_me,
33061.1Skamil		.piod_len = sizeof(lookup_me)
33071.1Skamil	};
33081.1Skamil#if defined(TWAIT_HAVE_STATUS)
33091.1Skamil	int status;
33101.1Skamil#endif
33111.1Skamil
33121.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
33131.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
33141.1Skamil	if (child == 0) {
33151.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
33161.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
33171.1Skamil
33181.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
33191.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
33201.1Skamil
33211.13Schristos		DPRINTF("Before exiting of the child process\n");
33221.1Skamil		_exit(exitval);
33231.1Skamil	}
33241.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
33251.1Skamil
33261.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
33271.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
33281.1Skamil
33291.1Skamil	validate_status_stopped(status, sigval);
33301.1Skamil
33311.13Schristos	DPRINTF("Read lookup_me from tracee (PID=%d) by tracer (PID=%d)\n",
33321.1Skamil	    child, getpid());
33331.13Schristos	SYSCALL_REQUIRE(ptrace(PT_IO, child, &io, 0) != -1);
33341.1Skamil
33351.1Skamil	ATF_REQUIRE_EQ_MSG(lookup_me, magic,
33361.1Skamil	    "got value %" PRIx32 " != expected %" PRIx32, lookup_me, magic);
33371.1Skamil
33381.13Schristos	DPRINTF("Before resuming the child process where it left off and "
33391.1Skamil	    "without signal to be sent\n");
33401.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
33411.1Skamil
33421.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
33431.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
33441.1Skamil
33451.1Skamil	validate_status_exited(status, exitval);
33461.1Skamil
33471.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
33481.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
33491.1Skamil}
33501.1Skamil
33511.1SkamilATF_TC(io_read_i4);
33521.1SkamilATF_TC_HEAD(io_read_i4, tc)
33531.1Skamil{
33541.1Skamil	atf_tc_set_md_var(tc, "descr",
33551.1Skamil	    "Verify PT_IO with PIOD_READ_I and len = sizeof(uint64_t)");
33561.1Skamil}
33571.1Skamil
33581.1SkamilATF_TC_BODY(io_read_i4, tc)
33591.1Skamil{
33601.1Skamil	const int exitval = 5;
33611.1Skamil	const int sigval = SIGSTOP;
33621.1Skamil	pid_t child, wpid;
33631.1Skamil	uint64_t lookup_me = 0;
33641.1Skamil	uint64_t magic;
33651.1Skamil	memcpy(&magic, dummy_fn1, sizeof(magic));
33661.1Skamil	struct ptrace_io_desc io = {
33671.1Skamil		.piod_op = PIOD_READ_I,
33681.1Skamil		.piod_offs = dummy_fn1,
33691.1Skamil		.piod_addr = &lookup_me,
33701.1Skamil		.piod_len = sizeof(lookup_me)
33711.1Skamil	};
33721.1Skamil#if defined(TWAIT_HAVE_STATUS)
33731.1Skamil	int status;
33741.1Skamil#endif
33751.1Skamil
33761.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
33771.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
33781.1Skamil	if (child == 0) {
33791.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
33801.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
33811.1Skamil
33821.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
33831.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
33841.1Skamil
33851.13Schristos		DPRINTF("Before exiting of the child process\n");
33861.1Skamil		_exit(exitval);
33871.1Skamil	}
33881.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
33891.1Skamil
33901.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
33911.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
33921.1Skamil
33931.1Skamil	validate_status_stopped(status, sigval);
33941.1Skamil
33951.13Schristos	DPRINTF("Read lookup_me from tracee (PID=%d) by tracer (PID=%d)\n",
33961.1Skamil	    child, getpid());
33971.13Schristos	SYSCALL_REQUIRE(ptrace(PT_IO, child, &io, 0) != -1);
33981.1Skamil
33991.1Skamil	ATF_REQUIRE_EQ_MSG(lookup_me, magic,
34001.1Skamil	    "got value %" PRIx64 " != expected %" PRIx64, lookup_me, magic);
34011.1Skamil
34021.13Schristos	DPRINTF("Before resuming the child process where it left off and "
34031.1Skamil	    "without signal to be sent\n");
34041.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
34051.1Skamil
34061.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
34071.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
34081.1Skamil
34091.1Skamil	validate_status_exited(status, exitval);
34101.1Skamil
34111.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
34121.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
34131.1Skamil}
34141.1Skamil
34151.1SkamilATF_TC(read_i1);
34161.1SkamilATF_TC_HEAD(read_i1, tc)
34171.1Skamil{
34181.1Skamil	atf_tc_set_md_var(tc, "descr",
34191.1Skamil	    "Verify PT_READ_I called once");
34201.1Skamil}
34211.1Skamil
34221.1SkamilATF_TC_BODY(read_i1, tc)
34231.1Skamil{
34241.1Skamil	const int exitval = 5;
34251.1Skamil	const int sigval = SIGSTOP;
34261.1Skamil	pid_t child, wpid;
34271.1Skamil	int lookup_me = 0;
34281.1Skamil	int magic;
34291.1Skamil	memcpy(&magic, dummy_fn1, sizeof(magic));
34301.1Skamil#if defined(TWAIT_HAVE_STATUS)
34311.1Skamil	int status;
34321.1Skamil#endif
34331.1Skamil
34341.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
34351.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
34361.1Skamil	if (child == 0) {
34371.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
34381.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
34391.1Skamil
34401.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
34411.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
34421.1Skamil
34431.13Schristos		DPRINTF("Before exiting of the child process\n");
34441.1Skamil		_exit(exitval);
34451.1Skamil	}
34461.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
34471.1Skamil
34481.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
34491.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
34501.1Skamil
34511.1Skamil	validate_status_stopped(status, sigval);
34521.1Skamil
34531.13Schristos	DPRINTF("Read new lookup_me from tracee (PID=%d) by tracer (PID=%d)\n",
34541.1Skamil	    child, getpid());
34551.1Skamil	errno = 0;
34561.1Skamil	lookup_me = ptrace(PT_READ_I, child, dummy_fn1, 0);
34571.18Schristos	SYSCALL_REQUIRE_ERRNO(errno, 0);
34581.1Skamil
34591.1Skamil	ATF_REQUIRE_EQ_MSG(lookup_me, magic,
34601.1Skamil	    "got value %#x != expected %#x", lookup_me, magic);
34611.1Skamil
34621.13Schristos	DPRINTF("Before resuming the child process where it left off and "
34631.1Skamil	    "without signal to be sent\n");
34641.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
34651.1Skamil
34661.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
34671.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
34681.1Skamil
34691.1Skamil	validate_status_exited(status, exitval);
34701.1Skamil
34711.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
34721.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
34731.1Skamil}
34741.1Skamil
34751.1SkamilATF_TC(read_i2);
34761.1SkamilATF_TC_HEAD(read_i2, tc)
34771.1Skamil{
34781.1Skamil	atf_tc_set_md_var(tc, "descr",
34791.1Skamil	    "Verify PT_READ_I called twice");
34801.1Skamil}
34811.1Skamil
34821.1SkamilATF_TC_BODY(read_i2, tc)
34831.1Skamil{
34841.1Skamil	const int exitval = 5;
34851.1Skamil	const int sigval = SIGSTOP;
34861.1Skamil	pid_t child, wpid;
34871.1Skamil	int lookup_me1 = 0;
34881.1Skamil	int lookup_me2 = 0;
34891.1Skamil	int magic1;
34901.1Skamil	int magic2;
34911.1Skamil	memcpy(&magic1, dummy_fn1, sizeof(magic1));
34921.1Skamil	memcpy(&magic2, dummy_fn2, sizeof(magic2));
34931.1Skamil#if defined(TWAIT_HAVE_STATUS)
34941.1Skamil	int status;
34951.1Skamil#endif
34961.1Skamil
34971.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
34981.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
34991.1Skamil	if (child == 0) {
35001.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
35011.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
35021.1Skamil
35031.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
35041.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
35051.1Skamil
35061.13Schristos		DPRINTF("Before exiting of the child process\n");
35071.1Skamil		_exit(exitval);
35081.1Skamil	}
35091.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
35101.1Skamil
35111.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
35121.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
35131.1Skamil
35141.1Skamil	validate_status_stopped(status, sigval);
35151.1Skamil
35161.13Schristos	DPRINTF("Read new lookup_me1 from tracee (PID=%d) by tracer (PID=%d)\n",
35171.1Skamil	    child, getpid());
35181.1Skamil	errno = 0;
35191.1Skamil	lookup_me1 = ptrace(PT_READ_I, child, dummy_fn1, 0);
35201.18Schristos	SYSCALL_REQUIRE_ERRNO(errno, 0);
35211.1Skamil
35221.1Skamil	ATF_REQUIRE_EQ_MSG(lookup_me1, magic1,
35231.1Skamil	    "got value %#x != expected %#x", lookup_me1, magic1);
35241.1Skamil
35251.13Schristos	DPRINTF("Read new lookup_me2 from tracee (PID=%d) by tracer (PID=%d)\n",
35261.1Skamil	    child, getpid());
35271.1Skamil	errno = 0;
35281.1Skamil	lookup_me2 = ptrace(PT_READ_I, child, dummy_fn2, 0);
35291.18Schristos	SYSCALL_REQUIRE_ERRNO(errno, 0);
35301.1Skamil
35311.1Skamil	ATF_REQUIRE_EQ_MSG(lookup_me2, magic2,
35321.1Skamil	    "got value %#x != expected %#x", lookup_me2, magic2);
35331.1Skamil
35341.13Schristos	DPRINTF("Before resuming the child process where it left off and "
35351.1Skamil	    "without signal to be sent\n");
35361.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
35371.1Skamil
35381.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
35391.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
35401.1Skamil
35411.1Skamil	validate_status_exited(status, exitval);
35421.1Skamil
35431.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
35441.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
35451.1Skamil}
35461.1Skamil
35471.1SkamilATF_TC(read_i3);
35481.1SkamilATF_TC_HEAD(read_i3, tc)
35491.1Skamil{
35501.1Skamil	atf_tc_set_md_var(tc, "descr",
35511.1Skamil	    "Verify PT_READ_I called three times");
35521.1Skamil}
35531.1Skamil
35541.1SkamilATF_TC_BODY(read_i3, tc)
35551.1Skamil{
35561.1Skamil	const int exitval = 5;
35571.1Skamil	const int sigval = SIGSTOP;
35581.1Skamil	pid_t child, wpid;
35591.1Skamil	int lookup_me1 = 0;
35601.1Skamil	int lookup_me2 = 0;
35611.1Skamil	int lookup_me3 = 0;
35621.1Skamil	int magic1;
35631.1Skamil	int magic2;
35641.1Skamil	int magic3;
35651.1Skamil	memcpy(&magic1, dummy_fn1, sizeof(magic1));
35661.1Skamil	memcpy(&magic2, dummy_fn2, sizeof(magic2));
35671.1Skamil	memcpy(&magic3, dummy_fn3, sizeof(magic3));
35681.1Skamil#if defined(TWAIT_HAVE_STATUS)
35691.1Skamil	int status;
35701.1Skamil#endif
35711.1Skamil
35721.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
35731.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
35741.1Skamil	if (child == 0) {
35751.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
35761.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
35771.1Skamil
35781.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
35791.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
35801.1Skamil
35811.13Schristos		DPRINTF("Before exiting of the child process\n");
35821.1Skamil		_exit(exitval);
35831.1Skamil	}
35841.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
35851.1Skamil
35861.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
35871.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
35881.1Skamil
35891.1Skamil	validate_status_stopped(status, sigval);
35901.1Skamil
35911.13Schristos	DPRINTF("Read new lookup_me1 from tracee (PID=%d) by tracer (PID=%d)\n",
35921.1Skamil	    child, getpid());
35931.1Skamil	errno = 0;
35941.1Skamil	lookup_me1 = ptrace(PT_READ_I, child, dummy_fn1, 0);
35951.18Schristos	SYSCALL_REQUIRE_ERRNO(errno, 0);
35961.1Skamil
35971.1Skamil	ATF_REQUIRE_EQ_MSG(lookup_me1, magic1,
35981.1Skamil	    "got value %#x != expected %#x", lookup_me1, magic1);
35991.1Skamil
36001.13Schristos	DPRINTF("Read new lookup_me2 from tracee (PID=%d) by tracer (PID=%d)\n",
36011.1Skamil	    child, getpid());
36021.1Skamil	errno = 0;
36031.1Skamil	lookup_me2 = ptrace(PT_READ_I, child, dummy_fn2, 0);
36041.18Schristos	SYSCALL_REQUIRE_ERRNO(errno, 0);
36051.1Skamil
36061.1Skamil	ATF_REQUIRE_EQ_MSG(lookup_me2, magic2,
36071.1Skamil	    "got value %#x != expected %#x", lookup_me2, magic2);
36081.1Skamil
36091.13Schristos	DPRINTF("Read new lookup_me3 from tracee (PID=%d) by tracer (PID=%d)\n",
36101.1Skamil	    child, getpid());
36111.1Skamil	errno = 0;
36121.1Skamil	lookup_me3 = ptrace(PT_READ_I, child, dummy_fn3, 0);
36131.18Schristos	SYSCALL_REQUIRE_ERRNO(errno, 0);
36141.1Skamil
36151.1Skamil	ATF_REQUIRE_EQ_MSG(lookup_me3, magic3,
36161.1Skamil	    "got value %#x != expected %#x", lookup_me3, magic3);
36171.1Skamil
36181.13Schristos	DPRINTF("Before resuming the child process where it left off and "
36191.1Skamil	    "without signal to be sent\n");
36201.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
36211.1Skamil
36221.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
36231.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
36241.1Skamil
36251.1Skamil	validate_status_exited(status, exitval);
36261.1Skamil
36271.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
36281.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
36291.1Skamil}
36301.1Skamil
36311.1SkamilATF_TC(read_i4);
36321.1SkamilATF_TC_HEAD(read_i4, tc)
36331.1Skamil{
36341.1Skamil	atf_tc_set_md_var(tc, "descr",
36351.1Skamil	    "Verify PT_READ_I called four times");
36361.1Skamil}
36371.1Skamil
36381.1SkamilATF_TC_BODY(read_i4, tc)
36391.1Skamil{
36401.1Skamil	const int exitval = 5;
36411.1Skamil	const int sigval = SIGSTOP;
36421.1Skamil	pid_t child, wpid;
36431.1Skamil	int lookup_me1 = 0;
36441.1Skamil	int lookup_me2 = 0;
36451.1Skamil	int lookup_me3 = 0;
36461.1Skamil	int lookup_me4 = 0;
36471.1Skamil	int magic1;
36481.1Skamil	int magic2;
36491.1Skamil	int magic3;
36501.1Skamil	int magic4;
36511.1Skamil	memcpy(&magic1, dummy_fn1, sizeof(magic1));
36521.1Skamil	memcpy(&magic2, dummy_fn2, sizeof(magic2));
36531.1Skamil	memcpy(&magic3, dummy_fn3, sizeof(magic3));
36541.1Skamil	memcpy(&magic4, dummy_fn4, sizeof(magic4));
36551.1Skamil#if defined(TWAIT_HAVE_STATUS)
36561.1Skamil	int status;
36571.1Skamil#endif
36581.1Skamil
36591.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
36601.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
36611.1Skamil	if (child == 0) {
36621.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
36631.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
36641.1Skamil
36651.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
36661.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
36671.1Skamil
36681.13Schristos		DPRINTF("Before exiting of the child process\n");
36691.1Skamil		_exit(exitval);
36701.1Skamil	}
36711.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
36721.1Skamil
36731.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
36741.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
36751.1Skamil
36761.1Skamil	validate_status_stopped(status, sigval);
36771.1Skamil
36781.13Schristos	DPRINTF("Read new lookup_me1 from tracee (PID=%d) by tracer (PID=%d)\n",
36791.1Skamil	    child, getpid());
36801.1Skamil	errno = 0;
36811.1Skamil	lookup_me1 = ptrace(PT_READ_I, child, dummy_fn1, 0);
36821.18Schristos	SYSCALL_REQUIRE_ERRNO(errno, 0);
36831.1Skamil
36841.1Skamil	ATF_REQUIRE_EQ_MSG(lookup_me1, magic1,
36851.1Skamil	    "got value %#x != expected %#x", lookup_me1, magic1);
36861.1Skamil
36871.13Schristos	DPRINTF("Read new lookup_me2 from tracee (PID=%d) by tracer (PID=%d)\n",
36881.1Skamil	    child, getpid());
36891.1Skamil	errno = 0;
36901.1Skamil	lookup_me2 = ptrace(PT_READ_I, child, dummy_fn2, 0);
36911.18Schristos	SYSCALL_REQUIRE_ERRNO(errno, 0);
36921.1Skamil
36931.1Skamil	ATF_REQUIRE_EQ_MSG(lookup_me2, magic2,
36941.1Skamil	    "got value %#x != expected %#x", lookup_me2, magic2);
36951.1Skamil
36961.13Schristos	DPRINTF("Read new lookup_me3 from tracee (PID=%d) by tracer (PID=%d)\n",
36971.1Skamil	    child, getpid());
36981.1Skamil	errno = 0;
36991.1Skamil	lookup_me3 = ptrace(PT_READ_I, child, dummy_fn3, 0);
37001.18Schristos	SYSCALL_REQUIRE_ERRNO(errno, 0);
37011.1Skamil
37021.1Skamil	ATF_REQUIRE_EQ_MSG(lookup_me3, magic3,
37031.1Skamil	    "got value %#x != expected %#x", lookup_me3, magic3);
37041.1Skamil
37051.13Schristos	DPRINTF("Read new lookup_me4 from tracee (PID=%d) by tracer (PID=%d)\n",
37061.1Skamil	    child, getpid());
37071.1Skamil	errno = 0;
37081.1Skamil	lookup_me4 = ptrace(PT_READ_I, child, dummy_fn4, 0);
37091.18Schristos	SYSCALL_REQUIRE_ERRNO(errno, 0);
37101.1Skamil
37111.1Skamil	ATF_REQUIRE_EQ_MSG(lookup_me4, magic4,
37121.1Skamil	    "got value %#x != expected %#x", lookup_me4, magic4);
37131.1Skamil
37141.13Schristos	DPRINTF("Before resuming the child process where it left off and "
37151.1Skamil	    "without signal to be sent\n");
37161.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
37171.1Skamil
37181.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
37191.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
37201.1Skamil
37211.1Skamil	validate_status_exited(status, exitval);
37221.1Skamil
37231.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
37241.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
37251.1Skamil}
37261.1Skamil
37271.1Skamil#if defined(HAVE_GPREGS)
37281.1SkamilATF_TC(regs1);
37291.1SkamilATF_TC_HEAD(regs1, tc)
37301.1Skamil{
37311.1Skamil	atf_tc_set_md_var(tc, "descr",
37321.1Skamil	    "Verify plain PT_GETREGS call without further steps");
37331.1Skamil}
37341.1Skamil
37351.1SkamilATF_TC_BODY(regs1, tc)
37361.1Skamil{
37371.1Skamil	const int exitval = 5;
37381.1Skamil	const int sigval = SIGSTOP;
37391.1Skamil	pid_t child, wpid;
37401.1Skamil#if defined(TWAIT_HAVE_STATUS)
37411.1Skamil	int status;
37421.1Skamil#endif
37431.1Skamil	struct reg r;
37441.1Skamil
37451.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
37461.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
37471.1Skamil	if (child == 0) {
37481.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
37491.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
37501.1Skamil
37511.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
37521.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
37531.1Skamil
37541.13Schristos		DPRINTF("Before exiting of the child process\n");
37551.1Skamil		_exit(exitval);
37561.1Skamil	}
37571.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
37581.1Skamil
37591.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
37601.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
37611.1Skamil
37621.1Skamil	validate_status_stopped(status, sigval);
37631.1Skamil
37641.13Schristos	DPRINTF("Call GETREGS for the child process\n");
37651.13Schristos	SYSCALL_REQUIRE(ptrace(PT_GETREGS, child, &r, 0) != -1);
37661.1Skamil
37671.13Schristos	DPRINTF("Before resuming the child process where it left off and "
37681.1Skamil	    "without signal to be sent\n");
37691.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
37701.1Skamil
37711.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
37721.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
37731.1Skamil
37741.1Skamil	validate_status_exited(status, exitval);
37751.1Skamil
37761.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
37771.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
37781.1Skamil}
37791.1Skamil#endif
37801.1Skamil
37811.1Skamil#if defined(HAVE_GPREGS)
37821.1SkamilATF_TC(regs2);
37831.1SkamilATF_TC_HEAD(regs2, tc)
37841.1Skamil{
37851.1Skamil	atf_tc_set_md_var(tc, "descr",
37861.1Skamil	    "Verify plain PT_GETREGS call and retrieve PC");
37871.1Skamil}
37881.1Skamil
37891.1SkamilATF_TC_BODY(regs2, tc)
37901.1Skamil{
37911.1Skamil	const int exitval = 5;
37921.1Skamil	const int sigval = SIGSTOP;
37931.1Skamil	pid_t child, wpid;
37941.1Skamil#if defined(TWAIT_HAVE_STATUS)
37951.1Skamil	int status;
37961.1Skamil#endif
37971.1Skamil	struct reg r;
37981.1Skamil
37991.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
38001.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
38011.1Skamil	if (child == 0) {
38021.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
38031.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
38041.1Skamil
38051.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
38061.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
38071.1Skamil
38081.13Schristos		DPRINTF("Before exiting of the child process\n");
38091.1Skamil		_exit(exitval);
38101.1Skamil	}
38111.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
38121.1Skamil
38131.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
38141.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
38151.1Skamil
38161.1Skamil	validate_status_stopped(status, sigval);
38171.1Skamil
38181.13Schristos	DPRINTF("Call GETREGS for the child process\n");
38191.13Schristos	SYSCALL_REQUIRE(ptrace(PT_GETREGS, child, &r, 0) != -1);
38201.1Skamil
38211.13Schristos	DPRINTF("Retrieved PC=%" PRIxREGISTER "\n", PTRACE_REG_PC(&r));
38221.1Skamil
38231.13Schristos	DPRINTF("Before resuming the child process where it left off and "
38241.1Skamil	    "without signal to be sent\n");
38251.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
38261.1Skamil
38271.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
38281.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
38291.1Skamil
38301.1Skamil	validate_status_exited(status, exitval);
38311.1Skamil
38321.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
38331.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
38341.1Skamil}
38351.1Skamil#endif
38361.1Skamil
38371.1Skamil#if defined(HAVE_GPREGS)
38381.1SkamilATF_TC(regs3);
38391.1SkamilATF_TC_HEAD(regs3, tc)
38401.1Skamil{
38411.1Skamil	atf_tc_set_md_var(tc, "descr",
38421.1Skamil	    "Verify plain PT_GETREGS call and retrieve SP");
38431.1Skamil}
38441.1Skamil
38451.1SkamilATF_TC_BODY(regs3, tc)
38461.1Skamil{
38471.1Skamil	const int exitval = 5;
38481.1Skamil	const int sigval = SIGSTOP;
38491.1Skamil	pid_t child, wpid;
38501.1Skamil#if defined(TWAIT_HAVE_STATUS)
38511.1Skamil	int status;
38521.1Skamil#endif
38531.1Skamil	struct reg r;
38541.1Skamil
38551.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
38561.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
38571.1Skamil	if (child == 0) {
38581.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
38591.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
38601.1Skamil
38611.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
38621.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
38631.1Skamil
38641.13Schristos		DPRINTF("Before exiting of the child process\n");
38651.1Skamil		_exit(exitval);
38661.1Skamil	}
38671.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
38681.1Skamil
38691.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
38701.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
38711.1Skamil
38721.1Skamil	validate_status_stopped(status, sigval);
38731.1Skamil
38741.13Schristos	DPRINTF("Call GETREGS for the child process\n");
38751.13Schristos	SYSCALL_REQUIRE(ptrace(PT_GETREGS, child, &r, 0) != -1);
38761.1Skamil
38771.13Schristos	DPRINTF("Retrieved SP=%" PRIxREGISTER "\n", PTRACE_REG_SP(&r));
38781.1Skamil
38791.13Schristos	DPRINTF("Before resuming the child process where it left off and "
38801.1Skamil	    "without signal to be sent\n");
38811.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
38821.1Skamil
38831.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
38841.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
38851.1Skamil
38861.1Skamil	validate_status_exited(status, exitval);
38871.1Skamil
38881.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
38891.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
38901.1Skamil}
38911.1Skamil#endif
38921.1Skamil
38931.1Skamil#if defined(HAVE_GPREGS)
38941.1SkamilATF_TC(regs4);
38951.1SkamilATF_TC_HEAD(regs4, tc)
38961.1Skamil{
38971.1Skamil	atf_tc_set_md_var(tc, "descr",
38981.1Skamil	    "Verify plain PT_GETREGS call and retrieve INTRV");
38991.1Skamil}
39001.1Skamil
39011.1SkamilATF_TC_BODY(regs4, tc)
39021.1Skamil{
39031.1Skamil	const int exitval = 5;
39041.1Skamil	const int sigval = SIGSTOP;
39051.1Skamil	pid_t child, wpid;
39061.1Skamil#if defined(TWAIT_HAVE_STATUS)
39071.1Skamil	int status;
39081.1Skamil#endif
39091.1Skamil	struct reg r;
39101.1Skamil
39111.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
39121.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
39131.1Skamil	if (child == 0) {
39141.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
39151.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
39161.1Skamil
39171.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
39181.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
39191.1Skamil
39201.13Schristos		DPRINTF("Before exiting of the child process\n");
39211.1Skamil		_exit(exitval);
39221.1Skamil	}
39231.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
39241.1Skamil
39251.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
39261.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
39271.1Skamil
39281.1Skamil	validate_status_stopped(status, sigval);
39291.1Skamil
39301.13Schristos	DPRINTF("Call GETREGS for the child process\n");
39311.13Schristos	SYSCALL_REQUIRE(ptrace(PT_GETREGS, child, &r, 0) != -1);
39321.1Skamil
39331.13Schristos	DPRINTF("Retrieved INTRV=%" PRIxREGISTER "\n", PTRACE_REG_INTRV(&r));
39341.1Skamil
39351.13Schristos	DPRINTF("Before resuming the child process where it left off and "
39361.1Skamil	    "without signal to be sent\n");
39371.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
39381.1Skamil
39391.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
39401.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
39411.1Skamil
39421.1Skamil	validate_status_exited(status, exitval);
39431.1Skamil
39441.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
39451.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
39461.1Skamil}
39471.1Skamil#endif
39481.1Skamil
39491.1Skamil#if defined(HAVE_GPREGS)
39501.1SkamilATF_TC(regs5);
39511.1SkamilATF_TC_HEAD(regs5, tc)
39521.1Skamil{
39531.1Skamil	atf_tc_set_md_var(tc, "descr",
39541.1Skamil	    "Verify PT_GETREGS and PT_SETREGS calls without changing regs");
39551.1Skamil}
39561.1Skamil
39571.1SkamilATF_TC_BODY(regs5, tc)
39581.1Skamil{
39591.1Skamil	const int exitval = 5;
39601.1Skamil	const int sigval = SIGSTOP;
39611.1Skamil	pid_t child, wpid;
39621.1Skamil#if defined(TWAIT_HAVE_STATUS)
39631.1Skamil	int status;
39641.1Skamil#endif
39651.1Skamil	struct reg r;
39661.1Skamil
39671.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
39681.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
39691.1Skamil	if (child == 0) {
39701.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
39711.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
39721.1Skamil
39731.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
39741.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
39751.1Skamil
39761.13Schristos		DPRINTF("Before exiting of the child process\n");
39771.1Skamil		_exit(exitval);
39781.1Skamil	}
39791.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
39801.1Skamil
39811.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
39821.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
39831.1Skamil
39841.1Skamil	validate_status_stopped(status, sigval);
39851.1Skamil
39861.13Schristos	DPRINTF("Call GETREGS for the child process\n");
39871.13Schristos	SYSCALL_REQUIRE(ptrace(PT_GETREGS, child, &r, 0) != -1);
39881.1Skamil
39891.13Schristos	DPRINTF("Call SETREGS for the child process (without changed regs)\n");
39901.13Schristos	SYSCALL_REQUIRE(ptrace(PT_GETREGS, child, &r, 0) != -1);
39911.1Skamil
39921.13Schristos	DPRINTF("Before resuming the child process where it left off and "
39931.1Skamil	    "without signal to be sent\n");
39941.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
39951.1Skamil
39961.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
39971.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
39981.1Skamil
39991.1Skamil	validate_status_exited(status, exitval);
40001.1Skamil
40011.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
40021.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
40031.1Skamil}
40041.1Skamil#endif
40051.1Skamil
40061.1Skamil#if defined(HAVE_FPREGS)
40071.1SkamilATF_TC(fpregs1);
40081.1SkamilATF_TC_HEAD(fpregs1, tc)
40091.1Skamil{
40101.1Skamil	atf_tc_set_md_var(tc, "descr",
40111.1Skamil	    "Verify plain PT_GETFPREGS call without further steps");
40121.1Skamil}
40131.1Skamil
40141.1SkamilATF_TC_BODY(fpregs1, tc)
40151.1Skamil{
40161.1Skamil	const int exitval = 5;
40171.1Skamil	const int sigval = SIGSTOP;
40181.1Skamil	pid_t child, wpid;
40191.1Skamil#if defined(TWAIT_HAVE_STATUS)
40201.1Skamil	int status;
40211.1Skamil#endif
40221.1Skamil	struct fpreg r;
40231.1Skamil
40241.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
40251.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
40261.1Skamil	if (child == 0) {
40271.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
40281.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
40291.1Skamil
40301.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
40311.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
40321.1Skamil
40331.13Schristos		DPRINTF("Before exiting of the child process\n");
40341.1Skamil		_exit(exitval);
40351.1Skamil	}
40361.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
40371.1Skamil
40381.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
40391.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
40401.1Skamil
40411.1Skamil	validate_status_stopped(status, sigval);
40421.1Skamil
40431.13Schristos	DPRINTF("Call GETFPREGS for the child process\n");
40441.13Schristos	SYSCALL_REQUIRE(ptrace(PT_GETFPREGS, child, &r, 0) != -1);
40451.1Skamil
40461.13Schristos	DPRINTF("Before resuming the child process where it left off and "
40471.1Skamil	    "without signal to be sent\n");
40481.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
40491.1Skamil
40501.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
40511.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
40521.1Skamil
40531.1Skamil	validate_status_exited(status, exitval);
40541.1Skamil
40551.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
40561.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
40571.1Skamil}
40581.1Skamil#endif
40591.1Skamil
40601.1Skamil#if defined(HAVE_FPREGS)
40611.1SkamilATF_TC(fpregs2);
40621.1SkamilATF_TC_HEAD(fpregs2, tc)
40631.1Skamil{
40641.1Skamil	atf_tc_set_md_var(tc, "descr",
40651.1Skamil	    "Verify PT_GETFPREGS and PT_SETFPREGS calls without changing "
40661.1Skamil	    "regs");
40671.1Skamil}
40681.1Skamil
40691.1SkamilATF_TC_BODY(fpregs2, tc)
40701.1Skamil{
40711.1Skamil	const int exitval = 5;
40721.1Skamil	const int sigval = SIGSTOP;
40731.1Skamil	pid_t child, wpid;
40741.1Skamil#if defined(TWAIT_HAVE_STATUS)
40751.1Skamil	int status;
40761.1Skamil#endif
40771.1Skamil	struct fpreg r;
40781.1Skamil
40791.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
40801.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
40811.1Skamil	if (child == 0) {
40821.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
40831.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
40841.1Skamil
40851.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
40861.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
40871.1Skamil
40881.13Schristos		DPRINTF("Before exiting of the child process\n");
40891.1Skamil		_exit(exitval);
40901.1Skamil	}
40911.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
40921.1Skamil
40931.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
40941.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
40951.1Skamil
40961.1Skamil	validate_status_stopped(status, sigval);
40971.1Skamil
40981.13Schristos	DPRINTF("Call GETFPREGS for the child process\n");
40991.13Schristos	SYSCALL_REQUIRE(ptrace(PT_GETFPREGS, child, &r, 0) != -1);
41001.1Skamil
41011.13Schristos	DPRINTF("Call SETFPREGS for the child (without changed regs)\n");
41021.13Schristos	SYSCALL_REQUIRE(ptrace(PT_SETFPREGS, child, &r, 0) != -1);
41031.1Skamil
41041.13Schristos	DPRINTF("Before resuming the child process where it left off and "
41051.1Skamil	    "without signal to be sent\n");
41061.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
41071.1Skamil
41081.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
41091.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
41101.1Skamil
41111.1Skamil	validate_status_exited(status, exitval);
41121.1Skamil
41131.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
41141.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
41151.1Skamil}
41161.1Skamil#endif
41171.1Skamil
41181.1Skamil#if defined(PT_STEP)
41191.1Skamilstatic void
41201.2Skamilptrace_step(int N, int setstep)
41211.1Skamil{
41221.1Skamil	const int exitval = 5;
41231.1Skamil	const int sigval = SIGSTOP;
41241.1Skamil	pid_t child, wpid;
41251.1Skamil#if defined(TWAIT_HAVE_STATUS)
41261.1Skamil	int status;
41271.1Skamil#endif
41281.1Skamil	int happy;
41291.1Skamil
41301.1Skamil#if defined(__arm__)
41311.1Skamil	/* PT_STEP not supported on arm 32-bit */
41321.1Skamil	atf_tc_expect_fail("PR kern/52119");
41331.1Skamil#endif
41341.1Skamil
41351.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
41361.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
41371.1Skamil	if (child == 0) {
41381.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
41391.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
41401.1Skamil
41411.1Skamil		happy = check_happy(999);
41421.1Skamil
41431.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
41441.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
41451.1Skamil
41461.1Skamil		FORKEE_ASSERT_EQ(happy, check_happy(999));
41471.1Skamil
41481.13Schristos		DPRINTF("Before exiting of the child process\n");
41491.1Skamil		_exit(exitval);
41501.1Skamil	}
41511.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
41521.1Skamil
41531.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
41541.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
41551.1Skamil
41561.1Skamil	validate_status_stopped(status, sigval);
41571.1Skamil
41581.1Skamil	while (N --> 0) {
41591.2Skamil		if (setstep) {
41601.13Schristos			DPRINTF("Before resuming the child process where it "
41611.2Skamil			    "left off and without signal to be sent (use "
41621.9Skamil			    "PT_SETSTEP and PT_CONTINUE)\n");
41631.13Schristos			SYSCALL_REQUIRE(ptrace(PT_SETSTEP, child, 0, 0) != -1);
41641.13Schristos			SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0)
41651.2Skamil			    != -1);
41661.2Skamil		} else {
41671.13Schristos			DPRINTF("Before resuming the child process where it "
41681.2Skamil			    "left off and without signal to be sent (use "
41691.2Skamil			    "PT_STEP)\n");
41701.13Schristos			SYSCALL_REQUIRE(ptrace(PT_STEP, child, (void *)1, 0)
41711.2Skamil			    != -1);
41721.2Skamil		}
41731.1Skamil
41741.13Schristos		DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
41751.1Skamil		TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0),
41761.1Skamil		    child);
41771.1Skamil
41781.1Skamil		validate_status_stopped(status, SIGTRAP);
41791.2Skamil
41801.2Skamil		if (setstep) {
41811.13Schristos			SYSCALL_REQUIRE(ptrace(PT_CLEARSTEP, child, 0, 0) != -1);
41821.2Skamil		}
41831.1Skamil	}
41841.1Skamil
41851.13Schristos	DPRINTF("Before resuming the child process where it left off and "
41861.1Skamil	    "without signal to be sent\n");
41871.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
41881.1Skamil
41891.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
41901.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
41911.1Skamil
41921.1Skamil	validate_status_exited(status, exitval);
41931.1Skamil
41941.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
41951.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
41961.1Skamil}
41971.1Skamil#endif
41981.1Skamil
41991.1Skamil#if defined(PT_STEP)
42001.1SkamilATF_TC(step1);
42011.1SkamilATF_TC_HEAD(step1, tc)
42021.1Skamil{
42031.1Skamil	atf_tc_set_md_var(tc, "descr",
42041.1Skamil	    "Verify single PT_STEP call");
42051.1Skamil}
42061.1Skamil
42071.1SkamilATF_TC_BODY(step1, tc)
42081.1Skamil{
42091.2Skamil	ptrace_step(1, 0);
42101.1Skamil}
42111.1Skamil#endif
42121.1Skamil
42131.1Skamil#if defined(PT_STEP)
42141.1SkamilATF_TC(step2);
42151.1SkamilATF_TC_HEAD(step2, tc)
42161.1Skamil{
42171.1Skamil	atf_tc_set_md_var(tc, "descr",
42181.1Skamil	    "Verify PT_STEP called twice");
42191.1Skamil}
42201.1Skamil
42211.1SkamilATF_TC_BODY(step2, tc)
42221.1Skamil{
42231.2Skamil	ptrace_step(2, 0);
42241.1Skamil}
42251.1Skamil#endif
42261.1Skamil
42271.1Skamil#if defined(PT_STEP)
42281.1SkamilATF_TC(step3);
42291.1SkamilATF_TC_HEAD(step3, tc)
42301.1Skamil{
42311.1Skamil	atf_tc_set_md_var(tc, "descr",
42321.1Skamil	    "Verify PT_STEP called three times");
42331.1Skamil}
42341.1Skamil
42351.1SkamilATF_TC_BODY(step3, tc)
42361.1Skamil{
42371.2Skamil	ptrace_step(3, 0);
42381.1Skamil}
42391.1Skamil#endif
42401.1Skamil
42411.1Skamil#if defined(PT_STEP)
42421.1SkamilATF_TC(step4);
42431.1SkamilATF_TC_HEAD(step4, tc)
42441.1Skamil{
42451.1Skamil	atf_tc_set_md_var(tc, "descr",
42461.1Skamil	    "Verify PT_STEP called four times");
42471.1Skamil}
42481.1Skamil
42491.1SkamilATF_TC_BODY(step4, tc)
42501.1Skamil{
42511.2Skamil	ptrace_step(4, 0);
42521.2Skamil}
42531.2Skamil#endif
42541.2Skamil
42551.2Skamil#if defined(PT_STEP)
42561.2SkamilATF_TC(setstep1);
42571.2SkamilATF_TC_HEAD(setstep1, tc)
42581.2Skamil{
42591.2Skamil	atf_tc_set_md_var(tc, "descr",
42601.2Skamil	    "Verify single PT_SETSTEP call");
42611.2Skamil}
42621.2Skamil
42631.2SkamilATF_TC_BODY(setstep1, tc)
42641.2Skamil{
42651.2Skamil	ptrace_step(1, 1);
42661.2Skamil}
42671.2Skamil#endif
42681.2Skamil
42691.2Skamil#if defined(PT_STEP)
42701.2SkamilATF_TC(setstep2);
42711.2SkamilATF_TC_HEAD(setstep2, tc)
42721.2Skamil{
42731.2Skamil	atf_tc_set_md_var(tc, "descr",
42741.2Skamil	    "Verify PT_SETSTEP called twice");
42751.2Skamil}
42761.2Skamil
42771.2SkamilATF_TC_BODY(setstep2, tc)
42781.2Skamil{
42791.2Skamil	ptrace_step(2, 1);
42801.2Skamil}
42811.2Skamil#endif
42821.2Skamil
42831.2Skamil#if defined(PT_STEP)
42841.2SkamilATF_TC(setstep3);
42851.2SkamilATF_TC_HEAD(setstep3, tc)
42861.2Skamil{
42871.2Skamil	atf_tc_set_md_var(tc, "descr",
42881.2Skamil	    "Verify PT_SETSTEP called three times");
42891.2Skamil}
42901.2Skamil
42911.2SkamilATF_TC_BODY(setstep3, tc)
42921.2Skamil{
42931.2Skamil	ptrace_step(3, 1);
42941.2Skamil}
42951.2Skamil#endif
42961.2Skamil
42971.2Skamil#if defined(PT_STEP)
42981.2SkamilATF_TC(setstep4);
42991.2SkamilATF_TC_HEAD(setstep4, tc)
43001.2Skamil{
43011.2Skamil	atf_tc_set_md_var(tc, "descr",
43021.2Skamil	    "Verify PT_SETSTEP called four times");
43031.2Skamil}
43041.2Skamil
43051.2SkamilATF_TC_BODY(setstep4, tc)
43061.2Skamil{
43071.2Skamil	ptrace_step(4, 1);
43081.1Skamil}
43091.1Skamil#endif
43101.1Skamil
43111.1SkamilATF_TC(kill1);
43121.1SkamilATF_TC_HEAD(kill1, tc)
43131.1Skamil{
43141.1Skamil	atf_tc_set_md_var(tc, "descr",
43151.1Skamil	    "Verify that PT_CONTINUE with SIGKILL terminates child");
43161.1Skamil}
43171.1Skamil
43181.1SkamilATF_TC_BODY(kill1, tc)
43191.1Skamil{
43201.1Skamil	const int sigval = SIGSTOP, sigsent = SIGKILL;
43211.1Skamil	pid_t child, wpid;
43221.1Skamil#if defined(TWAIT_HAVE_STATUS)
43231.1Skamil	int status;
43241.1Skamil#endif
43251.1Skamil
43261.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
43271.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
43281.1Skamil	if (child == 0) {
43291.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
43301.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
43311.1Skamil
43321.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
43331.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
43341.1Skamil
43351.1Skamil		/* NOTREACHED */
43361.1Skamil		FORKEE_ASSERTX(0 &&
43371.1Skamil		    "Child should be terminated by a signal from its parent");
43381.1Skamil	}
43391.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
43401.1Skamil
43411.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
43421.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
43431.1Skamil
43441.1Skamil	validate_status_stopped(status, sigval);
43451.1Skamil
43461.13Schristos	DPRINTF("Before resuming the child process where it left off and "
43471.1Skamil	    "without signal to be sent\n");
43481.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, sigsent) != -1);
43491.1Skamil
43501.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
43511.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
43521.1Skamil
43531.1Skamil	validate_status_signaled(status, sigsent, 0);
43541.1Skamil
43551.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
43561.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
43571.1Skamil}
43581.1Skamil
43591.1SkamilATF_TC(kill2);
43601.1SkamilATF_TC_HEAD(kill2, tc)
43611.1Skamil{
43621.1Skamil	atf_tc_set_md_var(tc, "descr",
43631.1Skamil	    "Verify that PT_KILL terminates child");
43641.1Skamil}
43651.1Skamil
43661.1SkamilATF_TC_BODY(kill2, tc)
43671.1Skamil{
43681.1Skamil	const int sigval = SIGSTOP;
43691.1Skamil	pid_t child, wpid;
43701.1Skamil#if defined(TWAIT_HAVE_STATUS)
43711.1Skamil	int status;
43721.1Skamil#endif
43731.1Skamil
43741.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
43751.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
43761.1Skamil	if (child == 0) {
43771.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
43781.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
43791.1Skamil
43801.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
43811.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
43821.1Skamil
43831.1Skamil		/* NOTREACHED */
43841.1Skamil		FORKEE_ASSERTX(0 &&
43851.1Skamil		    "Child should be terminated by a signal from its parent");
43861.1Skamil	}
43871.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
43881.1Skamil
43891.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
43901.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
43911.1Skamil
43921.1Skamil	validate_status_stopped(status, sigval);
43931.1Skamil
43941.13Schristos	DPRINTF("Before resuming the child process where it left off and "
43951.1Skamil	    "without signal to be sent\n");
43961.13Schristos	SYSCALL_REQUIRE(ptrace(PT_KILL, child, (void*)1, 0) != -1);
43971.1Skamil
43981.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
43991.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
44001.1Skamil
44011.1Skamil	validate_status_signaled(status, SIGKILL, 0);
44021.1Skamil
44031.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
44041.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
44051.1Skamil}
44061.1Skamil
44071.1SkamilATF_TC(lwpinfo1);
44081.1SkamilATF_TC_HEAD(lwpinfo1, tc)
44091.1Skamil{
44101.1Skamil	atf_tc_set_md_var(tc, "descr",
44111.1Skamil	    "Verify basic LWPINFO call for single thread (PT_TRACE_ME)");
44121.1Skamil}
44131.1Skamil
44141.1SkamilATF_TC_BODY(lwpinfo1, tc)
44151.1Skamil{
44161.1Skamil	const int exitval = 5;
44171.1Skamil	const int sigval = SIGSTOP;
44181.1Skamil	pid_t child, wpid;
44191.1Skamil#if defined(TWAIT_HAVE_STATUS)
44201.1Skamil	int status;
44211.1Skamil#endif
44221.1Skamil	struct ptrace_lwpinfo info = {0, 0};
44231.1Skamil
44241.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
44251.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
44261.1Skamil	if (child == 0) {
44271.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
44281.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
44291.1Skamil
44301.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
44311.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
44321.1Skamil
44331.13Schristos		DPRINTF("Before exiting of the child process\n");
44341.1Skamil		_exit(exitval);
44351.1Skamil	}
44361.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
44371.1Skamil
44381.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
44391.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
44401.1Skamil
44411.1Skamil	validate_status_stopped(status, sigval);
44421.1Skamil
44431.13Schristos	DPRINTF("Before calling ptrace(2) with PT_LWPINFO for child\n");
44441.13Schristos	SYSCALL_REQUIRE(ptrace(PT_LWPINFO, child, &info, sizeof(info)) != -1);
44451.1Skamil
44461.13Schristos	DPRINTF("Assert that there exists a thread\n");
44471.1Skamil	ATF_REQUIRE(info.pl_lwpid > 0);
44481.1Skamil
44491.13Schristos	DPRINTF("Assert that lwp thread %d received event PL_EVENT_SIGNAL\n",
44501.1Skamil	    info.pl_lwpid);
44511.1Skamil	ATF_REQUIRE_EQ_MSG(info.pl_event, PL_EVENT_SIGNAL,
44521.1Skamil	    "Received event %d != expected event %d",
44531.1Skamil	    info.pl_event, PL_EVENT_SIGNAL);
44541.1Skamil
44551.13Schristos	DPRINTF("Before calling ptrace(2) with PT_LWPINFO for child\n");
44561.13Schristos	SYSCALL_REQUIRE(ptrace(PT_LWPINFO, child, &info, sizeof(info)) != -1);
44571.1Skamil
44581.13Schristos	DPRINTF("Assert that there are no more lwp threads in child\n");
44591.1Skamil	ATF_REQUIRE_EQ(info.pl_lwpid, 0);
44601.1Skamil
44611.13Schristos	DPRINTF("Before resuming the child process where it left off and "
44621.1Skamil	    "without signal to be sent\n");
44631.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
44641.1Skamil
44651.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
44661.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
44671.1Skamil
44681.1Skamil	validate_status_exited(status, exitval);
44691.1Skamil
44701.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
44711.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
44721.1Skamil}
44731.1Skamil
44741.1Skamil#if defined(TWAIT_HAVE_PID)
44751.1SkamilATF_TC(lwpinfo2);
44761.1SkamilATF_TC_HEAD(lwpinfo2, tc)
44771.1Skamil{
44781.1Skamil	atf_tc_set_md_var(tc, "descr",
44791.1Skamil	    "Verify basic LWPINFO call for single thread (PT_ATTACH from "
44801.1Skamil	    "tracer)");
44811.1Skamil}
44821.1Skamil
44831.1SkamilATF_TC_BODY(lwpinfo2, tc)
44841.1Skamil{
44851.1Skamil	struct msg_fds parent_tracee, parent_tracer;
44861.1Skamil	const int exitval_tracee = 5;
44871.1Skamil	const int exitval_tracer = 10;
44881.1Skamil	pid_t tracee, tracer, wpid;
44891.1Skamil	uint8_t msg = 0xde; /* dummy message for IPC based on pipe(2) */
44901.1Skamil#if defined(TWAIT_HAVE_STATUS)
44911.1Skamil	int status;
44921.1Skamil#endif
44931.1Skamil	struct ptrace_lwpinfo info = {0, 0};
44941.1Skamil
44951.13Schristos	DPRINTF("Spawn tracee\n");
44961.13Schristos	SYSCALL_REQUIRE(msg_open(&parent_tracee) == 0);
44971.13Schristos	SYSCALL_REQUIRE(msg_open(&parent_tracer) == 0);
44981.1Skamil	tracee = atf_utils_fork();
44991.1Skamil	if (tracee == 0) {
45001.1Skamil
45011.1Skamil		/* Wait for message from the parent */
45021.1Skamil		CHILD_TO_PARENT("tracee ready", parent_tracee, msg);
45031.1Skamil		CHILD_FROM_PARENT("tracee exit", parent_tracee, msg);
45041.1Skamil
45051.1Skamil		_exit(exitval_tracee);
45061.1Skamil	}
45071.1Skamil	PARENT_FROM_CHILD("tracee ready", parent_tracee, msg);
45081.1Skamil
45091.13Schristos	DPRINTF("Spawn debugger\n");
45101.1Skamil	tracer = atf_utils_fork();
45111.1Skamil	if (tracer == 0) {
45121.1Skamil		/* No IPC to communicate with the child */
45131.13Schristos		DPRINTF("Before calling PT_ATTACH from tracee %d\n", getpid());
45141.1Skamil		FORKEE_ASSERT(ptrace(PT_ATTACH, tracee, NULL, 0) != -1);
45151.1Skamil
45161.1Skamil		/* Wait for tracee and assert that it was stopped w/ SIGSTOP */
45171.1Skamil		FORKEE_REQUIRE_SUCCESS(
45181.1Skamil		    wpid = TWAIT_GENERIC(tracee, &status, 0), tracee);
45191.1Skamil
45201.1Skamil		forkee_status_stopped(status, SIGSTOP);
45211.1Skamil
45221.13Schristos		DPRINTF("Before calling ptrace(2) with PT_LWPINFO for child\n");
45231.1Skamil		FORKEE_ASSERT(ptrace(PT_LWPINFO, tracee, &info, sizeof(info))
45241.1Skamil		    != -1);
45251.1Skamil
45261.13Schristos		DPRINTF("Assert that there exists a thread\n");
45271.1Skamil		FORKEE_ASSERTX(info.pl_lwpid > 0);
45281.1Skamil
45291.13Schristos		DPRINTF("Assert that lwp thread %d received event "
45301.1Skamil		    "PL_EVENT_SIGNAL\n", info.pl_lwpid);
45311.1Skamil		FORKEE_ASSERT_EQ(info.pl_event, PL_EVENT_SIGNAL);
45321.1Skamil
45331.13Schristos		DPRINTF("Before calling ptrace(2) with PT_LWPINFO for child\n");
45341.1Skamil		FORKEE_ASSERT(ptrace(PT_LWPINFO, tracee, &info, sizeof(info))
45351.1Skamil		    != -1);
45361.1Skamil
45371.13Schristos		DPRINTF("Assert that there are no more lwp threads in child\n");
45381.1Skamil		FORKEE_ASSERTX(info.pl_lwpid == 0);
45391.1Skamil
45401.1Skamil		/* Resume tracee with PT_CONTINUE */
45411.1Skamil		FORKEE_ASSERT(ptrace(PT_CONTINUE, tracee, (void *)1, 0) != -1);
45421.1Skamil
45431.1Skamil		/* Inform parent that tracer has attached to tracee */
45441.1Skamil		CHILD_TO_PARENT("tracer ready", parent_tracer, msg);
45451.1Skamil		/* Wait for parent */
45461.1Skamil		CHILD_FROM_PARENT("tracer wait", parent_tracer, msg);
45471.1Skamil
45481.1Skamil		/* Wait for tracee and assert that it exited */
45491.1Skamil		FORKEE_REQUIRE_SUCCESS(
45501.1Skamil		    wpid = TWAIT_GENERIC(tracee, &status, 0), tracee);
45511.1Skamil
45521.1Skamil		forkee_status_exited(status, exitval_tracee);
45531.1Skamil
45541.13Schristos		DPRINTF("Before exiting of the tracer process\n");
45551.1Skamil		_exit(exitval_tracer);
45561.1Skamil	}
45571.1Skamil
45581.13Schristos	DPRINTF("Wait for the tracer to attach to the tracee\n");
45591.1Skamil	PARENT_FROM_CHILD("tracer ready", parent_tracer, msg);
45601.1Skamil
45611.13Schristos	DPRINTF("Resume the tracee and let it exit\n");
45621.1Skamil	PARENT_TO_CHILD("tracee exit", parent_tracee, msg);
45631.1Skamil
45641.13Schristos	DPRINTF("Detect that tracee is zombie\n");
45651.1Skamil	await_zombie(tracee);
45661.1Skamil
45671.13Schristos	DPRINTF("Assert that there is no status about tracee - "
45681.1Skamil	    "Tracer must detect zombie first - calling %s()\n", TWAIT_FNAME);
45691.1Skamil	TWAIT_REQUIRE_SUCCESS(
45701.1Skamil	    wpid = TWAIT_GENERIC(tracee, &status, WNOHANG), 0);
45711.1Skamil
45721.13Schristos	DPRINTF("Resume the tracer and let it detect exited tracee\n");
45731.1Skamil	PARENT_TO_CHILD("tracer wait", parent_tracer, msg);
45741.1Skamil
45751.13Schristos	DPRINTF("Wait for tracer to finish its job and exit - calling %s()\n",
45761.1Skamil	    TWAIT_FNAME);
45771.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(tracer, &status, 0),
45781.1Skamil	    tracer);
45791.1Skamil
45801.1Skamil	validate_status_exited(status, exitval_tracer);
45811.1Skamil
45821.13Schristos	DPRINTF("Wait for tracee to finish its job and exit - calling %s()\n",
45831.1Skamil	    TWAIT_FNAME);
45841.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(tracee, &status, WNOHANG),
45851.1Skamil	    tracee);
45861.1Skamil
45871.1Skamil	validate_status_exited(status, exitval_tracee);
45881.1Skamil
45891.1Skamil	msg_close(&parent_tracer);
45901.1Skamil	msg_close(&parent_tracee);
45911.1Skamil}
45921.1Skamil#endif
45931.1Skamil
45941.1SkamilATF_TC(siginfo1);
45951.1SkamilATF_TC_HEAD(siginfo1, tc)
45961.1Skamil{
45971.1Skamil	atf_tc_set_md_var(tc, "descr",
45981.1Skamil	    "Verify basic PT_GET_SIGINFO call for SIGTRAP from tracee");
45991.1Skamil}
46001.1Skamil
46011.1SkamilATF_TC_BODY(siginfo1, tc)
46021.1Skamil{
46031.1Skamil	const int exitval = 5;
46041.1Skamil	const int sigval = SIGTRAP;
46051.1Skamil	pid_t child, wpid;
46061.1Skamil#if defined(TWAIT_HAVE_STATUS)
46071.1Skamil	int status;
46081.1Skamil#endif
46091.1Skamil	struct ptrace_siginfo info;
46101.1Skamil	memset(&info, 0, sizeof(info));
46111.1Skamil
46121.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
46131.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
46141.1Skamil	if (child == 0) {
46151.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
46161.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
46171.1Skamil
46181.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
46191.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
46201.1Skamil
46211.13Schristos		DPRINTF("Before exiting of the child process\n");
46221.1Skamil		_exit(exitval);
46231.1Skamil	}
46241.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
46251.1Skamil
46261.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
46271.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
46281.1Skamil
46291.1Skamil	validate_status_stopped(status, sigval);
46301.1Skamil
46311.13Schristos	DPRINTF("Before calling ptrace(2) with PT_GET_SIGINFO for child\n");
46321.13Schristos	SYSCALL_REQUIRE(ptrace(PT_GET_SIGINFO, child, &info, sizeof(info)) != -1);
46331.1Skamil
46341.13Schristos	DPRINTF("Signal traced to lwpid=%d\n", info.psi_lwpid);
46351.13Schristos	DPRINTF("Signal properties: si_signo=%#x si_code=%#x si_errno=%#x\n",
46361.1Skamil	    info.psi_siginfo.si_signo, info.psi_siginfo.si_code,
46371.1Skamil	    info.psi_siginfo.si_errno);
46381.1Skamil
46391.13Schristos	DPRINTF("Before resuming the child process where it left off and "
46401.1Skamil	    "without signal to be sent\n");
46411.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
46421.1Skamil
46431.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
46441.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
46451.1Skamil
46461.1Skamil	validate_status_exited(status, exitval);
46471.1Skamil
46481.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
46491.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
46501.1Skamil}
46511.1Skamil
46521.1SkamilATF_TC(siginfo2);
46531.1SkamilATF_TC_HEAD(siginfo2, tc)
46541.1Skamil{
46551.1Skamil	atf_tc_set_md_var(tc, "descr",
46561.1Skamil	    "Verify basic PT_GET_SIGINFO and PT_SET_SIGINFO calls without "
46571.1Skamil	    "modification of SIGINT from tracee");
46581.1Skamil}
46591.1Skamil
46601.1Skamilstatic int siginfo2_caught = 0;
46611.1Skamil
46621.1Skamilstatic void
46631.1Skamilsiginfo2_sighandler(int sig)
46641.1Skamil{
46651.1Skamil	FORKEE_ASSERT_EQ(sig, SIGINT);
46661.1Skamil
46671.1Skamil	++siginfo2_caught;
46681.1Skamil}
46691.1Skamil
46701.1SkamilATF_TC_BODY(siginfo2, tc)
46711.1Skamil{
46721.1Skamil	const int exitval = 5;
46731.1Skamil	const int sigval = SIGINT;
46741.1Skamil	pid_t child, wpid;
46751.1Skamil	struct sigaction sa;
46761.1Skamil#if defined(TWAIT_HAVE_STATUS)
46771.1Skamil	int status;
46781.1Skamil#endif
46791.1Skamil	struct ptrace_siginfo info;
46801.1Skamil	memset(&info, 0, sizeof(info));
46811.1Skamil
46821.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
46831.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
46841.1Skamil	if (child == 0) {
46851.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
46861.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
46871.1Skamil
46881.1Skamil		sa.sa_handler = siginfo2_sighandler;
46891.1Skamil		sa.sa_flags = SA_SIGINFO;
46901.1Skamil		sigemptyset(&sa.sa_mask);
46911.1Skamil
46921.1Skamil		FORKEE_ASSERT(sigaction(sigval, &sa, NULL) != -1);
46931.1Skamil
46941.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
46951.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
46961.1Skamil
46971.1Skamil		FORKEE_ASSERT_EQ(siginfo2_caught, 1);
46981.1Skamil
46991.13Schristos		DPRINTF("Before exiting of the child process\n");
47001.1Skamil		_exit(exitval);
47011.1Skamil	}
47021.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
47031.1Skamil
47041.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
47051.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
47061.1Skamil
47071.1Skamil	validate_status_stopped(status, sigval);
47081.1Skamil
47091.13Schristos	DPRINTF("Before calling ptrace(2) with PT_GET_SIGINFO for child\n");
47101.13Schristos	SYSCALL_REQUIRE(ptrace(PT_GET_SIGINFO, child, &info, sizeof(info)) != -1);
47111.1Skamil
47121.13Schristos	DPRINTF("Signal traced to lwpid=%d\n", info.psi_lwpid);
47131.13Schristos	DPRINTF("Signal properties: si_signo=%#x si_code=%#x si_errno=%#x\n",
47141.1Skamil	    info.psi_siginfo.si_signo, info.psi_siginfo.si_code,
47151.1Skamil	    info.psi_siginfo.si_errno);
47161.1Skamil
47171.13Schristos	DPRINTF("Before calling ptrace(2) with PT_SET_SIGINFO for child\n");
47181.13Schristos	SYSCALL_REQUIRE(ptrace(PT_SET_SIGINFO, child, &info, sizeof(info)) != -1);
47191.1Skamil
47201.13Schristos	DPRINTF("Before resuming the child process where it left off and "
47211.1Skamil	    "without signal to be sent\n");
47221.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, sigval) != -1);
47231.1Skamil
47241.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
47251.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
47261.1Skamil
47271.1Skamil	validate_status_exited(status, exitval);
47281.1Skamil
47291.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
47301.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
47311.1Skamil}
47321.1Skamil
47331.1SkamilATF_TC(siginfo3);
47341.1SkamilATF_TC_HEAD(siginfo3, tc)
47351.1Skamil{
47361.1Skamil	atf_tc_set_md_var(tc, "descr",
47371.1Skamil	    "Verify basic PT_GET_SIGINFO and PT_SET_SIGINFO calls with "
47381.1Skamil	    "setting signal to new value");
47391.1Skamil}
47401.1Skamil
47411.1Skamilstatic int siginfo3_caught = 0;
47421.1Skamil
47431.1Skamilstatic void
47441.1Skamilsiginfo3_sigaction(int sig, siginfo_t *info, void *ctx)
47451.1Skamil{
47461.1Skamil	FORKEE_ASSERT_EQ(sig, SIGTRAP);
47471.1Skamil
47481.1Skamil	FORKEE_ASSERT_EQ(info->si_signo, SIGTRAP);
47491.1Skamil	FORKEE_ASSERT_EQ(info->si_code, TRAP_BRKPT);
47501.1Skamil
47511.1Skamil	++siginfo3_caught;
47521.1Skamil}
47531.1Skamil
47541.1SkamilATF_TC_BODY(siginfo3, tc)
47551.1Skamil{
47561.1Skamil	const int exitval = 5;
47571.1Skamil	const int sigval = SIGINT;
47581.1Skamil	const int sigfaked = SIGTRAP;
47591.1Skamil	const int sicodefaked = TRAP_BRKPT;
47601.1Skamil	pid_t child, wpid;
47611.1Skamil	struct sigaction sa;
47621.1Skamil#if defined(TWAIT_HAVE_STATUS)
47631.1Skamil	int status;
47641.1Skamil#endif
47651.1Skamil	struct ptrace_siginfo info;
47661.1Skamil	memset(&info, 0, sizeof(info));
47671.1Skamil
47681.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
47691.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
47701.1Skamil	if (child == 0) {
47711.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
47721.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
47731.1Skamil
47741.1Skamil		sa.sa_sigaction = siginfo3_sigaction;
47751.1Skamil		sa.sa_flags = SA_SIGINFO;
47761.1Skamil		sigemptyset(&sa.sa_mask);
47771.1Skamil
47781.1Skamil		FORKEE_ASSERT(sigaction(sigfaked, &sa, NULL) != -1);
47791.1Skamil
47801.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
47811.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
47821.1Skamil
47831.1Skamil		FORKEE_ASSERT_EQ(siginfo3_caught, 1);
47841.1Skamil
47851.13Schristos		DPRINTF("Before exiting of the child process\n");
47861.1Skamil		_exit(exitval);
47871.1Skamil	}
47881.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
47891.1Skamil
47901.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
47911.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
47921.1Skamil
47931.1Skamil	validate_status_stopped(status, sigval);
47941.1Skamil
47951.13Schristos	DPRINTF("Before calling ptrace(2) with PT_GET_SIGINFO for child\n");
47961.13Schristos	SYSCALL_REQUIRE(ptrace(PT_GET_SIGINFO, child, &info, sizeof(info)) != -1);
47971.1Skamil
47981.13Schristos	DPRINTF("Signal traced to lwpid=%d\n", info.psi_lwpid);
47991.13Schristos	DPRINTF("Signal properties: si_signo=%#x si_code=%#x si_errno=%#x\n",
48001.1Skamil	    info.psi_siginfo.si_signo, info.psi_siginfo.si_code,
48011.1Skamil	    info.psi_siginfo.si_errno);
48021.1Skamil
48031.13Schristos	DPRINTF("Before setting new faked signal to signo=%d si_code=%d\n",
48041.1Skamil	    sigfaked, sicodefaked);
48051.1Skamil	info.psi_siginfo.si_signo = sigfaked;
48061.1Skamil	info.psi_siginfo.si_code = sicodefaked;
48071.1Skamil
48081.13Schristos	DPRINTF("Before calling ptrace(2) with PT_SET_SIGINFO for child\n");
48091.13Schristos	SYSCALL_REQUIRE(ptrace(PT_SET_SIGINFO, child, &info, sizeof(info)) != -1);
48101.1Skamil
48111.13Schristos	DPRINTF("Before calling ptrace(2) with PT_GET_SIGINFO for child\n");
48121.13Schristos	SYSCALL_REQUIRE(ptrace(PT_GET_SIGINFO, child, &info, sizeof(info)) != -1);
48131.1Skamil
48141.13Schristos	DPRINTF("Before checking siginfo_t\n");
48151.1Skamil	ATF_REQUIRE_EQ(info.psi_siginfo.si_signo, sigfaked);
48161.1Skamil	ATF_REQUIRE_EQ(info.psi_siginfo.si_code, sicodefaked);
48171.1Skamil
48181.13Schristos	DPRINTF("Before resuming the child process where it left off and "
48191.1Skamil	    "without signal to be sent\n");
48201.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, sigfaked) != -1);
48211.1Skamil
48221.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
48231.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
48241.1Skamil
48251.1Skamil	validate_status_exited(status, exitval);
48261.1Skamil
48271.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
48281.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
48291.1Skamil}
48301.1Skamil
48311.1SkamilATF_TC(siginfo4);
48321.1SkamilATF_TC_HEAD(siginfo4, tc)
48331.1Skamil{
48341.1Skamil	atf_tc_set_md_var(tc, "descr",
48351.1Skamil	    "Detect SIGTRAP TRAP_EXEC from tracee");
48361.1Skamil}
48371.1Skamil
48381.1SkamilATF_TC_BODY(siginfo4, tc)
48391.1Skamil{
48401.1Skamil	const int sigval = SIGTRAP;
48411.1Skamil	pid_t child, wpid;
48421.1Skamil#if defined(TWAIT_HAVE_STATUS)
48431.1Skamil	int status;
48441.1Skamil#endif
48451.1Skamil
48461.1Skamil	struct ptrace_siginfo info;
48471.1Skamil	memset(&info, 0, sizeof(info));
48481.1Skamil
48491.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
48501.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
48511.1Skamil	if (child == 0) {
48521.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
48531.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
48541.1Skamil
48551.13Schristos		DPRINTF("Before calling execve(2) from child\n");
48561.1Skamil		execlp("/bin/echo", "/bin/echo", NULL);
48571.1Skamil
48581.1Skamil		FORKEE_ASSERT(0 && "Not reached");
48591.1Skamil	}
48601.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
48611.1Skamil
48621.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
48631.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
48641.1Skamil
48651.1Skamil	validate_status_stopped(status, sigval);
48661.1Skamil
48671.13Schristos	DPRINTF("Before calling ptrace(2) with PT_GET_SIGINFO for child\n");
48681.13Schristos	SYSCALL_REQUIRE(ptrace(PT_GET_SIGINFO, child, &info, sizeof(info)) != -1);
48691.1Skamil
48701.13Schristos	DPRINTF("Signal traced to lwpid=%d\n", info.psi_lwpid);
48711.13Schristos	DPRINTF("Signal properties: si_signo=%#x si_code=%#x si_errno=%#x\n",
48721.1Skamil	    info.psi_siginfo.si_signo, info.psi_siginfo.si_code,
48731.1Skamil	    info.psi_siginfo.si_errno);
48741.1Skamil
48751.1Skamil	ATF_REQUIRE_EQ(info.psi_siginfo.si_signo, sigval);
48761.1Skamil	ATF_REQUIRE_EQ(info.psi_siginfo.si_code, TRAP_EXEC);
48771.1Skamil
48781.13Schristos	DPRINTF("Before resuming the child process where it left off and "
48791.1Skamil	    "without signal to be sent\n");
48801.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
48811.1Skamil
48821.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
48831.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
48841.1Skamil
48851.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
48861.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
48871.1Skamil}
48881.1Skamil
48891.1Skamil#if defined(TWAIT_HAVE_PID)
48901.1SkamilATF_TC(siginfo5);
48911.1SkamilATF_TC_HEAD(siginfo5, tc)
48921.1Skamil{
48931.1Skamil	atf_tc_set_md_var(tc, "descr",
48941.1Skamil	    "Verify that fork(2) is intercepted by ptrace(2) with EVENT_MASK "
48951.1Skamil	    "set to PTRACE_FORK and reports correct signal information");
48961.1Skamil}
48971.1Skamil
48981.1SkamilATF_TC_BODY(siginfo5, tc)
48991.1Skamil{
49001.1Skamil	const int exitval = 5;
49011.1Skamil	const int exitval2 = 15;
49021.1Skamil	const int sigval = SIGSTOP;
49031.1Skamil	pid_t child, child2, wpid;
49041.1Skamil#if defined(TWAIT_HAVE_STATUS)
49051.1Skamil	int status;
49061.1Skamil#endif
49071.1Skamil	ptrace_state_t state;
49081.1Skamil	const int slen = sizeof(state);
49091.1Skamil	ptrace_event_t event;
49101.1Skamil	const int elen = sizeof(event);
49111.1Skamil	struct ptrace_siginfo info;
49121.1Skamil
49131.1Skamil	memset(&info, 0, sizeof(info));
49141.1Skamil
49151.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
49161.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
49171.1Skamil	if (child == 0) {
49181.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
49191.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
49201.1Skamil
49211.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
49221.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
49231.1Skamil
49241.1Skamil		FORKEE_ASSERT((child2 = fork()) != -1);
49251.1Skamil
49261.1Skamil		if (child2 == 0)
49271.1Skamil			_exit(exitval2);
49281.1Skamil
49291.1Skamil		FORKEE_REQUIRE_SUCCESS
49301.1Skamil		    (wpid = TWAIT_GENERIC(child2, &status, 0), child2);
49311.1Skamil
49321.1Skamil		forkee_status_exited(status, exitval2);
49331.1Skamil
49341.13Schristos		DPRINTF("Before exiting of the child process\n");
49351.1Skamil		_exit(exitval);
49361.1Skamil	}
49371.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
49381.1Skamil
49391.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
49401.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
49411.1Skamil
49421.1Skamil	validate_status_stopped(status, sigval);
49431.1Skamil
49441.13Schristos	DPRINTF("Before calling ptrace(2) with PT_GET_SIGINFO for child\n");
49451.13Schristos	SYSCALL_REQUIRE(ptrace(PT_GET_SIGINFO, child, &info, sizeof(info)) != -1);
49461.1Skamil
49471.13Schristos	DPRINTF("Before checking siginfo_t\n");
49481.1Skamil	ATF_REQUIRE_EQ(info.psi_siginfo.si_signo, sigval);
49491.1Skamil	ATF_REQUIRE_EQ(info.psi_siginfo.si_code, SI_LWP);
49501.1Skamil
49511.13Schristos	DPRINTF("Enable PTRACE_FORK in EVENT_MASK for the child %d\n", child);
49521.1Skamil	event.pe_set_event = PTRACE_FORK;
49531.13Schristos	SYSCALL_REQUIRE(ptrace(PT_SET_EVENT_MASK, child, &event, elen) != -1);
49541.1Skamil
49551.13Schristos	DPRINTF("Before resuming the child process where it left off and "
49561.1Skamil	    "without signal to be sent\n");
49571.13Schristos        DPRINTF("We expect two SIGTRAP events, for child %d (TRAP_CHLD, "
49581.1Skamil               "pe_report_event=PTRACE_FORK, state.pe_other_pid=child2) and "
49591.1Skamil               "for child2 (TRAP_CHLD, pe_report_event=PTRACE_FORK, "
49601.1Skamil                "state.pe_other_pid=child)\n", child);
49611.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
49621.1Skamil
49631.13Schristos	DPRINTF("Before calling %s() for the child %d\n", TWAIT_FNAME, child);
49641.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
49651.1Skamil
49661.1Skamil	validate_status_stopped(status, SIGTRAP);
49671.1Skamil
49681.13Schristos	DPRINTF("Before calling ptrace(2) with PT_GET_SIGINFO for child\n");
49691.13Schristos	SYSCALL_REQUIRE(ptrace(PT_GET_SIGINFO, child, &info, sizeof(info)) != -1);
49701.1Skamil
49711.13Schristos	DPRINTF("Before checking siginfo_t\n");
49721.1Skamil	ATF_REQUIRE_EQ(info.psi_siginfo.si_signo, SIGTRAP);
49731.1Skamil	ATF_REQUIRE_EQ(info.psi_siginfo.si_code, TRAP_CHLD);
49741.1Skamil
49751.13Schristos	SYSCALL_REQUIRE(ptrace(PT_GET_PROCESS_STATE, child, &state, slen) != -1);
49761.1Skamil	ATF_REQUIRE_EQ(state.pe_report_event, PTRACE_FORK);
49771.1Skamil
49781.1Skamil	child2 = state.pe_other_pid;
49791.13Schristos	DPRINTF("Reported PTRACE_FORK event with forkee %d\n", child2);
49801.1Skamil
49811.13Schristos	DPRINTF("Before calling %s() for the forkee %d of the child %d\n",
49821.1Skamil	    TWAIT_FNAME, child2, child);
49831.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child2, &status, 0),
49841.1Skamil	    child2);
49851.1Skamil
49861.1Skamil	validate_status_stopped(status, SIGTRAP);
49871.1Skamil
49881.13Schristos	DPRINTF("Before calling ptrace(2) with PT_GET_SIGINFO for child\n");
49891.13Schristos	SYSCALL_REQUIRE(ptrace(PT_GET_SIGINFO, child, &info, sizeof(info)) != -1);
49901.1Skamil
49911.13Schristos	DPRINTF("Before checking siginfo_t\n");
49921.1Skamil	ATF_REQUIRE_EQ(info.psi_siginfo.si_signo, SIGTRAP);
49931.1Skamil	ATF_REQUIRE_EQ(info.psi_siginfo.si_code, TRAP_CHLD);
49941.1Skamil
49951.13Schristos	SYSCALL_REQUIRE(ptrace(PT_GET_PROCESS_STATE, child2, &state, slen) != -1);
49961.1Skamil	ATF_REQUIRE_EQ(state.pe_report_event, PTRACE_FORK);
49971.1Skamil	ATF_REQUIRE_EQ(state.pe_other_pid, child);
49981.1Skamil
49991.13Schristos	DPRINTF("Before resuming the forkee process where it left off and "
50001.1Skamil	    "without signal to be sent\n");
50011.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child2, (void *)1, 0) != -1);
50021.1Skamil
50031.13Schristos	DPRINTF("Before resuming the child process where it left off and "
50041.1Skamil	    "without signal to be sent\n");
50051.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
50061.1Skamil
50071.13Schristos	DPRINTF("Before calling %s() for the forkee - expected exited\n",
50081.1Skamil	    TWAIT_FNAME);
50091.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child2, &status, 0),
50101.1Skamil	    child2);
50111.1Skamil
50121.1Skamil	validate_status_exited(status, exitval2);
50131.1Skamil
50141.13Schristos	DPRINTF("Before calling %s() for the forkee - expected no process\n",
50151.1Skamil	    TWAIT_FNAME);
50161.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD,
50171.1Skamil	    wpid = TWAIT_GENERIC(child2, &status, 0));
50181.1Skamil
50191.13Schristos	DPRINTF("Before calling %s() for the child - expected stopped "
50201.1Skamil	    "SIGCHLD\n", TWAIT_FNAME);
50211.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
50221.1Skamil
50231.1Skamil	validate_status_stopped(status, SIGCHLD);
50241.1Skamil
50251.13Schristos	DPRINTF("Before calling ptrace(2) with PT_GET_SIGINFO for child\n");
50261.13Schristos	SYSCALL_REQUIRE(ptrace(PT_GET_SIGINFO, child, &info, sizeof(info)) != -1);
50271.1Skamil
50281.13Schristos	DPRINTF("Before checking siginfo_t\n");
50291.1Skamil	ATF_REQUIRE_EQ(info.psi_siginfo.si_signo, SIGCHLD);
50301.1Skamil	ATF_REQUIRE_EQ(info.psi_siginfo.si_code, CLD_EXITED);
50311.1Skamil
50321.13Schristos	DPRINTF("Before resuming the child process where it left off and "
50331.1Skamil	    "without signal to be sent\n");
50341.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
50351.1Skamil
50361.13Schristos	DPRINTF("Before calling %s() for the child - expected exited\n",
50371.1Skamil	    TWAIT_FNAME);
50381.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
50391.1Skamil
50401.1Skamil	validate_status_exited(status, exitval);
50411.1Skamil
50421.13Schristos	DPRINTF("Before calling %s() for the child - expected no process\n",
50431.1Skamil	    TWAIT_FNAME);
50441.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
50451.1Skamil}
50461.1Skamil#endif
50471.1Skamil
50481.1Skamil#if defined(PT_STEP)
50491.1SkamilATF_TC(siginfo6);
50501.1SkamilATF_TC_HEAD(siginfo6, tc)
50511.1Skamil{
50521.1Skamil	atf_tc_set_md_var(tc, "descr",
50531.1Skamil	    "Verify single PT_STEP call with signal information check");
50541.1Skamil}
50551.1Skamil
50561.1SkamilATF_TC_BODY(siginfo6, tc)
50571.1Skamil{
50581.1Skamil	const int exitval = 5;
50591.1Skamil	const int sigval = SIGSTOP;
50601.1Skamil	pid_t child, wpid;
50611.1Skamil#if defined(TWAIT_HAVE_STATUS)
50621.1Skamil	int status;
50631.1Skamil#endif
50641.1Skamil	int happy;
50651.1Skamil	struct ptrace_siginfo info;
50661.1Skamil
50671.1Skamil#if defined(__arm__)
50681.1Skamil	/* PT_STEP not supported on arm 32-bit */
50691.1Skamil	atf_tc_expect_fail("PR kern/52119");
50701.1Skamil#endif
50711.1Skamil
50721.1Skamil	memset(&info, 0, sizeof(info));
50731.1Skamil
50741.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
50751.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
50761.1Skamil	if (child == 0) {
50771.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
50781.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
50791.1Skamil
50801.1Skamil		happy = check_happy(100);
50811.1Skamil
50821.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
50831.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
50841.1Skamil
50851.1Skamil		FORKEE_ASSERT_EQ(happy, check_happy(100));
50861.1Skamil
50871.13Schristos		DPRINTF("Before exiting of the child process\n");
50881.1Skamil		_exit(exitval);
50891.1Skamil	}
50901.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
50911.1Skamil
50921.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
50931.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
50941.1Skamil
50951.1Skamil	validate_status_stopped(status, sigval);
50961.1Skamil
50971.13Schristos	DPRINTF("Before calling ptrace(2) with PT_GET_SIGINFO for child\n");
50981.13Schristos	SYSCALL_REQUIRE(ptrace(PT_GET_SIGINFO, child, &info, sizeof(info)) != -1);
50991.1Skamil
51001.13Schristos	DPRINTF("Before checking siginfo_t\n");
51011.1Skamil	ATF_REQUIRE_EQ(info.psi_siginfo.si_signo, sigval);
51021.1Skamil	ATF_REQUIRE_EQ(info.psi_siginfo.si_code, SI_LWP);
51031.1Skamil
51041.13Schristos	DPRINTF("Before resuming the child process where it left off and "
51051.1Skamil	    "without signal to be sent (use PT_STEP)\n");
51061.13Schristos	SYSCALL_REQUIRE(ptrace(PT_STEP, child, (void *)1, 0) != -1);
51071.1Skamil
51081.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
51091.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
51101.1Skamil
51111.1Skamil	validate_status_stopped(status, SIGTRAP);
51121.1Skamil
51131.13Schristos	DPRINTF("Before calling ptrace(2) with PT_GET_SIGINFO for child\n");
51141.13Schristos	SYSCALL_REQUIRE(ptrace(PT_GET_SIGINFO, child, &info, sizeof(info)) != -1);
51151.1Skamil
51161.13Schristos	DPRINTF("Before checking siginfo_t\n");
51171.1Skamil	ATF_REQUIRE_EQ(info.psi_siginfo.si_signo, SIGTRAP);
51181.1Skamil	ATF_REQUIRE_EQ(info.psi_siginfo.si_code, TRAP_TRACE);
51191.1Skamil
51201.13Schristos	DPRINTF("Before resuming the child process where it left off and "
51211.1Skamil	    "without signal to be sent\n");
51221.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
51231.1Skamil
51241.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
51251.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
51261.1Skamil
51271.1Skamil	validate_status_exited(status, exitval);
51281.1Skamil
51291.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
51301.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
51311.1Skamil}
51321.1Skamil#endif
51331.1Skamil
51341.1Skamilvolatile lwpid_t the_lwp_id = 0;
51351.1Skamil
51361.1Skamilstatic void
51371.1Skamillwp_main_func(void *arg)
51381.1Skamil{
51391.1Skamil	the_lwp_id = _lwp_self();
51401.1Skamil	_lwp_exit();
51411.1Skamil}
51421.1Skamil
51431.1SkamilATF_TC(lwp_create1);
51441.1SkamilATF_TC_HEAD(lwp_create1, tc)
51451.1Skamil{
51461.1Skamil	atf_tc_set_md_var(tc, "descr",
51471.1Skamil	    "Verify that 1 LWP creation is intercepted by ptrace(2) with "
51481.1Skamil	    "EVENT_MASK set to PTRACE_LWP_CREATE");
51491.1Skamil}
51501.1Skamil
51511.1SkamilATF_TC_BODY(lwp_create1, tc)
51521.1Skamil{
51531.1Skamil	const int exitval = 5;
51541.1Skamil	const int sigval = SIGSTOP;
51551.1Skamil	pid_t child, wpid;
51561.1Skamil#if defined(TWAIT_HAVE_STATUS)
51571.1Skamil	int status;
51581.1Skamil#endif
51591.1Skamil	ptrace_state_t state;
51601.1Skamil	const int slen = sizeof(state);
51611.1Skamil	ptrace_event_t event;
51621.1Skamil	const int elen = sizeof(event);
51631.1Skamil	ucontext_t uc;
51641.1Skamil	lwpid_t lid;
51651.1Skamil	static const size_t ssize = 16*1024;
51661.1Skamil	void *stack;
51671.1Skamil
51681.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
51691.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
51701.1Skamil	if (child == 0) {
51711.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
51721.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
51731.1Skamil
51741.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
51751.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
51761.1Skamil
51771.13Schristos		DPRINTF("Before allocating memory for stack in child\n");
51781.1Skamil		FORKEE_ASSERT((stack = malloc(ssize)) != NULL);
51791.1Skamil
51801.13Schristos		DPRINTF("Before making context for new lwp in child\n");
51811.1Skamil		_lwp_makecontext(&uc, lwp_main_func, NULL, NULL, stack, ssize);
51821.1Skamil
51831.13Schristos		DPRINTF("Before creating new in child\n");
51841.1Skamil		FORKEE_ASSERT(_lwp_create(&uc, 0, &lid) == 0);
51851.1Skamil
51861.13Schristos		DPRINTF("Before waiting for lwp %d to exit\n", lid);
51871.1Skamil		FORKEE_ASSERT(_lwp_wait(lid, NULL) == 0);
51881.1Skamil
51891.13Schristos		DPRINTF("Before verifying that reported %d and running lid %d "
51901.1Skamil		    "are the same\n", lid, the_lwp_id);
51911.1Skamil		FORKEE_ASSERT_EQ(lid, the_lwp_id);
51921.1Skamil
51931.13Schristos		DPRINTF("Before exiting of the child process\n");
51941.1Skamil		_exit(exitval);
51951.1Skamil	}
51961.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
51971.1Skamil
51981.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
51991.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
52001.1Skamil
52011.1Skamil	validate_status_stopped(status, sigval);
52021.1Skamil
52031.13Schristos	DPRINTF("Set empty EVENT_MASK for the child %d\n", child);
52041.1Skamil	event.pe_set_event = PTRACE_LWP_CREATE;
52051.13Schristos	SYSCALL_REQUIRE(ptrace(PT_SET_EVENT_MASK, child, &event, elen) != -1);
52061.1Skamil
52071.13Schristos	DPRINTF("Before resuming the child process where it left off and "
52081.1Skamil	    "without signal to be sent\n");
52091.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
52101.1Skamil
52111.13Schristos	DPRINTF("Before calling %s() for the child - expected stopped "
52121.1Skamil	    "SIGTRAP\n", TWAIT_FNAME);
52131.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
52141.1Skamil
52151.1Skamil	validate_status_stopped(status, SIGTRAP);
52161.1Skamil
52171.13Schristos	SYSCALL_REQUIRE(ptrace(PT_GET_PROCESS_STATE, child, &state, slen) != -1);
52181.1Skamil
52191.1Skamil	ATF_REQUIRE_EQ(state.pe_report_event, PTRACE_LWP_CREATE);
52201.1Skamil
52211.1Skamil	lid = state.pe_lwp;
52221.13Schristos	DPRINTF("Reported PTRACE_LWP_CREATE event with lid %d\n", lid);
52231.1Skamil
52241.13Schristos	DPRINTF("Before resuming the child process where it left off and "
52251.1Skamil	    "without signal to be sent\n");
52261.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
52271.1Skamil
52281.13Schristos	DPRINTF("Before calling %s() for the child - expected exited\n",
52291.1Skamil	    TWAIT_FNAME);
52301.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
52311.1Skamil
52321.1Skamil	validate_status_exited(status, exitval);
52331.1Skamil
52341.13Schristos	DPRINTF("Before calling %s() for the child - expected no process\n",
52351.1Skamil	    TWAIT_FNAME);
52361.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
52371.1Skamil}
52381.1Skamil
52391.1SkamilATF_TC(lwp_exit1);
52401.1SkamilATF_TC_HEAD(lwp_exit1, tc)
52411.1Skamil{
52421.1Skamil	atf_tc_set_md_var(tc, "descr",
52431.1Skamil	    "Verify that 1 LWP creation is intercepted by ptrace(2) with "
52441.1Skamil	    "EVENT_MASK set to PTRACE_LWP_EXIT");
52451.1Skamil}
52461.1Skamil
52471.1SkamilATF_TC_BODY(lwp_exit1, tc)
52481.1Skamil{
52491.1Skamil	const int exitval = 5;
52501.1Skamil	const int sigval = SIGSTOP;
52511.1Skamil	pid_t child, wpid;
52521.1Skamil#if defined(TWAIT_HAVE_STATUS)
52531.1Skamil	int status;
52541.1Skamil#endif
52551.1Skamil	ptrace_state_t state;
52561.1Skamil	const int slen = sizeof(state);
52571.1Skamil	ptrace_event_t event;
52581.1Skamil	const int elen = sizeof(event);
52591.1Skamil	ucontext_t uc;
52601.1Skamil	lwpid_t lid;
52611.1Skamil	static const size_t ssize = 16*1024;
52621.1Skamil	void *stack;
52631.1Skamil
52641.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
52651.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
52661.1Skamil	if (child == 0) {
52671.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
52681.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
52691.1Skamil
52701.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
52711.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
52721.1Skamil
52731.13Schristos		DPRINTF("Before allocating memory for stack in child\n");
52741.1Skamil		FORKEE_ASSERT((stack = malloc(ssize)) != NULL);
52751.1Skamil
52761.13Schristos		DPRINTF("Before making context for new lwp in child\n");
52771.1Skamil		_lwp_makecontext(&uc, lwp_main_func, NULL, NULL, stack, ssize);
52781.1Skamil
52791.13Schristos		DPRINTF("Before creating new in child\n");
52801.1Skamil		FORKEE_ASSERT(_lwp_create(&uc, 0, &lid) == 0);
52811.1Skamil
52821.13Schristos		DPRINTF("Before waiting for lwp %d to exit\n", lid);
52831.1Skamil		FORKEE_ASSERT(_lwp_wait(lid, NULL) == 0);
52841.1Skamil
52851.13Schristos		DPRINTF("Before verifying that reported %d and running lid %d "
52861.1Skamil		    "are the same\n", lid, the_lwp_id);
52871.1Skamil		FORKEE_ASSERT_EQ(lid, the_lwp_id);
52881.1Skamil
52891.13Schristos		DPRINTF("Before exiting of the child process\n");
52901.1Skamil		_exit(exitval);
52911.1Skamil	}
52921.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
52931.1Skamil
52941.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
52951.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
52961.1Skamil
52971.1Skamil	validate_status_stopped(status, sigval);
52981.1Skamil
52991.13Schristos	DPRINTF("Set empty EVENT_MASK for the child %d\n", child);
53001.1Skamil	event.pe_set_event = PTRACE_LWP_EXIT;
53011.13Schristos	SYSCALL_REQUIRE(ptrace(PT_SET_EVENT_MASK, child, &event, elen) != -1);
53021.1Skamil
53031.13Schristos	DPRINTF("Before resuming the child process where it left off and "
53041.1Skamil	    "without signal to be sent\n");
53051.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
53061.1Skamil
53071.13Schristos	DPRINTF("Before calling %s() for the child - expected stopped "
53081.1Skamil	    "SIGTRAP\n", TWAIT_FNAME);
53091.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
53101.1Skamil
53111.1Skamil	validate_status_stopped(status, SIGTRAP);
53121.1Skamil
53131.13Schristos	SYSCALL_REQUIRE(ptrace(PT_GET_PROCESS_STATE, child, &state, slen) != -1);
53141.1Skamil
53151.1Skamil	ATF_REQUIRE_EQ(state.pe_report_event, PTRACE_LWP_EXIT);
53161.1Skamil
53171.1Skamil	lid = state.pe_lwp;
53181.13Schristos	DPRINTF("Reported PTRACE_LWP_EXIT event with lid %d\n", lid);
53191.1Skamil
53201.13Schristos	DPRINTF("Before resuming the child process where it left off and "
53211.1Skamil	    "without signal to be sent\n");
53221.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
53231.1Skamil
53241.13Schristos	DPRINTF("Before calling %s() for the child - expected exited\n",
53251.1Skamil	    TWAIT_FNAME);
53261.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
53271.1Skamil
53281.1Skamil	validate_status_exited(status, exitval);
53291.1Skamil
53301.13Schristos	DPRINTF("Before calling %s() for the child - expected no process\n",
53311.1Skamil	    TWAIT_FNAME);
53321.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
53331.1Skamil}
53341.1Skamil
53351.1SkamilATF_TC(signal1);
53361.1SkamilATF_TC_HEAD(signal1, tc)
53371.1Skamil{
53381.1Skamil	atf_tc_set_md_var(tc, "descr",
53391.1Skamil	    "Verify that masking single unrelated signal does not stop tracer "
53401.1Skamil	    "from catching other signals");
53411.1Skamil}
53421.1Skamil
53431.1SkamilATF_TC_BODY(signal1, tc)
53441.1Skamil{
53451.1Skamil	const int exitval = 5;
53461.1Skamil	const int sigval = SIGSTOP;
53471.1Skamil	const int sigmasked = SIGTRAP;
53481.1Skamil	const int signotmasked = SIGINT;
53491.1Skamil	pid_t child, wpid;
53501.1Skamil#if defined(TWAIT_HAVE_STATUS)
53511.1Skamil	int status;
53521.1Skamil#endif
53531.1Skamil	sigset_t intmask;
53541.1Skamil
53551.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
53561.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
53571.1Skamil	if (child == 0) {
53581.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
53591.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
53601.1Skamil
53611.1Skamil		sigemptyset(&intmask);
53621.1Skamil		sigaddset(&intmask, sigmasked);
53631.1Skamil		sigprocmask(SIG_BLOCK, &intmask, NULL);
53641.1Skamil
53651.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
53661.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
53671.1Skamil
53681.13Schristos		DPRINTF("Before raising %s from child\n",
53691.1Skamil		    strsignal(signotmasked));
53701.1Skamil		FORKEE_ASSERT(raise(signotmasked) == 0);
53711.1Skamil
53721.13Schristos		DPRINTF("Before exiting of the child process\n");
53731.1Skamil		_exit(exitval);
53741.1Skamil	}
53751.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
53761.1Skamil
53771.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
53781.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
53791.1Skamil
53801.1Skamil	validate_status_stopped(status, sigval);
53811.1Skamil
53821.13Schristos	DPRINTF("Before resuming the child process where it left off and "
53831.1Skamil	    "without signal to be sent\n");
53841.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
53851.1Skamil
53861.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
53871.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
53881.1Skamil
53891.1Skamil	validate_status_stopped(status, signotmasked);
53901.1Skamil
53911.13Schristos	DPRINTF("Before resuming the child process where it left off and "
53921.1Skamil	    "without signal to be sent\n");
53931.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
53941.1Skamil
53951.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
53961.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
53971.1Skamil
53981.1Skamil	validate_status_exited(status, exitval);
53991.1Skamil
54001.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
54011.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
54021.1Skamil}
54031.1Skamil
54041.1SkamilATF_TC(signal2);
54051.1SkamilATF_TC_HEAD(signal2, tc)
54061.1Skamil{
54071.1Skamil	atf_tc_set_md_var(tc, "descr",
54081.1Skamil	    "Verify that masking SIGTRAP in tracee stops tracer from "
54091.1Skamil	    "catching this raised signal");
54101.1Skamil}
54111.1Skamil
54121.1SkamilATF_TC_BODY(signal2, tc)
54131.1Skamil{
54141.1Skamil	const int exitval = 5;
54151.1Skamil	const int sigval = SIGSTOP;
54161.1Skamil	const int sigmasked = SIGTRAP;
54171.1Skamil	pid_t child, wpid;
54181.1Skamil#if defined(TWAIT_HAVE_STATUS)
54191.1Skamil	int status;
54201.1Skamil#endif
54211.1Skamil	sigset_t intmask;
54221.1Skamil
54231.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
54241.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
54251.1Skamil	if (child == 0) {
54261.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
54271.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
54281.1Skamil
54291.1Skamil		sigemptyset(&intmask);
54301.1Skamil		sigaddset(&intmask, sigmasked);
54311.1Skamil		sigprocmask(SIG_BLOCK, &intmask, NULL);
54321.1Skamil
54331.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
54341.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
54351.1Skamil
54361.13Schristos		DPRINTF("Before raising %s breakpoint from child\n",
54371.1Skamil		    strsignal(sigmasked));
54381.1Skamil		FORKEE_ASSERT(raise(sigmasked) == 0);
54391.1Skamil
54401.13Schristos		DPRINTF("Before exiting of the child process\n");
54411.1Skamil		_exit(exitval);
54421.1Skamil	}
54431.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
54441.1Skamil
54451.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
54461.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
54471.1Skamil
54481.1Skamil	validate_status_stopped(status, sigval);
54491.1Skamil
54501.13Schristos	DPRINTF("Before resuming the child process where it left off and "
54511.1Skamil	    "without signal to be sent\n");
54521.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
54531.1Skamil
54541.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
54551.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
54561.1Skamil
54571.1Skamil	validate_status_exited(status, exitval);
54581.1Skamil
54591.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
54601.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
54611.1Skamil}
54621.1Skamil
54631.1SkamilATF_TC(signal3);
54641.1SkamilATF_TC_HEAD(signal3, tc)
54651.1Skamil{
54661.7Skamil	atf_tc_set_md_var(tc, "timeout", "5");
54671.1Skamil	atf_tc_set_md_var(tc, "descr",
54681.1Skamil	    "Verify that masking SIGTRAP in tracee does not stop tracer from "
54691.1Skamil	    "catching software breakpoints");
54701.1Skamil}
54711.1Skamil
54721.1SkamilATF_TC_BODY(signal3, tc)
54731.1Skamil{
54741.1Skamil	const int exitval = 5;
54751.1Skamil	const int sigval = SIGSTOP;
54761.1Skamil	const int sigmasked = SIGTRAP;
54771.1Skamil	pid_t child, wpid;
54781.1Skamil#if defined(TWAIT_HAVE_STATUS)
54791.1Skamil	int status;
54801.1Skamil#endif
54811.1Skamil	sigset_t intmask;
54821.1Skamil
54831.20Skamil	atf_tc_expect_fail("PR kern/51918");
54841.20Skamil
54851.20Skamil	// This test breaks now on some ports, temporarily disable it
54861.20Skamil	ATF_REQUIRE(0 && "In order to get reliable failure, abort");
54871.20Skamil
54881.10Smartin#if defined(__sparc__)
54891.7Skamil	atf_tc_expect_timeout("PR kern/52167");
54901.7Skamil
54911.7Skamil	// timeout wins, failure still valid
54921.7Skamil	// atf_tc_expect_fail("PR kern/51918");
54931.7Skamil#endif
54941.1Skamil
54951.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
54961.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
54971.1Skamil	if (child == 0) {
54981.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
54991.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
55001.1Skamil
55011.1Skamil		sigemptyset(&intmask);
55021.1Skamil		sigaddset(&intmask, sigmasked);
55031.1Skamil		sigprocmask(SIG_BLOCK, &intmask, NULL);
55041.1Skamil
55051.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
55061.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
55071.1Skamil
55081.13Schristos		DPRINTF("Before raising software breakpoint from child\n");
55091.4Skamil
55101.4Skamil#ifdef PTRACE_BREAKPOINT_ASM
55111.4Skamil		PTRACE_BREAKPOINT_ASM;
55121.1Skamil#else
55131.4Skamil		/* port me */
55141.1Skamil#endif
55151.1Skamil
55161.13Schristos		DPRINTF("Before exiting of the child process\n");
55171.1Skamil		_exit(exitval);
55181.1Skamil	}
55191.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
55201.1Skamil
55211.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
55221.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
55231.1Skamil
55241.1Skamil	validate_status_stopped(status, sigval);
55251.1Skamil
55261.13Schristos	DPRINTF("Before resuming the child process where it left off and "
55271.1Skamil	    "without signal to be sent\n");
55281.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
55291.1Skamil
55301.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
55311.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
55321.1Skamil
55331.1Skamil	validate_status_stopped(status, sigmasked);
55341.1Skamil
55351.13Schristos	DPRINTF("Before resuming the child process where it left off and "
55361.1Skamil	    "without signal to be sent\n");
55371.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
55381.1Skamil
55391.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
55401.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
55411.1Skamil
55421.1Skamil	validate_status_exited(status, exitval);
55431.1Skamil
55441.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
55451.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
55461.1Skamil}
55471.1Skamil
55481.1Skamil#if defined(PT_STEP)
55491.1SkamilATF_TC(signal4);
55501.1SkamilATF_TC_HEAD(signal4, tc)
55511.1Skamil{
55521.1Skamil	atf_tc_set_md_var(tc, "descr",
55531.1Skamil	    "Verify that masking SIGTRAP in tracee does not stop tracer from "
55541.1Skamil	    "catching single step trap");
55551.1Skamil}
55561.1Skamil
55571.1SkamilATF_TC_BODY(signal4, tc)
55581.1Skamil{
55591.1Skamil	const int exitval = 5;
55601.1Skamil	const int sigval = SIGSTOP;
55611.1Skamil	const int sigmasked = SIGTRAP;
55621.1Skamil	pid_t child, wpid;
55631.1Skamil#if defined(TWAIT_HAVE_STATUS)
55641.1Skamil	int status;
55651.1Skamil#endif
55661.1Skamil	sigset_t intmask;
55671.1Skamil	int happy;
55681.1Skamil
55691.1Skamil#if defined(__arm__)
55701.5Skamil	/* PT_STEP not supported on arm 32-bit */
55711.5Skamil	atf_tc_expect_fail("PR kern/51918 PR kern/52119");
55721.1Skamil#endif
55731.1Skamil
55741.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
55751.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
55761.1Skamil	if (child == 0) {
55771.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
55781.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
55791.1Skamil
55801.1Skamil		happy = check_happy(100);
55811.1Skamil
55821.1Skamil		sigemptyset(&intmask);
55831.1Skamil		sigaddset(&intmask, sigmasked);
55841.1Skamil		sigprocmask(SIG_BLOCK, &intmask, NULL);
55851.1Skamil
55861.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
55871.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
55881.1Skamil
55891.1Skamil		FORKEE_ASSERT_EQ(happy, check_happy(100));
55901.1Skamil
55911.13Schristos		DPRINTF("Before exiting of the child process\n");
55921.1Skamil		_exit(exitval);
55931.1Skamil	}
55941.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
55951.1Skamil
55961.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
55971.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
55981.1Skamil
55991.1Skamil	validate_status_stopped(status, sigval);
56001.1Skamil
56011.13Schristos	DPRINTF("Before resuming the child process where it left off and "
56021.1Skamil	    "without signal to be sent\n");
56031.13Schristos	SYSCALL_REQUIRE(ptrace(PT_STEP, child, (void *)1, 0) != -1);
56041.1Skamil
56051.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
56061.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
56071.1Skamil
56081.1Skamil	validate_status_stopped(status, sigmasked);
56091.1Skamil
56101.13Schristos	DPRINTF("Before resuming the child process where it left off and "
56111.1Skamil	    "without signal to be sent\n");
56121.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
56131.1Skamil
56141.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
56151.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
56161.1Skamil
56171.1Skamil	validate_status_exited(status, exitval);
56181.1Skamil
56191.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
56201.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
56211.1Skamil}
56221.1Skamil#endif
56231.1Skamil
56241.1SkamilATF_TC(signal5);
56251.1SkamilATF_TC_HEAD(signal5, tc)
56261.1Skamil{
56271.1Skamil	atf_tc_set_md_var(tc, "descr",
56281.1Skamil	    "Verify that masking SIGTRAP in tracee does not stop tracer from "
56291.1Skamil	    "catching exec() breakpoint");
56301.1Skamil}
56311.1Skamil
56321.1SkamilATF_TC_BODY(signal5, tc)
56331.1Skamil{
56341.1Skamil	const int exitval = 5;
56351.1Skamil	const int sigval = SIGSTOP;
56361.1Skamil	const int sigmasked = SIGTRAP;
56371.1Skamil	pid_t child, wpid;
56381.1Skamil#if defined(TWAIT_HAVE_STATUS)
56391.1Skamil	int status;
56401.1Skamil#endif
56411.1Skamil	sigset_t intmask;
56421.1Skamil
56431.14Schristos	atf_tc_expect_fail("wrong signal");
56441.14Schristos
56451.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
56461.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
56471.1Skamil	if (child == 0) {
56481.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
56491.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
56501.1Skamil
56511.1Skamil		sigemptyset(&intmask);
56521.1Skamil		sigaddset(&intmask, sigmasked);
56531.1Skamil		sigprocmask(SIG_BLOCK, &intmask, NULL);
56541.1Skamil
56551.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
56561.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
56571.1Skamil
56581.13Schristos		DPRINTF("Before calling execve(2) from child\n");
56591.1Skamil		execlp("/bin/echo", "/bin/echo", NULL);
56601.1Skamil
56611.13Schristos		DPRINTF("Before exiting of the child process\n");
56621.1Skamil		_exit(exitval);
56631.1Skamil	}
56641.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
56651.1Skamil
56661.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
56671.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
56681.1Skamil
56691.1Skamil	validate_status_stopped(status, sigval);
56701.1Skamil
56711.13Schristos	DPRINTF("Before resuming the child process where it left off and "
56721.1Skamil	    "without signal to be sent\n");
56731.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
56741.1Skamil
56751.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
56761.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
56771.1Skamil
56781.1Skamil	validate_status_stopped(status, sigmasked);
56791.1Skamil
56801.13Schristos	DPRINTF("Before resuming the child process where it left off and "
56811.1Skamil	    "without signal to be sent\n");
56821.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
56831.1Skamil
56841.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
56851.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
56861.1Skamil
56871.1Skamil	validate_status_exited(status, exitval);
56881.1Skamil
56891.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
56901.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
56911.1Skamil}
56921.1Skamil
56931.1Skamil#if defined(TWAIT_HAVE_PID)
56941.1SkamilATF_TC(signal6);
56951.1SkamilATF_TC_HEAD(signal6, tc)
56961.1Skamil{
56971.1Skamil	atf_tc_set_md_var(tc, "timeout", "5");
56981.1Skamil	atf_tc_set_md_var(tc, "descr",
56991.1Skamil	    "Verify that masking SIGTRAP in tracee does not stop tracer from "
57001.1Skamil	    "catching PTRACE_FORK breakpoint");
57011.1Skamil}
57021.1Skamil
57031.1SkamilATF_TC_BODY(signal6, tc)
57041.1Skamil{
57051.1Skamil	const int exitval = 5;
57061.1Skamil	const int exitval2 = 15;
57071.1Skamil	const int sigval = SIGSTOP;
57081.1Skamil	const int sigmasked = SIGTRAP;
57091.1Skamil	pid_t child, child2, wpid;
57101.1Skamil#if defined(TWAIT_HAVE_STATUS)
57111.1Skamil	int status;
57121.1Skamil#endif
57131.1Skamil	sigset_t intmask;
57141.1Skamil	ptrace_state_t state;
57151.1Skamil	const int slen = sizeof(state);
57161.1Skamil	ptrace_event_t event;
57171.1Skamil	const int elen = sizeof(event);
57181.1Skamil
57191.38Skamil	atf_tc_expect_fail("PR kern/51918");
57201.14Schristos
57211.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
57221.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
57231.1Skamil	if (child == 0) {
57241.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
57251.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
57261.1Skamil
57271.1Skamil		sigemptyset(&intmask);
57281.1Skamil		sigaddset(&intmask, sigmasked);
57291.1Skamil		sigprocmask(SIG_BLOCK, &intmask, NULL);
57301.1Skamil
57311.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
57321.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
57331.1Skamil
57341.1Skamil		FORKEE_ASSERT((child2 = fork()) != -1);
57351.1Skamil
57361.1Skamil		if (child2 == 0)
57371.1Skamil			_exit(exitval2);
57381.1Skamil
57391.1Skamil		FORKEE_REQUIRE_SUCCESS
57401.1Skamil			(wpid = TWAIT_GENERIC(child2, &status, 0), child2);
57411.1Skamil
57421.1Skamil		forkee_status_exited(status, exitval2);
57431.1Skamil
57441.13Schristos		DPRINTF("Before exiting of the child process\n");
57451.1Skamil		_exit(exitval);
57461.1Skamil	}
57471.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
57481.1Skamil
57491.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
57501.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
57511.1Skamil
57521.1Skamil	validate_status_stopped(status, sigval);
57531.1Skamil
57541.13Schristos	DPRINTF("Enable PTRACE_FORK in EVENT_MASK for the child %d\n", child);
57551.1Skamil	event.pe_set_event = PTRACE_FORK;
57561.13Schristos	SYSCALL_REQUIRE(ptrace(PT_SET_EVENT_MASK, child, &event, elen) != -1);
57571.1Skamil
57581.13Schristos	DPRINTF("Before resuming the child process where it left off and "
57591.1Skamil	    "without signal to be sent\n");
57601.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
57611.1Skamil
57621.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
57631.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
57641.1Skamil
57651.1Skamil	validate_status_stopped(status, sigmasked);
57661.1Skamil
57671.13Schristos	SYSCALL_REQUIRE(ptrace(PT_GET_PROCESS_STATE, child, &state, slen) != -1);
57681.1Skamil	ATF_REQUIRE_EQ(state.pe_report_event, PTRACE_FORK);
57691.1Skamil
57701.1Skamil	child2 = state.pe_other_pid;
57711.13Schristos	DPRINTF("Reported PTRACE_FORK event with forkee %d\n", child2);
57721.1Skamil
57731.13Schristos	DPRINTF("Before calling %s() for the child2\n", TWAIT_FNAME);
57741.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child2, &status, 0),
57751.1Skamil	    child2);
57761.1Skamil
57771.1Skamil	validate_status_stopped(status, SIGTRAP);
57781.1Skamil
57791.13Schristos	SYSCALL_REQUIRE(ptrace(PT_GET_PROCESS_STATE, child2, &state, slen) != -1);
57801.1Skamil	ATF_REQUIRE_EQ(state.pe_report_event, PTRACE_FORK);
57811.1Skamil	ATF_REQUIRE_EQ(state.pe_other_pid, child);
57821.1Skamil
57831.13Schristos	DPRINTF("Before resuming the forkee process where it left off and "
57841.1Skamil	    "without signal to be sent\n");
57851.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child2, (void *)1, 0) != -1);
57861.1Skamil
57871.13Schristos	DPRINTF("Before resuming the child process where it left off and "
57881.1Skamil	    "without signal to be sent\n");
57891.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
57901.1Skamil
57911.13Schristos	DPRINTF("Before calling %s() for the forkee - expected exited\n",
57921.1Skamil	    TWAIT_FNAME);
57931.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child2, &status, 0),
57941.1Skamil	    child2);
57951.1Skamil
57961.1Skamil	validate_status_exited(status, exitval2);
57971.1Skamil
57981.13Schristos	DPRINTF("Before calling %s() for the forkee - expected no process\n",
57991.1Skamil	    TWAIT_FNAME);
58001.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD,
58011.1Skamil	    wpid = TWAIT_GENERIC(child2, &status, 0));
58021.1Skamil
58031.13Schristos	DPRINTF("Before calling %s() for the child - expected stopped "
58041.1Skamil	    "SIGCHLD\n", TWAIT_FNAME);
58051.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
58061.1Skamil
58071.1Skamil	validate_status_stopped(status, SIGCHLD);
58081.1Skamil
58091.13Schristos	DPRINTF("Before resuming the child process where it left off and "
58101.1Skamil	    "without signal to be sent\n");
58111.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
58121.1Skamil
58131.13Schristos	DPRINTF("Before calling %s() for the child - expected exited\n",
58141.1Skamil	    TWAIT_FNAME);
58151.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
58161.1Skamil
58171.1Skamil	validate_status_exited(status, exitval);
58181.1Skamil
58191.13Schristos	DPRINTF("Before calling %s() for the child - expected no process\n",
58201.1Skamil	    TWAIT_FNAME);
58211.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
58221.1Skamil}
58231.1Skamil#endif
58241.1Skamil
58251.1Skamil#if defined(TWAIT_HAVE_PID)
58261.1SkamilATF_TC(signal7);
58271.1SkamilATF_TC_HEAD(signal7, tc)
58281.1Skamil{
58291.1Skamil	atf_tc_set_md_var(tc, "descr",
58301.1Skamil	    "Verify that masking SIGTRAP in tracee does not stop tracer from "
58311.1Skamil	    "catching PTRACE_VFORK breakpoint");
58321.1Skamil}
58331.1Skamil
58341.1SkamilATF_TC_BODY(signal7, tc)
58351.1Skamil{
58361.1Skamil	const int exitval = 5;
58371.1Skamil	const int exitval2 = 15;
58381.1Skamil	const int sigval = SIGSTOP;
58391.1Skamil	const int sigmasked = SIGTRAP;
58401.1Skamil	pid_t child, child2, wpid;
58411.1Skamil#if defined(TWAIT_HAVE_STATUS)
58421.1Skamil	int status;
58431.1Skamil#endif
58441.1Skamil	sigset_t intmask;
58451.1Skamil	ptrace_state_t state;
58461.1Skamil	const int slen = sizeof(state);
58471.1Skamil	ptrace_event_t event;
58481.1Skamil	const int elen = sizeof(event);
58491.1Skamil
58501.38Skamil	atf_tc_expect_fail("PR kern/51918");
58511.14Schristos
58521.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
58531.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
58541.1Skamil	if (child == 0) {
58551.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
58561.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
58571.1Skamil
58581.1Skamil		sigemptyset(&intmask);
58591.1Skamil		sigaddset(&intmask, sigmasked);
58601.1Skamil		sigprocmask(SIG_BLOCK, &intmask, NULL);
58611.1Skamil
58621.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
58631.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
58641.1Skamil
58651.1Skamil		FORKEE_ASSERT((child2 = fork()) != -1);
58661.1Skamil
58671.1Skamil		if (child2 == 0)
58681.1Skamil			_exit(exitval2);
58691.1Skamil
58701.1Skamil		FORKEE_REQUIRE_SUCCESS
58711.1Skamil			(wpid = TWAIT_GENERIC(child2, &status, 0), child2);
58721.1Skamil
58731.1Skamil		forkee_status_exited(status, exitval2);
58741.1Skamil
58751.13Schristos		DPRINTF("Before exiting of the child process\n");
58761.1Skamil		_exit(exitval);
58771.1Skamil	}
58781.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
58791.1Skamil
58801.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
58811.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
58821.1Skamil
58831.1Skamil	validate_status_stopped(status, sigval);
58841.1Skamil
58851.13Schristos	DPRINTF("Enable PTRACE_VFORK in EVENT_MASK for the child %d\n", child);
58861.1Skamil	event.pe_set_event = PTRACE_VFORK;
58871.13Schristos	SYSCALL_REQUIRE(ptrace(PT_SET_EVENT_MASK, child, &event, elen) != -1 || errno == ENOTSUP);
58881.1Skamil
58891.13Schristos	DPRINTF("Before resuming the child process where it left off and "
58901.1Skamil	    "without signal to be sent\n");
58911.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
58921.1Skamil
58931.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
58941.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
58951.1Skamil
58961.1Skamil	validate_status_stopped(status, sigmasked);
58971.1Skamil
58981.13Schristos	SYSCALL_REQUIRE(ptrace(PT_GET_PROCESS_STATE, child, &state, slen) != -1);
58991.1Skamil	ATF_REQUIRE_EQ(state.pe_report_event, PTRACE_VFORK);
59001.1Skamil
59011.1Skamil	child2 = state.pe_other_pid;
59021.13Schristos	DPRINTF("Reported PTRACE_VFORK event with forkee %d\n", child2);
59031.1Skamil
59041.13Schristos	DPRINTF("Before calling %s() for the child2\n", TWAIT_FNAME);
59051.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child2, &status, 0),
59061.1Skamil	    child2);
59071.1Skamil
59081.1Skamil	validate_status_stopped(status, SIGTRAP);
59091.1Skamil
59101.13Schristos	SYSCALL_REQUIRE(ptrace(PT_GET_PROCESS_STATE, child2, &state, slen) != -1);
59111.1Skamil	ATF_REQUIRE_EQ(state.pe_report_event, PTRACE_VFORK);
59121.1Skamil	ATF_REQUIRE_EQ(state.pe_other_pid, child);
59131.1Skamil
59141.13Schristos	DPRINTF("Before resuming the forkee process where it left off and "
59151.1Skamil	    "without signal to be sent\n");
59161.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child2, (void *)1, 0) != -1);
59171.1Skamil
59181.13Schristos	DPRINTF("Before resuming the child process where it left off and "
59191.1Skamil	    "without signal to be sent\n");
59201.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
59211.1Skamil
59221.13Schristos	DPRINTF("Before calling %s() for the forkee - expected exited\n",
59231.1Skamil	    TWAIT_FNAME);
59241.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child2, &status, 0),
59251.1Skamil	    child2);
59261.1Skamil
59271.1Skamil	validate_status_exited(status, exitval2);
59281.1Skamil
59291.13Schristos	DPRINTF("Before calling %s() for the forkee - expected no process\n",
59301.1Skamil	    TWAIT_FNAME);
59311.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD,
59321.1Skamil	    wpid = TWAIT_GENERIC(child2, &status, 0));
59331.1Skamil
59341.13Schristos	DPRINTF("Before calling %s() for the child - expected stopped "
59351.1Skamil	    "SIGCHLD\n", TWAIT_FNAME);
59361.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
59371.1Skamil
59381.1Skamil	validate_status_stopped(status, SIGCHLD);
59391.1Skamil
59401.13Schristos	DPRINTF("Before resuming the child process where it left off and "
59411.1Skamil	    "without signal to be sent\n");
59421.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
59431.1Skamil
59441.13Schristos	DPRINTF("Before calling %s() for the child - expected exited\n",
59451.1Skamil	    TWAIT_FNAME);
59461.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
59471.1Skamil
59481.1Skamil	validate_status_exited(status, exitval);
59491.1Skamil
59501.13Schristos	DPRINTF("Before calling %s() for the child - expected no process\n",
59511.1Skamil	    TWAIT_FNAME);
59521.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
59531.1Skamil}
59541.1Skamil#endif
59551.1Skamil
59561.1SkamilATF_TC(signal8);
59571.1SkamilATF_TC_HEAD(signal8, tc)
59581.1Skamil{
59591.1Skamil	atf_tc_set_md_var(tc, "descr",
59601.1Skamil	    "Verify that masking SIGTRAP in tracee does not stop tracer from "
59611.1Skamil	    "catching PTRACE_VFORK_DONE breakpoint");
59621.1Skamil}
59631.1Skamil
59641.1SkamilATF_TC_BODY(signal8, tc)
59651.1Skamil{
59661.1Skamil	const int exitval = 5;
59671.1Skamil	const int exitval2 = 15;
59681.1Skamil	const int sigval = SIGSTOP;
59691.1Skamil	const int sigmasked = SIGTRAP;
59701.1Skamil	pid_t child, child2, wpid;
59711.1Skamil#if defined(TWAIT_HAVE_STATUS)
59721.1Skamil	int status;
59731.1Skamil#endif
59741.1Skamil	sigset_t intmask;
59751.1Skamil	ptrace_state_t state;
59761.1Skamil	const int slen = sizeof(state);
59771.1Skamil	ptrace_event_t event;
59781.1Skamil	const int elen = sizeof(event);
59791.1Skamil
59801.14Schristos	atf_tc_expect_fail("PR kern/51918");
59811.14Schristos
59821.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
59831.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
59841.1Skamil	if (child == 0) {
59851.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
59861.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
59871.1Skamil
59881.1Skamil		sigemptyset(&intmask);
59891.1Skamil		sigaddset(&intmask, sigmasked);
59901.1Skamil		sigprocmask(SIG_BLOCK, &intmask, NULL);
59911.1Skamil
59921.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
59931.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
59941.1Skamil
59951.1Skamil		FORKEE_ASSERT((child2 = vfork()) != -1);
59961.1Skamil
59971.1Skamil		if (child2 == 0)
59981.1Skamil			_exit(exitval2);
59991.1Skamil
60001.1Skamil		FORKEE_REQUIRE_SUCCESS
60011.1Skamil			(wpid = TWAIT_GENERIC(child2, &status, 0), child2);
60021.1Skamil
60031.1Skamil		forkee_status_exited(status, exitval2);
60041.1Skamil
60051.13Schristos		DPRINTF("Before exiting of the child process\n");
60061.1Skamil		_exit(exitval);
60071.1Skamil	}
60081.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
60091.1Skamil
60101.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
60111.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
60121.1Skamil
60131.1Skamil	validate_status_stopped(status, sigval);
60141.1Skamil
60151.13Schristos	DPRINTF("Enable PTRACE_VFORK_DONE in EVENT_MASK for the child %d\n",
60161.1Skamil	    child);
60171.1Skamil	event.pe_set_event = PTRACE_VFORK_DONE;
60181.13Schristos	SYSCALL_REQUIRE(ptrace(PT_SET_EVENT_MASK, child, &event, elen) != -1);
60191.1Skamil
60201.13Schristos	DPRINTF("Before resuming the child process where it left off and "
60211.1Skamil	    "without signal to be sent\n");
60221.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
60231.1Skamil
60241.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
60251.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
60261.1Skamil
60271.1Skamil	validate_status_stopped(status, sigmasked);
60281.1Skamil
60291.13Schristos	SYSCALL_REQUIRE(ptrace(PT_GET_PROCESS_STATE, child, &state, slen) != -1);
60301.1Skamil	ATF_REQUIRE_EQ(state.pe_report_event, PTRACE_VFORK_DONE);
60311.1Skamil
60321.1Skamil	child2 = state.pe_other_pid;
60331.13Schristos	DPRINTF("Reported PTRACE_VFORK_DONE event with forkee %d\n", child2);
60341.1Skamil
60351.13Schristos	DPRINTF("Before resuming the child process where it left off and "
60361.1Skamil	    "without signal to be sent\n");
60371.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
60381.1Skamil
60391.13Schristos	DPRINTF("Before calling %s() for the child - expected stopped "
60401.1Skamil	    "SIGCHLD\n", TWAIT_FNAME);
60411.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
60421.1Skamil
60431.1Skamil	validate_status_stopped(status, SIGCHLD);
60441.1Skamil
60451.13Schristos	DPRINTF("Before resuming the child process where it left off and "
60461.1Skamil	    "without signal to be sent\n");
60471.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
60481.1Skamil
60491.13Schristos	DPRINTF("Before calling %s() for the child - expected exited\n",
60501.1Skamil	    TWAIT_FNAME);
60511.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
60521.1Skamil
60531.1Skamil	validate_status_exited(status, exitval);
60541.1Skamil
60551.13Schristos	DPRINTF("Before calling %s() for the child - expected no process\n",
60561.1Skamil	    TWAIT_FNAME);
60571.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
60581.1Skamil}
60591.1Skamil
60601.1SkamilATF_TC(signal9);
60611.1SkamilATF_TC_HEAD(signal9, tc)
60621.1Skamil{
60631.1Skamil	atf_tc_set_md_var(tc, "descr",
60641.1Skamil	    "Verify that masking SIGTRAP in tracee does not stop tracer from "
60651.1Skamil	    "catching PTRACE_LWP_CREATE breakpoint");
60661.1Skamil}
60671.1Skamil
60681.1SkamilATF_TC_BODY(signal9, tc)
60691.1Skamil{
60701.1Skamil	const int exitval = 5;
60711.1Skamil	const int sigval = SIGSTOP;
60721.1Skamil	const int sigmasked = SIGTRAP;
60731.1Skamil	pid_t child, wpid;
60741.1Skamil#if defined(TWAIT_HAVE_STATUS)
60751.1Skamil	int status;
60761.1Skamil#endif
60771.1Skamil	sigset_t intmask;
60781.1Skamil	ptrace_state_t state;
60791.1Skamil	const int slen = sizeof(state);
60801.1Skamil	ptrace_event_t event;
60811.1Skamil	const int elen = sizeof(event);
60821.1Skamil	ucontext_t uc;
60831.1Skamil	lwpid_t lid;
60841.1Skamil	static const size_t ssize = 16*1024;
60851.1Skamil	void *stack;
60861.1Skamil
60871.14Schristos	atf_tc_expect_fail("PR kern/51918");
60881.14Schristos
60891.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
60901.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
60911.1Skamil	if (child == 0) {
60921.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
60931.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
60941.1Skamil
60951.1Skamil		sigemptyset(&intmask);
60961.1Skamil		sigaddset(&intmask, sigmasked);
60971.1Skamil		sigprocmask(SIG_BLOCK, &intmask, NULL);
60981.1Skamil
60991.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
61001.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
61011.1Skamil
61021.13Schristos		DPRINTF("Before allocating memory for stack in child\n");
61031.1Skamil		FORKEE_ASSERT((stack = malloc(ssize)) != NULL);
61041.1Skamil
61051.13Schristos		DPRINTF("Before making context for new lwp in child\n");
61061.1Skamil		_lwp_makecontext(&uc, lwp_main_func, NULL, NULL, stack, ssize);
61071.1Skamil
61081.13Schristos		DPRINTF("Before creating new in child\n");
61091.1Skamil		FORKEE_ASSERT(_lwp_create(&uc, 0, &lid) == 0);
61101.1Skamil
61111.13Schristos		DPRINTF("Before waiting for lwp %d to exit\n", lid);
61121.1Skamil		FORKEE_ASSERT(_lwp_wait(lid, NULL) == 0);
61131.1Skamil
61141.13Schristos		DPRINTF("Before verifying that reported %d and running lid %d "
61151.1Skamil		    "are the same\n", lid, the_lwp_id);
61161.1Skamil		FORKEE_ASSERT_EQ(lid, the_lwp_id);
61171.1Skamil
61181.13Schristos		DPRINTF("Before exiting of the child process\n");
61191.1Skamil		_exit(exitval);
61201.1Skamil	}
61211.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
61221.1Skamil
61231.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
61241.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
61251.1Skamil
61261.1Skamil	validate_status_stopped(status, sigval);
61271.1Skamil
61281.13Schristos	DPRINTF("Set empty EVENT_MASK for the child %d\n", child);
61291.1Skamil	event.pe_set_event = PTRACE_LWP_CREATE;
61301.13Schristos	SYSCALL_REQUIRE(ptrace(PT_SET_EVENT_MASK, child, &event, elen) != -1);
61311.1Skamil
61321.13Schristos	DPRINTF("Before resuming the child process where it left off and "
61331.1Skamil	    "without signal to be sent\n");
61341.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
61351.1Skamil
61361.13Schristos	DPRINTF("Before calling %s() for the child - expected stopped "
61371.1Skamil	    "SIGTRAP\n", TWAIT_FNAME);
61381.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
61391.1Skamil
61401.1Skamil	validate_status_stopped(status, sigmasked);
61411.1Skamil
61421.13Schristos	SYSCALL_REQUIRE(ptrace(PT_GET_PROCESS_STATE, child, &state, slen) != -1);
61431.1Skamil
61441.1Skamil	ATF_REQUIRE_EQ(state.pe_report_event, PTRACE_LWP_CREATE);
61451.1Skamil
61461.1Skamil	lid = state.pe_lwp;
61471.13Schristos	DPRINTF("Reported PTRACE_LWP_CREATE event with lid %d\n", lid);
61481.1Skamil
61491.13Schristos	DPRINTF("Before resuming the child process where it left off and "
61501.1Skamil	    "without signal to be sent\n");
61511.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
61521.1Skamil
61531.13Schristos	DPRINTF("Before calling %s() for the child - expected exited\n",
61541.1Skamil	    TWAIT_FNAME);
61551.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
61561.1Skamil
61571.1Skamil	validate_status_exited(status, exitval);
61581.1Skamil
61591.13Schristos	DPRINTF("Before calling %s() for the child - expected no process\n",
61601.1Skamil	    TWAIT_FNAME);
61611.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
61621.1Skamil}
61631.1Skamil
61641.1SkamilATF_TC(signal10);
61651.1SkamilATF_TC_HEAD(signal10, tc)
61661.1Skamil{
61671.1Skamil	atf_tc_set_md_var(tc, "descr",
61681.1Skamil	    "Verify that masking SIGTRAP in tracee does not stop tracer from "
61691.1Skamil	    "catching PTRACE_LWP_EXIT breakpoint");
61701.1Skamil}
61711.1Skamil
61721.1SkamilATF_TC_BODY(signal10, tc)
61731.1Skamil{
61741.1Skamil	const int exitval = 5;
61751.1Skamil	const int sigval = SIGSTOP;
61761.1Skamil	const int sigmasked = SIGTRAP;
61771.1Skamil	pid_t child, wpid;
61781.1Skamil#if defined(TWAIT_HAVE_STATUS)
61791.1Skamil	int status;
61801.1Skamil#endif
61811.1Skamil	sigset_t intmask;
61821.1Skamil	ptrace_state_t state;
61831.1Skamil	const int slen = sizeof(state);
61841.1Skamil	ptrace_event_t event;
61851.1Skamil	const int elen = sizeof(event);
61861.1Skamil	ucontext_t uc;
61871.1Skamil	lwpid_t lid;
61881.1Skamil	static const size_t ssize = 16*1024;
61891.1Skamil	void *stack;
61901.1Skamil
61911.14Schristos	atf_tc_expect_fail("PR kern/51918");
61921.14Schristos
61931.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
61941.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
61951.1Skamil	if (child == 0) {
61961.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
61971.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
61981.1Skamil
61991.1Skamil		sigemptyset(&intmask);
62001.1Skamil		sigaddset(&intmask, sigmasked);
62011.1Skamil		sigprocmask(SIG_BLOCK, &intmask, NULL);
62021.1Skamil
62031.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
62041.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
62051.1Skamil
62061.13Schristos		DPRINTF("Before allocating memory for stack in child\n");
62071.1Skamil		FORKEE_ASSERT((stack = malloc(ssize)) != NULL);
62081.1Skamil
62091.13Schristos		DPRINTF("Before making context for new lwp in child\n");
62101.1Skamil		_lwp_makecontext(&uc, lwp_main_func, NULL, NULL, stack, ssize);
62111.1Skamil
62121.13Schristos		DPRINTF("Before creating new in child\n");
62131.1Skamil		FORKEE_ASSERT(_lwp_create(&uc, 0, &lid) == 0);
62141.1Skamil
62151.13Schristos		DPRINTF("Before waiting for lwp %d to exit\n", lid);
62161.1Skamil		FORKEE_ASSERT(_lwp_wait(lid, NULL) == 0);
62171.1Skamil
62181.13Schristos		DPRINTF("Before verifying that reported %d and running lid %d "
62191.1Skamil		    "are the same\n", lid, the_lwp_id);
62201.1Skamil		FORKEE_ASSERT_EQ(lid, the_lwp_id);
62211.1Skamil
62221.13Schristos		DPRINTF("Before exiting of the child process\n");
62231.1Skamil		_exit(exitval);
62241.1Skamil	}
62251.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
62261.1Skamil
62271.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
62281.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
62291.1Skamil
62301.1Skamil	validate_status_stopped(status, sigval);
62311.1Skamil
62321.13Schristos	DPRINTF("Set empty EVENT_MASK for the child %d\n", child);
62331.1Skamil	event.pe_set_event = PTRACE_LWP_EXIT;
62341.13Schristos	SYSCALL_REQUIRE(ptrace(PT_SET_EVENT_MASK, child, &event, elen) != -1);
62351.1Skamil
62361.13Schristos	DPRINTF("Before resuming the child process where it left off and "
62371.1Skamil	    "without signal to be sent\n");
62381.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
62391.1Skamil
62401.13Schristos	DPRINTF("Before calling %s() for the child - expected stopped "
62411.1Skamil	    "SIGTRAP\n", TWAIT_FNAME);
62421.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
62431.1Skamil
62441.1Skamil	validate_status_stopped(status, sigmasked);
62451.1Skamil
62461.13Schristos	SYSCALL_REQUIRE(ptrace(PT_GET_PROCESS_STATE, child, &state, slen) != -1);
62471.1Skamil
62481.1Skamil	ATF_REQUIRE_EQ(state.pe_report_event, PTRACE_LWP_EXIT);
62491.1Skamil
62501.1Skamil	lid = state.pe_lwp;
62511.13Schristos	DPRINTF("Reported PTRACE_LWP_EXIT event with lid %d\n", lid);
62521.1Skamil
62531.13Schristos	DPRINTF("Before resuming the child process where it left off and "
62541.1Skamil	    "without signal to be sent\n");
62551.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
62561.1Skamil
62571.13Schristos	DPRINTF("Before calling %s() for the child - expected exited\n",
62581.1Skamil	    TWAIT_FNAME);
62591.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
62601.1Skamil
62611.1Skamil	validate_status_exited(status, exitval);
62621.1Skamil
62631.13Schristos	DPRINTF("Before calling %s() for the child - expected no process\n",
62641.1Skamil	    TWAIT_FNAME);
62651.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
62661.1Skamil}
62671.1Skamil
62681.1Skamilstatic void
62691.1Skamillwp_main_stop(void *arg)
62701.1Skamil{
62711.1Skamil	the_lwp_id = _lwp_self();
62721.1Skamil
62731.1Skamil	raise(SIGTRAP);
62741.1Skamil
62751.1Skamil	_lwp_exit();
62761.1Skamil}
62771.1Skamil
62781.1SkamilATF_TC(suspend1);
62791.1SkamilATF_TC_HEAD(suspend1, tc)
62801.1Skamil{
62811.1Skamil	atf_tc_set_md_var(tc, "descr",
62821.1Skamil	    "Verify that a thread can be suspended by a debugger and later "
62831.1Skamil	    "resumed by a tracee");
62841.1Skamil}
62851.1Skamil
62861.1SkamilATF_TC_BODY(suspend1, tc)
62871.1Skamil{
62881.1Skamil	const int exitval = 5;
62891.1Skamil	const int sigval = SIGSTOP;
62901.1Skamil	pid_t child, wpid;
62911.1Skamil#if defined(TWAIT_HAVE_STATUS)
62921.1Skamil	int status;
62931.1Skamil#endif
62941.1Skamil	ucontext_t uc;
62951.1Skamil	lwpid_t lid;
62961.1Skamil	static const size_t ssize = 16*1024;
62971.1Skamil	void *stack;
62981.1Skamil	struct ptrace_lwpinfo pl;
62991.1Skamil	struct ptrace_siginfo psi;
63001.1Skamil	volatile int go = 0;
63011.1Skamil
63021.17Skamil	// Feature pending for refactoring
63031.17Skamil	atf_tc_expect_fail("PR kern/51995");
63041.17Skamil
63051.16Skamil	// Hangs with qemu
63061.16Skamil	ATF_REQUIRE(0 && "In order to get reliable failure, abort");
63071.16Skamil
63081.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
63091.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
63101.1Skamil	if (child == 0) {
63111.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
63121.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
63131.1Skamil
63141.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
63151.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
63161.1Skamil
63171.13Schristos		DPRINTF("Before allocating memory for stack in child\n");
63181.1Skamil		FORKEE_ASSERT((stack = malloc(ssize)) != NULL);
63191.1Skamil
63201.13Schristos		DPRINTF("Before making context for new lwp in child\n");
63211.1Skamil		_lwp_makecontext(&uc, lwp_main_stop, NULL, NULL, stack, ssize);
63221.1Skamil
63231.13Schristos		DPRINTF("Before creating new in child\n");
63241.1Skamil		FORKEE_ASSERT(_lwp_create(&uc, 0, &lid) == 0);
63251.1Skamil
63261.1Skamil		while (go == 0)
63271.1Skamil			continue;
63281.1Skamil
63291.1Skamil		raise(SIGINT);
63301.1Skamil
63311.1Skamil		FORKEE_ASSERT(_lwp_continue(lid) == 0);
63321.1Skamil
63331.13Schristos		DPRINTF("Before waiting for lwp %d to exit\n", lid);
63341.1Skamil		FORKEE_ASSERT(_lwp_wait(lid, NULL) == 0);
63351.1Skamil
63361.13Schristos		DPRINTF("Before verifying that reported %d and running lid %d "
63371.1Skamil		    "are the same\n", lid, the_lwp_id);
63381.1Skamil		FORKEE_ASSERT_EQ(lid, the_lwp_id);
63391.1Skamil
63401.13Schristos		DPRINTF("Before exiting of the child process\n");
63411.1Skamil		_exit(exitval);
63421.1Skamil	}
63431.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
63441.1Skamil
63451.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
63461.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
63471.1Skamil
63481.1Skamil	validate_status_stopped(status, sigval);
63491.1Skamil
63501.13Schristos	DPRINTF("Before resuming the child process where it left off and "
63511.1Skamil	    "without signal to be sent\n");
63521.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
63531.1Skamil
63541.13Schristos	DPRINTF("Before calling %s() for the child - expected stopped "
63551.1Skamil	    "SIGTRAP\n", TWAIT_FNAME);
63561.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
63571.1Skamil
63581.1Skamil	validate_status_stopped(status, SIGTRAP);
63591.1Skamil
63601.13Schristos	DPRINTF("Before reading siginfo and lwpid_t\n");
63611.13Schristos	SYSCALL_REQUIRE(ptrace(PT_GET_SIGINFO, child, &psi, sizeof(psi)) != -1);
63621.1Skamil
63631.13Schristos	DPRINTF("Before suspending LWP %d\n", psi.psi_lwpid);
63641.13Schristos	SYSCALL_REQUIRE(ptrace(PT_SUSPEND, child, NULL, psi.psi_lwpid) != -1);
63651.1Skamil
63661.13Schristos        DPRINTF("Write new go to tracee (PID=%d) from tracer (PID=%d)\n",
63671.1Skamil	    child, getpid());
63681.13Schristos	SYSCALL_REQUIRE(ptrace(PT_WRITE_D, child, __UNVOLATILE(&go), 1) != -1);
63691.1Skamil
63701.13Schristos	DPRINTF("Before resuming the child process where it left off and "
63711.1Skamil	    "without signal to be sent\n");
63721.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
63731.1Skamil
63741.13Schristos	DPRINTF("Before calling %s() for the child - expected stopped "
63751.1Skamil	    "SIGINT\n", TWAIT_FNAME);
63761.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
63771.1Skamil
63781.1Skamil	validate_status_stopped(status, SIGINT);
63791.1Skamil
63801.1Skamil	pl.pl_lwpid = 0;
63811.1Skamil
63821.13Schristos	SYSCALL_REQUIRE(ptrace(PT_LWPINFO, child, &pl, sizeof(pl)) != -1);
63831.1Skamil	while (pl.pl_lwpid != 0) {
63841.1Skamil
63851.13Schristos		SYSCALL_REQUIRE(ptrace(PT_LWPINFO, child, &pl, sizeof(pl)) != -1);
63861.1Skamil		switch (pl.pl_lwpid) {
63871.1Skamil		case 1:
63881.1Skamil			ATF_REQUIRE_EQ(pl.pl_event, PL_EVENT_SIGNAL);
63891.1Skamil			break;
63901.1Skamil		case 2:
63911.1Skamil			ATF_REQUIRE_EQ(pl.pl_event, PL_EVENT_SUSPENDED);
63921.1Skamil			break;
63931.1Skamil		}
63941.1Skamil	}
63951.1Skamil
63961.13Schristos	DPRINTF("Before resuming the child process where it left off and "
63971.1Skamil	    "without signal to be sent\n");
63981.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
63991.1Skamil
64001.13Schristos	DPRINTF("Before calling %s() for the child - expected exited\n",
64011.1Skamil	    TWAIT_FNAME);
64021.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
64031.1Skamil
64041.1Skamil	validate_status_exited(status, exitval);
64051.1Skamil
64061.13Schristos	DPRINTF("Before calling %s() for the child - expected no process\n",
64071.1Skamil	    TWAIT_FNAME);
64081.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
64091.1Skamil}
64101.1Skamil
64111.1SkamilATF_TC(suspend2);
64121.1SkamilATF_TC_HEAD(suspend2, tc)
64131.1Skamil{
64141.1Skamil	atf_tc_set_md_var(tc, "descr",
64151.1Skamil	    "Verify that the while the only thread within a process is "
64161.1Skamil	    "suspended, the whole process cannot be unstopped");
64171.1Skamil}
64181.1Skamil
64191.1SkamilATF_TC_BODY(suspend2, tc)
64201.1Skamil{
64211.1Skamil	const int exitval = 5;
64221.1Skamil	const int sigval = SIGSTOP;
64231.1Skamil	pid_t child, wpid;
64241.1Skamil#if defined(TWAIT_HAVE_STATUS)
64251.1Skamil	int status;
64261.1Skamil#endif
64271.1Skamil	struct ptrace_siginfo psi;
64281.1Skamil
64291.17Skamil	// Feature pending for refactoring
64301.17Skamil	atf_tc_expect_fail("PR kern/51995");
64311.17Skamil
64321.16Skamil	// Hangs with qemu
64331.16Skamil	ATF_REQUIRE(0 && "In order to get reliable failure, abort");
64341.16Skamil
64351.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
64361.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
64371.1Skamil	if (child == 0) {
64381.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
64391.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
64401.1Skamil
64411.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
64421.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
64431.1Skamil
64441.13Schristos		DPRINTF("Before exiting of the child process\n");
64451.1Skamil		_exit(exitval);
64461.1Skamil	}
64471.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
64481.1Skamil
64491.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
64501.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
64511.1Skamil
64521.1Skamil	validate_status_stopped(status, sigval);
64531.1Skamil
64541.13Schristos	DPRINTF("Before reading siginfo and lwpid_t\n");
64551.13Schristos	SYSCALL_REQUIRE(ptrace(PT_GET_SIGINFO, child, &psi, sizeof(psi)) != -1);
64561.1Skamil
64571.13Schristos	DPRINTF("Before suspending LWP %d\n", psi.psi_lwpid);
64581.13Schristos	SYSCALL_REQUIRE(ptrace(PT_SUSPEND, child, NULL, psi.psi_lwpid) != -1);
64591.1Skamil
64601.13Schristos	DPRINTF("Before resuming the child process where it left off and "
64611.1Skamil	    "without signal to be sent\n");
64621.1Skamil	ATF_REQUIRE_ERRNO(EDEADLK,
64631.1Skamil	    ptrace(PT_CONTINUE, child, (void *)1, 0) == -1);
64641.1Skamil
64651.13Schristos	DPRINTF("Before resuming LWP %d\n", psi.psi_lwpid);
64661.13Schristos	SYSCALL_REQUIRE(ptrace(PT_RESUME, child, NULL, psi.psi_lwpid) != -1);
64671.1Skamil
64681.13Schristos	DPRINTF("Before resuming the child process where it left off and "
64691.1Skamil	    "without signal to be sent\n");
64701.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
64711.1Skamil
64721.13Schristos	DPRINTF("Before calling %s() for the child - expected exited\n",
64731.1Skamil	    TWAIT_FNAME);
64741.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
64751.1Skamil
64761.1Skamil	validate_status_exited(status, exitval);
64771.1Skamil
64781.13Schristos	DPRINTF("Before calling %s() for the child - expected no process\n",
64791.1Skamil	    TWAIT_FNAME);
64801.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
64811.1Skamil}
64821.1Skamil
64831.1SkamilATF_TC(resume1);
64841.1SkamilATF_TC_HEAD(resume1, tc)
64851.1Skamil{
64861.1Skamil	atf_tc_set_md_var(tc, "timeout", "5");
64871.1Skamil	atf_tc_set_md_var(tc, "descr",
64881.1Skamil	    "Verify that a thread can be suspended by a debugger and later "
64891.1Skamil	    "resumed by the debugger");
64901.1Skamil}
64911.1Skamil
64921.1SkamilATF_TC_BODY(resume1, tc)
64931.1Skamil{
64941.1Skamil	struct msg_fds fds;
64951.1Skamil	const int exitval = 5;
64961.1Skamil	const int sigval = SIGSTOP;
64971.1Skamil	pid_t child, wpid;
64981.1Skamil	uint8_t msg = 0xde; /* dummy message for IPC based on pipe(2) */
64991.1Skamil#if defined(TWAIT_HAVE_STATUS)
65001.1Skamil	int status;
65011.1Skamil#endif
65021.1Skamil	ucontext_t uc;
65031.1Skamil	lwpid_t lid;
65041.1Skamil	static const size_t ssize = 16*1024;
65051.1Skamil	void *stack;
65061.1Skamil	struct ptrace_lwpinfo pl;
65071.1Skamil	struct ptrace_siginfo psi;
65081.1Skamil
65091.17Skamil	// Feature pending for refactoring
65101.17Skamil	atf_tc_expect_fail("PR kern/51995");
65111.17Skamil
65121.15Schristos	// Hangs with qemu
65131.15Schristos	ATF_REQUIRE(0 && "In order to get reliable failure, abort");
65141.1Skamil
65151.13Schristos	SYSCALL_REQUIRE(msg_open(&fds) == 0);
65161.1Skamil
65171.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
65181.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
65191.1Skamil	if (child == 0) {
65201.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
65211.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
65221.1Skamil
65231.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
65241.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
65251.1Skamil
65261.13Schristos		DPRINTF("Before allocating memory for stack in child\n");
65271.1Skamil		FORKEE_ASSERT((stack = malloc(ssize)) != NULL);
65281.1Skamil
65291.13Schristos		DPRINTF("Before making context for new lwp in child\n");
65301.1Skamil		_lwp_makecontext(&uc, lwp_main_stop, NULL, NULL, stack, ssize);
65311.1Skamil
65321.13Schristos		DPRINTF("Before creating new in child\n");
65331.1Skamil		FORKEE_ASSERT(_lwp_create(&uc, 0, &lid) == 0);
65341.1Skamil
65351.1Skamil		CHILD_TO_PARENT("Message", fds, msg);
65361.1Skamil
65371.1Skamil		raise(SIGINT);
65381.1Skamil
65391.13Schristos		DPRINTF("Before waiting for lwp %d to exit\n", lid);
65401.1Skamil		FORKEE_ASSERT(_lwp_wait(lid, NULL) == 0);
65411.1Skamil
65421.13Schristos		DPRINTF("Before verifying that reported %d and running lid %d "
65431.1Skamil		    "are the same\n", lid, the_lwp_id);
65441.1Skamil		FORKEE_ASSERT_EQ(lid, the_lwp_id);
65451.1Skamil
65461.13Schristos		DPRINTF("Before exiting of the child process\n");
65471.1Skamil		_exit(exitval);
65481.1Skamil	}
65491.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
65501.1Skamil
65511.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
65521.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
65531.1Skamil
65541.1Skamil	validate_status_stopped(status, sigval);
65551.1Skamil
65561.13Schristos	DPRINTF("Before resuming the child process where it left off and "
65571.1Skamil	    "without signal to be sent\n");
65581.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
65591.1Skamil
65601.13Schristos	DPRINTF("Before calling %s() for the child - expected stopped "
65611.1Skamil	    "SIGTRAP\n", TWAIT_FNAME);
65621.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
65631.1Skamil
65641.1Skamil	validate_status_stopped(status, SIGTRAP);
65651.1Skamil
65661.13Schristos	DPRINTF("Before reading siginfo and lwpid_t\n");
65671.13Schristos	SYSCALL_REQUIRE(ptrace(PT_GET_SIGINFO, child, &psi, sizeof(psi)) != -1);
65681.1Skamil
65691.13Schristos	DPRINTF("Before suspending LWP %d\n", psi.psi_lwpid);
65701.13Schristos	SYSCALL_REQUIRE(ptrace(PT_SUSPEND, child, NULL, psi.psi_lwpid) != -1);
65711.1Skamil
65721.1Skamil	PARENT_FROM_CHILD("Message", fds, msg);
65731.1Skamil
65741.13Schristos	DPRINTF("Before resuming the child process where it left off and "
65751.1Skamil	    "without signal to be sent\n");
65761.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
65771.1Skamil
65781.13Schristos	DPRINTF("Before calling %s() for the child - expected stopped "
65791.1Skamil	    "SIGINT\n", TWAIT_FNAME);
65801.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
65811.1Skamil
65821.1Skamil	validate_status_stopped(status, SIGINT);
65831.1Skamil
65841.1Skamil	pl.pl_lwpid = 0;
65851.1Skamil
65861.13Schristos	SYSCALL_REQUIRE(ptrace(PT_LWPINFO, child, &pl, sizeof(pl)) != -1);
65871.1Skamil	while (pl.pl_lwpid != 0) {
65881.13Schristos		SYSCALL_REQUIRE(ptrace(PT_LWPINFO, child, &pl, sizeof(pl)) != -1);
65891.1Skamil		switch (pl.pl_lwpid) {
65901.1Skamil		case 1:
65911.1Skamil			ATF_REQUIRE_EQ(pl.pl_event, PL_EVENT_SIGNAL);
65921.1Skamil			break;
65931.1Skamil		case 2:
65941.1Skamil			ATF_REQUIRE_EQ(pl.pl_event, PL_EVENT_SUSPENDED);
65951.1Skamil			break;
65961.1Skamil		}
65971.1Skamil	}
65981.1Skamil
65991.13Schristos	DPRINTF("Before resuming LWP %d\n", psi.psi_lwpid);
66001.13Schristos	SYSCALL_REQUIRE(ptrace(PT_RESUME, child, NULL, psi.psi_lwpid) != -1);
66011.1Skamil
66021.13Schristos	DPRINTF("Before resuming the child process where it left off and "
66031.1Skamil	    "without signal to be sent\n");
66041.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
66051.1Skamil
66061.13Schristos	DPRINTF("Before calling %s() for the child - expected exited\n",
66071.1Skamil	    TWAIT_FNAME);
66081.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
66091.1Skamil
66101.1Skamil	validate_status_exited(status, exitval);
66111.1Skamil
66121.13Schristos	DPRINTF("Before calling %s() for the child - expected no process\n",
66131.1Skamil	    TWAIT_FNAME);
66141.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
66151.1Skamil
66161.1Skamil	msg_close(&fds);
66171.1Skamil
66181.13Schristos	DPRINTF("XXX: Test worked this time but for consistency timeout it\n");
66191.1Skamil	sleep(10);
66201.1Skamil}
66211.1Skamil
66221.1SkamilATF_TC(syscall1);
66231.1SkamilATF_TC_HEAD(syscall1, tc)
66241.1Skamil{
66251.1Skamil	atf_tc_set_md_var(tc, "descr",
66261.1Skamil	    "Verify that getpid(2) can be traced with PT_SYSCALL");
66271.1Skamil}
66281.1Skamil
66291.1SkamilATF_TC_BODY(syscall1, tc)
66301.1Skamil{
66311.1Skamil	const int exitval = 5;
66321.1Skamil	const int sigval = SIGSTOP;
66331.1Skamil	pid_t child, wpid;
66341.1Skamil#if defined(TWAIT_HAVE_STATUS)
66351.1Skamil	int status;
66361.1Skamil#endif
66371.1Skamil	struct ptrace_siginfo info;
66381.1Skamil	memset(&info, 0, sizeof(info));
66391.1Skamil
66401.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
66411.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
66421.1Skamil	if (child == 0) {
66431.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
66441.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
66451.1Skamil
66461.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
66471.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
66481.1Skamil
66491.1Skamil		syscall(SYS_getpid);
66501.1Skamil
66511.13Schristos		DPRINTF("Before exiting of the child process\n");
66521.1Skamil		_exit(exitval);
66531.1Skamil	}
66541.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
66551.1Skamil
66561.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
66571.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
66581.1Skamil
66591.1Skamil	validate_status_stopped(status, sigval);
66601.1Skamil
66611.13Schristos	DPRINTF("Before resuming the child process where it left off and "
66621.1Skamil	    "without signal to be sent\n");
66631.13Schristos	SYSCALL_REQUIRE(ptrace(PT_SYSCALL, child, (void *)1, 0) != -1);
66641.1Skamil
66651.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
66661.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
66671.1Skamil
66681.1Skamil	validate_status_stopped(status, SIGTRAP);
66691.1Skamil
66701.13Schristos	DPRINTF("Before calling ptrace(2) with PT_GET_SIGINFO for child\n");
66711.13Schristos	SYSCALL_REQUIRE(ptrace(PT_GET_SIGINFO, child, &info, sizeof(info)) != -1);
66721.1Skamil
66731.38Skamil	DPRINTF("Before checking siginfo_t and lwpid\n");
66741.38Skamil	ATF_REQUIRE_EQ(info.psi_lwpid, 1);
66751.1Skamil	ATF_REQUIRE_EQ(info.psi_siginfo.si_signo, SIGTRAP);
66761.1Skamil	ATF_REQUIRE_EQ(info.psi_siginfo.si_code, TRAP_SCE);
66771.1Skamil
66781.13Schristos	DPRINTF("Before resuming the child process where it left off and "
66791.1Skamil	    "without signal to be sent\n");
66801.13Schristos	SYSCALL_REQUIRE(ptrace(PT_SYSCALL, child, (void *)1, 0) != -1);
66811.1Skamil
66821.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
66831.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
66841.1Skamil
66851.1Skamil	validate_status_stopped(status, SIGTRAP);
66861.1Skamil
66871.13Schristos	DPRINTF("Before calling ptrace(2) with PT_GET_SIGINFO for child\n");
66881.13Schristos	SYSCALL_REQUIRE(ptrace(PT_GET_SIGINFO, child, &info, sizeof(info)) != -1);
66891.1Skamil
66901.38Skamil	DPRINTF("Before checking siginfo_t and lwpid\n");
66911.38Skamil	ATF_REQUIRE_EQ(info.psi_lwpid, 1);
66921.1Skamil	ATF_REQUIRE_EQ(info.psi_siginfo.si_signo, SIGTRAP);
66931.1Skamil	ATF_REQUIRE_EQ(info.psi_siginfo.si_code, TRAP_SCX);
66941.1Skamil
66951.13Schristos	DPRINTF("Before resuming the child process where it left off and "
66961.1Skamil	    "without signal to be sent\n");
66971.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
66981.1Skamil
66991.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
67001.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
67011.1Skamil
67021.1Skamil	validate_status_exited(status, exitval);
67031.1Skamil
67041.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
67051.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
67061.1Skamil}
67071.1Skamil
67081.1SkamilATF_TC(syscallemu1);
67091.1SkamilATF_TC_HEAD(syscallemu1, tc)
67101.1Skamil{
67111.1Skamil	atf_tc_set_md_var(tc, "descr",
67121.1Skamil	    "Verify that exit(2) can be intercepted with PT_SYSCALLEMU");
67131.1Skamil}
67141.1Skamil
67151.1SkamilATF_TC_BODY(syscallemu1, tc)
67161.1Skamil{
67171.1Skamil	const int exitval = 5;
67181.1Skamil	const int sigval = SIGSTOP;
67191.1Skamil	pid_t child, wpid;
67201.1Skamil#if defined(TWAIT_HAVE_STATUS)
67211.1Skamil	int status;
67221.1Skamil#endif
67231.1Skamil
67241.6Skamil#if defined(__sparc__) && !defined(__sparc64__)
67251.6Skamil	/* syscallemu does not work on sparc (32-bit) */
67261.6Skamil	atf_tc_expect_fail("PR kern/52166");
67271.6Skamil#endif
67281.6Skamil
67291.13Schristos	DPRINTF("Before forking process PID=%d\n", getpid());
67301.13Schristos	SYSCALL_REQUIRE((child = fork()) != -1);
67311.1Skamil	if (child == 0) {
67321.13Schristos		DPRINTF("Before calling PT_TRACE_ME from child %d\n", getpid());
67331.1Skamil		FORKEE_ASSERT(ptrace(PT_TRACE_ME, 0, NULL, 0) != -1);
67341.1Skamil
67351.13Schristos		DPRINTF("Before raising %s from child\n", strsignal(sigval));
67361.1Skamil		FORKEE_ASSERT(raise(sigval) == 0);
67371.1Skamil
67381.1Skamil		syscall(SYS_exit, 100);
67391.1Skamil
67401.13Schristos		DPRINTF("Before exiting of the child process\n");
67411.1Skamil		_exit(exitval);
67421.1Skamil	}
67431.13Schristos	DPRINTF("Parent process PID=%d, child's PID=%d\n", getpid(), child);
67441.1Skamil
67451.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
67461.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
67471.1Skamil
67481.1Skamil	validate_status_stopped(status, sigval);
67491.1Skamil
67501.13Schristos	DPRINTF("Before resuming the child process where it left off and "
67511.1Skamil	    "without signal to be sent\n");
67521.13Schristos	SYSCALL_REQUIRE(ptrace(PT_SYSCALL, child, (void *)1, 0) != -1);
67531.1Skamil
67541.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
67551.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
67561.1Skamil
67571.1Skamil	validate_status_stopped(status, SIGTRAP);
67581.1Skamil
67591.13Schristos	DPRINTF("Set SYSCALLEMU for intercepted syscall\n");
67601.13Schristos	SYSCALL_REQUIRE(ptrace(PT_SYSCALLEMU, child, (void *)1, 0) != -1);
67611.1Skamil
67621.13Schristos	DPRINTF("Before resuming the child process where it left off and "
67631.1Skamil	    "without signal to be sent\n");
67641.13Schristos	SYSCALL_REQUIRE(ptrace(PT_SYSCALL, child, (void *)1, 0) != -1);
67651.1Skamil
67661.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
67671.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
67681.1Skamil
67691.1Skamil	validate_status_stopped(status, SIGTRAP);
67701.1Skamil
67711.13Schristos	DPRINTF("Before resuming the child process where it left off and "
67721.1Skamil	    "without signal to be sent\n");
67731.13Schristos	SYSCALL_REQUIRE(ptrace(PT_CONTINUE, child, (void *)1, 0) != -1);
67741.1Skamil
67751.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
67761.1Skamil	TWAIT_REQUIRE_SUCCESS(wpid = TWAIT_GENERIC(child, &status, 0), child);
67771.1Skamil
67781.1Skamil	validate_status_exited(status, exitval);
67791.1Skamil
67801.13Schristos	DPRINTF("Before calling %s() for the child\n", TWAIT_FNAME);
67811.1Skamil	TWAIT_REQUIRE_FAILURE(ECHILD, wpid = TWAIT_GENERIC(child, &status, 0));
67821.1Skamil}
67831.1Skamil
67841.26Skamil#if defined(TWAIT_HAVE_PID)
67851.26SkamilATF_TC(race1);
67861.26SkamilATF_TC_HEAD(race1, tc)
67871.26Skamil{
67881.26Skamil	atf_tc_set_md_var(tc, "descr",
67891.26Skamil	    "Assert that await_zombie() in attach1 always finds a single "
67901.26Skamil	    "process and no other error is reported");
67911.26Skamil}
67921.26Skamil
67931.26SkamilATF_TC_BODY(race1, tc)
67941.26Skamil{
67951.26Skamil	time_t start, end;
67961.26Skamil	double diff;
67971.26Skamil	unsigned long N = 0;
67981.26Skamil
67991.26Skamil	/* Reuse this test with attach1 */
68001.26Skamil
68011.26Skamil	start = time(NULL);
68021.26Skamil	while (true) {
68031.26Skamil		DPRINTF("Step: %lu\n", N);
68041.26Skamil		attach1_raw(true);
68051.26Skamil		end = time(NULL);
68061.26Skamil		diff = difftime(end, start);
68071.26Skamil		if (diff >= 5.0)
68081.26Skamil			break;
68091.26Skamil		++N;
68101.26Skamil	}
68111.26Skamil	DPRINTF("Iterations: %lu\n", N);
68121.26Skamil}
68131.26Skamil#endif
68141.26Skamil
68151.1Skamil#include "t_ptrace_amd64_wait.h"
68161.1Skamil#include "t_ptrace_i386_wait.h"
68171.1Skamil#include "t_ptrace_x86_wait.h"
68181.1Skamil
68191.1SkamilATF_TP_ADD_TCS(tp)
68201.1Skamil{
68211.1Skamil	setvbuf(stdout, NULL, _IONBF, 0);
68221.1Skamil	setvbuf(stderr, NULL, _IONBF, 0);
68231.33Skamil
68241.36Skamil	ATF_TP_ADD_TC(tp, traceme_raise1);
68251.33Skamil	ATF_TP_ADD_TC(tp, traceme_raise2);
68261.33Skamil	ATF_TP_ADD_TC(tp, traceme_raise3);
68271.33Skamil	ATF_TP_ADD_TC(tp, traceme_raise4);
68281.33Skamil	ATF_TP_ADD_TC(tp, traceme_raise5);
68291.33Skamil
68301.34Skamil	ATF_TP_ADD_TC(tp, traceme_sighandler_catch1);
68311.34Skamil	ATF_TP_ADD_TC(tp, traceme_sighandler_catch2);
68321.34Skamil	ATF_TP_ADD_TC(tp, traceme_sighandler_catch3);
68331.34Skamil
68341.35Skamil	ATF_TP_ADD_TC(tp, traceme_signal_nohandler1);
68351.35Skamil//	ATF_TP_ADD_TC(tp, traceme_signal_nohandler2); // not yet
68361.35Skamil	ATF_TP_ADD_TC(tp, traceme_signal_nohandler3);
68371.35Skamil	ATF_TP_ADD_TC(tp, traceme_signal_nohandler4);
68381.35Skamil	ATF_TP_ADD_TC(tp, traceme_signal_nohandler5);
68391.1Skamil
68401.37Skamil	ATF_TP_ADD_TC(tp, traceme_pid1_parent);
68411.37Skamil
68421.1Skamil	ATF_TP_ADD_TC_HAVE_PID(tp, attach1);
68431.1Skamil	ATF_TP_ADD_TC_HAVE_PID(tp, attach2);
68441.1Skamil	ATF_TP_ADD_TC(tp, attach3);
68451.1Skamil	ATF_TP_ADD_TC(tp, attach4);
68461.1Skamil	ATF_TP_ADD_TC_HAVE_PID(tp, attach5);
68471.1Skamil	ATF_TP_ADD_TC_HAVE_PID(tp, attach6);
68481.1Skamil	ATF_TP_ADD_TC_HAVE_PID(tp, attach7);
68491.1Skamil
68501.1Skamil	ATF_TP_ADD_TC(tp, eventmask1);
68511.1Skamil	ATF_TP_ADD_TC(tp, eventmask2);
68521.1Skamil	ATF_TP_ADD_TC(tp, eventmask3);
68531.1Skamil	ATF_TP_ADD_TC(tp, eventmask4);
68541.1Skamil	ATF_TP_ADD_TC(tp, eventmask5);
68551.1Skamil	ATF_TP_ADD_TC(tp, eventmask6);
68561.1Skamil
68571.31Skamil	ATF_TP_ADD_TC(tp, fork1);
68581.31Skamil	ATF_TP_ADD_TC_HAVE_PID(tp, fork2);
68591.31Skamil	ATF_TP_ADD_TC_HAVE_PID(tp, fork3);
68601.31Skamil	ATF_TP_ADD_TC_HAVE_PID(tp, fork4);
68611.31Skamil	ATF_TP_ADD_TC(tp, fork5);
68621.31Skamil	ATF_TP_ADD_TC_HAVE_PID(tp, fork6);
68631.31Skamil	ATF_TP_ADD_TC_HAVE_PID(tp, fork7);
68641.31Skamil	ATF_TP_ADD_TC_HAVE_PID(tp, fork8);
68651.31Skamil
68661.31Skamil	ATF_TP_ADD_TC(tp, vfork1);
68671.31Skamil	ATF_TP_ADD_TC_HAVE_PID(tp, vfork2);
68681.31Skamil	ATF_TP_ADD_TC_HAVE_PID(tp, vfork3);
68691.31Skamil	ATF_TP_ADD_TC_HAVE_PID(tp, vfork4);
68701.31Skamil	ATF_TP_ADD_TC(tp, vfork5);
68711.31Skamil	ATF_TP_ADD_TC_HAVE_PID(tp, vfork6);
68721.31Skamil	ATF_TP_ADD_TC_HAVE_PID(tp, vfork7);
68731.31Skamil	ATF_TP_ADD_TC_HAVE_PID(tp, vfork8);
68741.1Skamil
68751.1Skamil	ATF_TP_ADD_TC(tp, io_read_d1);
68761.1Skamil	ATF_TP_ADD_TC(tp, io_read_d2);
68771.1Skamil	ATF_TP_ADD_TC(tp, io_read_d3);
68781.1Skamil	ATF_TP_ADD_TC(tp, io_read_d4);
68791.1Skamil
68801.1Skamil	ATF_TP_ADD_TC(tp, io_write_d1);
68811.1Skamil	ATF_TP_ADD_TC(tp, io_write_d2);
68821.1Skamil	ATF_TP_ADD_TC(tp, io_write_d3);
68831.1Skamil	ATF_TP_ADD_TC(tp, io_write_d4);
68841.1Skamil
68851.1Skamil	ATF_TP_ADD_TC(tp, read_d1);
68861.1Skamil	ATF_TP_ADD_TC(tp, read_d2);
68871.1Skamil	ATF_TP_ADD_TC(tp, read_d3);
68881.1Skamil	ATF_TP_ADD_TC(tp, read_d4);
68891.1Skamil
68901.1Skamil	ATF_TP_ADD_TC(tp, write_d1);
68911.1Skamil	ATF_TP_ADD_TC(tp, write_d2);
68921.1Skamil	ATF_TP_ADD_TC(tp, write_d3);
68931.1Skamil	ATF_TP_ADD_TC(tp, write_d4);
68941.1Skamil
68951.1Skamil	ATF_TP_ADD_TC(tp, io_read_d_write_d_handshake1);
68961.1Skamil	ATF_TP_ADD_TC(tp, io_read_d_write_d_handshake2);
68971.1Skamil
68981.1Skamil	ATF_TP_ADD_TC(tp, read_d_write_d_handshake1);
68991.1Skamil	ATF_TP_ADD_TC(tp, read_d_write_d_handshake2);
69001.1Skamil
69011.1Skamil	ATF_TP_ADD_TC(tp, io_read_i1);
69021.1Skamil	ATF_TP_ADD_TC(tp, io_read_i2);
69031.1Skamil	ATF_TP_ADD_TC(tp, io_read_i3);
69041.1Skamil	ATF_TP_ADD_TC(tp, io_read_i4);
69051.1Skamil
69061.1Skamil	ATF_TP_ADD_TC(tp, read_i1);
69071.1Skamil	ATF_TP_ADD_TC(tp, read_i2);
69081.1Skamil	ATF_TP_ADD_TC(tp, read_i3);
69091.1Skamil	ATF_TP_ADD_TC(tp, read_i4);
69101.1Skamil
69111.1Skamil	ATF_TP_ADD_TC(tp, io_read_auxv1);
69121.1Skamil
69131.1Skamil	ATF_TP_ADD_TC_HAVE_GPREGS(tp, regs1);
69141.1Skamil	ATF_TP_ADD_TC_HAVE_GPREGS(tp, regs2);
69151.1Skamil	ATF_TP_ADD_TC_HAVE_GPREGS(tp, regs3);
69161.1Skamil	ATF_TP_ADD_TC_HAVE_GPREGS(tp, regs4);
69171.1Skamil	ATF_TP_ADD_TC_HAVE_GPREGS(tp, regs5);
69181.1Skamil
69191.1Skamil	ATF_TP_ADD_TC_HAVE_FPREGS(tp, fpregs1);
69201.1Skamil	ATF_TP_ADD_TC_HAVE_FPREGS(tp, fpregs2);
69211.1Skamil
69221.1Skamil	ATF_TP_ADD_TC_PT_STEP(tp, step1);
69231.1Skamil	ATF_TP_ADD_TC_PT_STEP(tp, step2);
69241.1Skamil	ATF_TP_ADD_TC_PT_STEP(tp, step3);
69251.1Skamil	ATF_TP_ADD_TC_PT_STEP(tp, step4);
69261.1Skamil
69271.2Skamil	ATF_TP_ADD_TC_PT_STEP(tp, setstep1);
69281.2Skamil	ATF_TP_ADD_TC_PT_STEP(tp, setstep2);
69291.2Skamil	ATF_TP_ADD_TC_PT_STEP(tp, setstep3);
69301.2Skamil	ATF_TP_ADD_TC_PT_STEP(tp, setstep4);
69311.2Skamil
69321.1Skamil	ATF_TP_ADD_TC(tp, kill1);
69331.1Skamil	ATF_TP_ADD_TC(tp, kill2);
69341.1Skamil
69351.1Skamil	ATF_TP_ADD_TC(tp, lwpinfo1);
69361.1Skamil	ATF_TP_ADD_TC_HAVE_PID(tp, lwpinfo2);
69371.1Skamil
69381.1Skamil	ATF_TP_ADD_TC(tp, siginfo1);
69391.1Skamil	ATF_TP_ADD_TC(tp, siginfo2);
69401.1Skamil	ATF_TP_ADD_TC(tp, siginfo3);
69411.1Skamil	ATF_TP_ADD_TC(tp, siginfo4);
69421.1Skamil	ATF_TP_ADD_TC_HAVE_PID(tp, siginfo5);
69431.1Skamil	ATF_TP_ADD_TC_PT_STEP(tp, siginfo6);
69441.1Skamil
69451.1Skamil	ATF_TP_ADD_TC(tp, lwp_create1);
69461.1Skamil
69471.1Skamil	ATF_TP_ADD_TC(tp, lwp_exit1);
69481.1Skamil
69491.1Skamil	ATF_TP_ADD_TC(tp, signal1);
69501.1Skamil	ATF_TP_ADD_TC(tp, signal2);
69511.1Skamil	ATF_TP_ADD_TC(tp, signal3);
69521.1Skamil	ATF_TP_ADD_TC_PT_STEP(tp, signal4);
69531.1Skamil	ATF_TP_ADD_TC(tp, signal5);
69541.1Skamil	ATF_TP_ADD_TC_HAVE_PID(tp, signal6);
69551.1Skamil	ATF_TP_ADD_TC_HAVE_PID(tp, signal7);
69561.1Skamil	ATF_TP_ADD_TC(tp, signal8);
69571.1Skamil	ATF_TP_ADD_TC(tp, signal9);
69581.1Skamil	ATF_TP_ADD_TC(tp, signal10);
69591.1Skamil
69601.1Skamil	ATF_TP_ADD_TC(tp, suspend1);
69611.1Skamil	ATF_TP_ADD_TC(tp, suspend2);
69621.1Skamil
69631.1Skamil	ATF_TP_ADD_TC(tp, resume1);
69641.1Skamil
69651.1Skamil	ATF_TP_ADD_TC(tp, syscall1);
69661.1Skamil
69671.1Skamil	ATF_TP_ADD_TC(tp, syscallemu1);
69681.1Skamil
69691.26Skamil	ATF_TP_ADD_TC_HAVE_PID(tp, race1);
69701.26Skamil
69711.1Skamil	ATF_TP_ADD_TCS_PTRACE_WAIT_AMD64();
69721.1Skamil	ATF_TP_ADD_TCS_PTRACE_WAIT_I386();
69731.1Skamil	ATF_TP_ADD_TCS_PTRACE_WAIT_X86();
69741.1Skamil
69751.1Skamil	return atf_no_error();
69761.1Skamil}
6977