/*-
 * Copyright (c) 2005 Robert N. M. Watson
 * Copyright (c) 2015 Mark Johnston
 * Copyright (c) 2022 Gleb Smirnoff <glebius@FreeBSD.org>
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 *
 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 * SUCH DAMAGE.
 */

#include <sys/param.h>
#include <sys/jail.h>
#include <sys/socket.h>
#include <sys/stat.h>
#include <sys/sysctl.h>
#include <sys/time.h>
#include <sys/resource.h>
#include <sys/un.h>
#include <sys/wait.h>

#include <err.h>
#include <errno.h>
#include <fcntl.h>
#include <jail.h>
#include <limits.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>

#include <atf-c.h>

#if !defined(TEST_PROTO)
#error Need TEST_PROTO defined to SOCK_STREAM or SOCK_DGRAM
#endif

/*
 * UNIX domain sockets allow file descriptors to be passed via "ancillary
 * data", or control messages.  This regression test is intended to exercise
 * this facility, both performing some basic tests that it operates, and also
 * causing some kernel edge cases to execute, such as garbage collection when
 * there are cyclic file descriptor references.  Right now we test only with
 * stream sockets, but ideally we'd also test with datagram sockets.
 */

static void
domainsocketpair(int *fdp)
{

        ATF_REQUIRE_MSG(socketpair(PF_UNIX, TEST_PROTO, 0, fdp) != -1,
            "socketpair(PF_UNIX, %u) failed: %s", TEST_PROTO, strerror(errno));
}

static void
closesocketpair(int *fdp)
{

        close(fdp[0]);
        close(fdp[1]);
}

static void
devnull(int *fdp)
{
        int fd;

        fd = open("/dev/null", O_RDONLY);
        ATF_REQUIRE_MSG(fd != -1, "open failed: %s", strerror(errno));
        *fdp = fd;
}

static void
tempfile(int *fdp)
{
        char path[PATH_MAX];
        int fd;

        snprintf(path, PATH_MAX, "%s/unix_passfd.XXXXXXXXXXXXXXX",
            getenv("TMPDIR") == NULL ? "/tmp" : getenv("TMPDIR"));
        fd = mkstemp(path);
        ATF_REQUIRE_MSG(fd != -1, "mkstemp(%s) failed", path);
        (void)unlink(path);
        *fdp = fd;
}

static void
dofstat(int fd, struct stat *sb)
{

        ATF_REQUIRE_MSG(fstat(fd, sb) == 0,
            "fstat failed: %s", strerror(errno));
}

static int
getnfds(void)
{
        size_t len;
        int mib[4], n, rc;

        len = sizeof(n);
        mib[0] = CTL_KERN;
        mib[1] = KERN_PROC;
        mib[2] = KERN_PROC_NFDS;
        mib[3] = 0;

        rc = sysctl(mib, 4, &n, &len, NULL, 0);
        ATF_REQUIRE_MSG(rc != -1, "sysctl(KERN_PROC_NFDS) failed");
        return (n);
}

static int
openfiles(void)
{
        int files;
        size_t len = sizeof(files);

        ATF_REQUIRE(sysctlbyname("kern.openfiles", &files, &len, NULL, 0) == 0);

        return (files);
}

static void
putfds(char *buf, int fd, int nfds)
{
        struct cmsghdr *cm;
        int *fdp, i;

        cm = (struct cmsghdr *)buf;
        cm->cmsg_len = CMSG_LEN(nfds * sizeof(int));
        cm->cmsg_level = SOL_SOCKET;
        cm->cmsg_type = SCM_RIGHTS;
        for (fdp = (int *)CMSG_DATA(cm), i = 0; i < nfds; i++)
                *fdp++ = fd;
}

static void
samefile(struct stat *sb1, struct stat *sb2)
{

        ATF_REQUIRE_MSG(sb1->st_dev == sb2->st_dev, "different device");
        ATF_REQUIRE_MSG(sb1->st_ino == sb2->st_ino, "different inode");
}

static ssize_t
sendfd_payload(int sockfd, int send_fd, void *payload, size_t paylen)
{
        struct iovec iovec;
        char message[CMSG_SPACE(sizeof(int))];
        struct msghdr msghdr;

        bzero(&msghdr, sizeof(msghdr));
        bzero(&message, sizeof(message));

        msghdr.msg_control = message;
        msghdr.msg_controllen = sizeof(message);

        iovec.iov_base = payload;
        iovec.iov_len = paylen;

        msghdr.msg_iov = &iovec;
        msghdr.msg_iovlen = 1;

        putfds(message, send_fd, 1);
        return (sendmsg(sockfd, &msghdr, 0));
}

static void
sendfd(int sockfd, int send_fd)
{
        ssize_t len;
        char ch;

        ch = 0;
        len = sendfd_payload(sockfd, send_fd, &ch, sizeof(ch));
        ATF_REQUIRE_MSG(len == sizeof(ch),
            "sendmsg: %zd bytes sent; expected %zu; %s", len, sizeof(ch),
            strerror(errno));
}

static bool
localcreds(int sockfd)
{
        socklen_t sz;
        int rc, val;

        sz = sizeof(val);
        rc = getsockopt(sockfd, 0, LOCAL_CREDS, &val, &sz);
        ATF_REQUIRE_MSG(rc != -1, "getsockopt(LOCAL_CREDS) failed: %s",
            strerror(errno));
        return (val != 0);
}

static ssize_t
recvfd_payload(int sockfd, int *recv_fd, void *buf, size_t buflen,
    size_t cmsgsz, int recvmsg_flags)
{
        struct cmsghdr *cmsghdr;
        struct msghdr msghdr;
        struct iovec iovec;
        char *message;
        ssize_t len;
        bool foundcreds;

        bzero(&msghdr, sizeof(msghdr));
        message = malloc(cmsgsz);
        ATF_REQUIRE(message != NULL);

        msghdr.msg_control = message;
        msghdr.msg_controllen = cmsgsz;

        iovec.iov_base = buf;
        iovec.iov_len = buflen;

        msghdr.msg_iov = &iovec;
        msghdr.msg_iovlen = 1;

        len = recvmsg(sockfd, &msghdr, recvmsg_flags);
        ATF_REQUIRE_MSG(len != -1, "recvmsg failed: %s", strerror(errno));

        cmsghdr = CMSG_FIRSTHDR(&msghdr);
        ATF_REQUIRE_MSG(cmsghdr != NULL,
            "recvmsg: did not receive control message");
        foundcreds = false;
        *recv_fd = -1;
        for (; cmsghdr != NULL; cmsghdr = CMSG_NXTHDR(&msghdr, cmsghdr)) {
                if (cmsghdr->cmsg_level == SOL_SOCKET &&
                    cmsghdr->cmsg_type == SCM_RIGHTS &&
                    cmsghdr->cmsg_len == CMSG_LEN(sizeof(int))) {
                        memcpy(recv_fd, CMSG_DATA(cmsghdr), sizeof(int));
                        ATF_REQUIRE(*recv_fd != -1);
                } else if (cmsghdr->cmsg_level == SOL_SOCKET &&
                    cmsghdr->cmsg_type == SCM_CREDS)
                        foundcreds = true;
        }
        ATF_REQUIRE_MSG(*recv_fd != -1,
            "recvmsg: did not receive single-fd message");
        ATF_REQUIRE_MSG(!localcreds(sockfd) || foundcreds,
            "recvmsg: expected credentials were not received");
        ATF_REQUIRE_MSG((msghdr.msg_flags & MSG_TRUNC) == 0,
            "recvmsg: MSG_TRUNC is set while buffer is sufficient");

        return (len);
}

static void
recvfd(int sockfd, int *recv_fd, int flags)
{
        ssize_t len;
        char ch = 0;

        len = recvfd_payload(sockfd, recv_fd, &ch, sizeof(ch),
            CMSG_SPACE(sizeof(int)), flags);
        ATF_REQUIRE_MSG((size_t)len == sizeof(ch),
            "recvmsg: %zd bytes received; expected %zd", len, sizeof(ch));
}

#if TEST_PROTO == SOCK_STREAM
#define LOCAL_SENDSPACE_SYSCTL  "net.local.stream.sendspace"
#define LOCAL_RECVSPACE_SYSCTL  "net.local.stream.recvspace"
#elif TEST_PROTO == SOCK_DGRAM
#define LOCAL_SENDSPACE_SYSCTL  "net.local.dgram.maxdgram"
#define LOCAL_RECVSPACE_SYSCTL  "net.local.dgram.recvspace"
#endif

static u_long
getsendspace(void)
{
        u_long sendspace;

        ATF_REQUIRE_MSG(sysctlbyname(LOCAL_SENDSPACE_SYSCTL, &sendspace,
            &(size_t){sizeof(u_long)}, NULL, 0) != -1,
            "sysctl %s failed: %s", LOCAL_SENDSPACE_SYSCTL, strerror(errno));

        return (sendspace);
}

static u_long
getrecvspace(void)
{
        u_long recvspace;

        ATF_REQUIRE_MSG(sysctlbyname(LOCAL_RECVSPACE_SYSCTL, &recvspace,
            &(size_t){sizeof(u_long)}, NULL, 0) != -1,
            "sysctl %s failed: %s", LOCAL_RECVSPACE_SYSCTL, strerror(errno));

        return (recvspace);
}

/*
 * Fill socket to a state when next max sized send would fail with EAGAIN.
 */
static void
fill(int fd)
{
        u_long sendspace;
        void *buf;

        sendspace = getsendspace();
        ATF_REQUIRE((buf = malloc(sendspace)) != NULL);

        ATF_REQUIRE_MSG(fcntl(fd, F_SETFL, O_NONBLOCK) != -1,
            "fcntl(O_NONBLOCK) failed: %s", strerror(errno));

#if TEST_PROTO == SOCK_STREAM
        do {} while (send(fd, buf, sendspace, 0) == (ssize_t)sendspace);
#elif TEST_PROTO == SOCK_DGRAM
        u_long recvspace = getrecvspace();

        for (ssize_t sent = 0;
            sent + sendspace + sizeof(struct sockaddr) < recvspace;
            sent += sendspace + sizeof(struct sockaddr))
                ATF_REQUIRE(send(fd, buf, sendspace, 0) == (ssize_t)sendspace);
#endif
        free(buf);
}

/*
 * Put a temporary file into a UNIX domain socket, then take it out and make
 * sure it's the same file.  First time around, don't close the reference
 * after sending.
 */
ATF_TC_WITHOUT_HEAD(simple_send_fd);
ATF_TC_BODY(simple_send_fd, tc)
{
        struct stat getfd_stat, putfd_stat;
        int fd[2], getfd, putfd;

        domainsocketpair(fd);
        tempfile(&putfd);
        dofstat(putfd, &putfd_stat);
        sendfd(fd[0], putfd);
        recvfd(fd[1], &getfd, 0);
        dofstat(getfd, &getfd_stat);
        samefile(&putfd_stat, &getfd_stat);
        close(putfd);
        close(getfd);
        closesocketpair(fd);
}

/*
 * Like simple_send_fd but also sets MSG_CMSG_CLOEXEC and checks that the
 * received file descriptor has the FD_CLOEXEC flag set.
 */
ATF_TC_WITHOUT_HEAD(simple_send_fd_msg_cmsg_cloexec);
ATF_TC_BODY(simple_send_fd_msg_cmsg_cloexec, tc)
{
        struct stat getfd_stat, putfd_stat;
        int fd[2], getfd, putfd;

        domainsocketpair(fd);
        tempfile(&putfd);
        dofstat(putfd, &putfd_stat);
        sendfd(fd[0], putfd);
        recvfd(fd[1], &getfd, MSG_CMSG_CLOEXEC);
        dofstat(getfd, &getfd_stat);
        samefile(&putfd_stat, &getfd_stat);
        ATF_REQUIRE_EQ_MSG(fcntl(getfd, F_GETFD) & FD_CLOEXEC, FD_CLOEXEC,
            "FD_CLOEXEC not set on the received file descriptor");
        close(putfd);
        close(getfd);
        closesocketpair(fd);
}

/*
 * Like simple_send_fd but also sets MSG_CMSG_CLOFORK and checks that the
 * received file descriptor has the FD_CLOFORK flag set.
 */
ATF_TC_WITHOUT_HEAD(simple_send_fd_msg_cmsg_clofork);
ATF_TC_BODY(simple_send_fd_msg_cmsg_clofork, tc)
{
        struct stat getfd_stat, putfd_stat;
        int fd[2], getfd, putfd;

        domainsocketpair(fd);
        tempfile(&putfd);
        dofstat(putfd, &putfd_stat);
        sendfd(fd[0], putfd);
        recvfd(fd[1], &getfd, MSG_CMSG_CLOFORK);
        dofstat(getfd, &getfd_stat);
        samefile(&putfd_stat, &getfd_stat);
        ATF_REQUIRE_EQ_MSG(fcntl(getfd, F_GETFD) & FD_CLOFORK, FD_CLOFORK,
            "FD_CLOFORK not set on the received file descriptor");
        close(putfd);
        close(getfd);
        closesocketpair(fd);
}

/*
 * Same as simple_send_fd, only close the file reference after sending, so that
 * the only reference is the descriptor in the UNIX domain socket buffer.
 */
ATF_TC_WITHOUT_HEAD(send_and_close);
ATF_TC_BODY(send_and_close, tc)
{
        struct stat getfd_stat, putfd_stat;
        int fd[2], getfd, putfd;

        domainsocketpair(fd);
        tempfile(&putfd);
        dofstat(putfd, &putfd_stat);
        sendfd(fd[0], putfd);
        close(putfd);
        recvfd(fd[1], &getfd, 0);
        dofstat(getfd, &getfd_stat);
        samefile(&putfd_stat, &getfd_stat);
        close(getfd);
        closesocketpair(fd);
}

/*
 * Put a temporary file into a UNIX domain socket, then close both endpoints
 * causing garbage collection to kick off.
 */
ATF_TC_WITHOUT_HEAD(send_and_cancel);
ATF_TC_BODY(send_and_cancel, tc)
{
        int fd[2], putfd;

        domainsocketpair(fd);
        tempfile(&putfd);
        sendfd(fd[0], putfd);
        close(putfd);
        closesocketpair(fd);
}

/*
 * Send file then shutdown receive side to exercise unp_dispose() call
 * via soshutdown().  Check that shutdown(SHUT_RD) would gc the file
 * reference sitting in the receive buffer.  There is no good way of
 * checking that except using global open file count.
 */
ATF_TC_WITHOUT_HEAD(send_and_shutdown);
ATF_TC_BODY(send_and_shutdown, tc)
{
        int fd[2], putfd, nfiles;

        domainsocketpair(fd);
        tempfile(&putfd);
        sendfd(fd[0], putfd);
        nfiles = openfiles();
        close(putfd);
        ATF_REQUIRE(openfiles() == nfiles);
        shutdown(fd[1], SHUT_RD);
        ATF_REQUIRE(openfiles() == nfiles - 1);
        closesocketpair(fd);
}

/*
 * Send maximum possible SCM_RIGHTS message.
 * Internally the file descriptors are converted from integers to pointers
 * and stored in a single mbuf cluster.  Check that we can not send too much
 * and that we can successfully send maximum possible amount.  Check that we
 * can not exploit getrlimit(3).
 */
#define MAXFDS  ((MCLBYTES - _ALIGN(sizeof(struct cmsghdr)))/sizeof(void *))
ATF_TC_WITHOUT_HEAD(send_a_lot);
ATF_TC_BODY(send_a_lot, tc)
{
        struct msghdr msghdr;
        struct iovec iov;
        struct rlimit rlim;
        int fd[2], nfds;
        char *cmsg, ch;

        domainsocketpair(fd);
        cmsg = malloc(CMSG_SPACE((MAXFDS + 1) * sizeof(int)));
        ATF_REQUIRE(cmsg != NULL);
        iov.iov_base = &ch;
        iov.iov_len = sizeof(ch);
        msghdr = (struct msghdr ){
                .msg_control = cmsg,
                .msg_controllen = CMSG_LEN((MAXFDS + 1) * sizeof(int)),
                .msg_iov = &iov,
                .msg_iovlen = 1,
        };

        /* Sending too much fails. */
        putfds(cmsg, fd[0], MAXFDS + 1);
        ATF_REQUIRE(sendmsg(fd[0], &msghdr, 0) == -1);
        ATF_REQUIRE(errno == EMSGSIZE);

        /* Sending just the right amount works and everything is received. */
        putfds(cmsg, fd[0], MAXFDS);
        msghdr.msg_controllen = CMSG_LEN(MAXFDS * sizeof(int));
        ATF_REQUIRE(sendmsg(fd[0], &msghdr, 0) == 1);
        nfds = getnfds();
        ATF_REQUIRE(recvmsg(fd[1], &msghdr, 0) == 1);
        ATF_REQUIRE(getnfds() == (int)(nfds + MAXFDS));

        /* Limit our process open files... */
        ATF_REQUIRE(getrlimit(RLIMIT_NOFILE, &rlim) == 0);
        nfds = rlim.rlim_cur = getnfds();
        ATF_REQUIRE(setrlimit(RLIMIT_NOFILE, &rlim) == 0);

        /* ... and try to receive a single descriptor. */
        putfds(cmsg, fd[0], 1);
        msghdr.msg_controllen = CMSG_LEN(sizeof(int));
        ATF_REQUIRE(sendmsg(fd[0], &msghdr, 0) == 1);
        ATF_REQUIRE(recvmsg(fd[1], &msghdr, 0) == -1);
        /* Such attempt shall fail with EMFILE. */
        ATF_REQUIRE(errno == EMFILE);
        ATF_REQUIRE(getnfds() == nfds);
#if TEST_PROTO == SOCK_STREAM
        /*
         * For the SOCK_STREAM the above attempt shall free the control in
         * the kernel, so that socket isn't left in a stuck state.  Next read
         * shall bring us the normal data only.  The stream data shall not
         * miss a byte.
         */
        ATF_REQUIRE(recvmsg(fd[1], &msghdr, 0) == 1);
        ATF_REQUIRE(msghdr.msg_controllen == 0);
#elif TEST_PROTO == SOCK_DGRAM
        /*
         * For SOCK_DGRAM there are two options for the previously failed
         * syscall: strip the control leaving datagram in the socket or
         * drop the whole datagram.  Our implementation drops the whole
         * datagram.
         */
        ATF_REQUIRE(recvmsg(fd[1], &msghdr, MSG_DONTWAIT) == -1);
        ATF_REQUIRE(errno == EAGAIN);
#endif
}

/*
 * Exersize condition when SCM_RIGHTS is successfully internalized, but
 * message delivery fails due to receive buffer overflow.  Check that no
 * file descriptors are leaked.
 */
ATF_TC_WITHOUT_HEAD(send_overflow);
ATF_TC_BODY(send_overflow, tc)
{
        void *buf;
        ssize_t len;
        int fd[2], putfd, nfiles;
        int sendspace;

        sendspace = (int)getsendspace();
        ATF_REQUIRE((buf = malloc(sendspace)) != NULL);

        domainsocketpair(fd);
        fill(fd[0]);
        nfiles = openfiles();
        tempfile(&putfd);
        len = sendfd_payload(fd[0], putfd, buf, sendspace);
#if TEST_PROTO == SOCK_STREAM
        ATF_REQUIRE_MSG(len == -1 && errno == EAGAIN,
            "sendmsg: %zd bytes sent, errno %d", len, errno);
#elif TEST_PROTO == SOCK_DGRAM
        ATF_REQUIRE_MSG(len == -1 && errno == ENOBUFS,
            "sendmsg: %zd bytes sent, errno %d", len, errno);
#endif
        close(putfd);
        ATF_REQUIRE(nfiles == openfiles());
        closesocketpair(fd);
}

/*
 * Make sure that we do not receive descriptors with MSG_PEEK.
 */
ATF_TC_WITHOUT_HEAD(peek);
ATF_TC_BODY(peek, tc)
{
        int fd[2], getfd, putfd, nfds;

        domainsocketpair(fd);
        tempfile(&putfd);
        nfds = getnfds();
        sendfd(fd[0], putfd);
        ATF_REQUIRE(getnfds() == nfds);

        /* First make MSG_PEEK recvmsg(2)... */
        char cbuf[CMSG_SPACE(sizeof(int))];
        char buf[1];
        struct iovec iov = {
                .iov_base = buf,
                .iov_len = sizeof(buf)
        };
        struct msghdr msghdr = {
                .msg_iov = &iov,
                .msg_iovlen = 1,
                .msg_control = cbuf,
                .msg_controllen = sizeof(cbuf),
        };
        ATF_REQUIRE(1 == recvmsg(fd[1], &msghdr, MSG_PEEK));
        for (struct cmsghdr *cmsghdr = CMSG_FIRSTHDR(&msghdr);
             cmsghdr != NULL; cmsghdr = CMSG_NXTHDR(&msghdr, cmsghdr)) {
                /* Usually this is some garbage. */
                printf("level %d type %d len %u\n",
                    cmsghdr->cmsg_level, cmsghdr->cmsg_type, cmsghdr->cmsg_len);
        }

        /* ... and make sure we did not receive any descriptors! */
        ATF_REQUIRE(getnfds() == nfds);

        /* Now really receive a descriptor. */
        recvfd(fd[1], &getfd, 0);
        ATF_REQUIRE(getnfds() == nfds + 1);
        close(putfd);
        close(getfd);
        closesocketpair(fd);
}

/*
 * Send two files.  Then receive them.  Make sure they are returned in the
 * right order, and both get there.
 */
ATF_TC_WITHOUT_HEAD(two_files);
ATF_TC_BODY(two_files, tc)
{
        struct stat getfd_1_stat, getfd_2_stat, putfd_1_stat, putfd_2_stat;
        int fd[2], getfd_1, getfd_2, putfd_1, putfd_2;

        domainsocketpair(fd);
        tempfile(&putfd_1);
        tempfile(&putfd_2);
        dofstat(putfd_1, &putfd_1_stat);
        dofstat(putfd_2, &putfd_2_stat);
        sendfd(fd[0], putfd_1);
        sendfd(fd[0], putfd_2);
        close(putfd_1);
        close(putfd_2);
        recvfd(fd[1], &getfd_1, 0);
        recvfd(fd[1], &getfd_2, 0);
        dofstat(getfd_1, &getfd_1_stat);
        dofstat(getfd_2, &getfd_2_stat);
        samefile(&putfd_1_stat, &getfd_1_stat);
        samefile(&putfd_2_stat, &getfd_2_stat);
        close(getfd_1);
        close(getfd_2);
        closesocketpair(fd);
}

/*
 * Big bundling test.  Send an endpoint of the UNIX domain socket over itself,
 * closing the door behind it.
 */
ATF_TC_WITHOUT_HEAD(bundle);
ATF_TC_BODY(bundle, tc)
{
        int fd[2], getfd;

        domainsocketpair(fd);

        sendfd(fd[0], fd[0]);
        close(fd[0]);
        recvfd(fd[1], &getfd, 0);
        close(getfd);
        close(fd[1]);
}

/*
 * Big bundling test part two: Send an endpoint of the UNIX domain socket over
 * itself, close the door behind it, and never remove it from the other end.
 */
ATF_TC_WITHOUT_HEAD(bundle_cancel);
ATF_TC_BODY(bundle_cancel, tc)
{
        int fd[2];

        domainsocketpair(fd);
        sendfd(fd[0], fd[0]);
        sendfd(fd[1], fd[0]);
        closesocketpair(fd);
}

/*
 * Test for PR 151758: Send an character device over the UNIX domain socket
 * and then close both sockets to orphan the device.
 */
ATF_TC_WITHOUT_HEAD(devfs_orphan);
ATF_TC_BODY(devfs_orphan, tc)
{
        int fd[2], putfd;

        domainsocketpair(fd);
        devnull(&putfd);
        sendfd(fd[0], putfd);
        close(putfd);
        closesocketpair(fd);
}

/*
 * Test for PR 181741. Receiver sets LOCAL_CREDS, and kernel prepends a
 * control message to the data. Sender sends large payload using a non-blocking
 * socket. Payload + SCM_RIGHTS + LOCAL_CREDS hit socket buffer limit, and
 * receiver receives truncated data.
 */
ATF_TC_WITHOUT_HEAD(rights_creds_payload);
ATF_TC_BODY(rights_creds_payload, tc)
{
        const int on = 1;
        u_long sendspace;
        ssize_t len, rlen;
        void *buf;
        int fd[2], getfd, putfd, rc;

        sendspace = getsendspace();
        buf = calloc(1, sendspace);
        ATF_REQUIRE(buf != NULL);

        domainsocketpair(fd);
        tempfile(&putfd);

        rc = fcntl(fd[0], F_SETFL, O_NONBLOCK);
        ATF_REQUIRE_MSG(rc != -1, "fcntl(O_NONBLOCK) failed: %s",
            strerror(errno));
        rc = setsockopt(fd[1], 0, LOCAL_CREDS, &on, sizeof(on));
        ATF_REQUIRE_MSG(rc != -1, "setsockopt(LOCAL_CREDS) failed: %s",
            strerror(errno));

        len = sendfd_payload(fd[0], putfd, buf, sendspace);
        ATF_REQUIRE_MSG(len != -1 , "sendmsg failed: %s", strerror(errno));
#if TEST_PROTO == SOCK_STREAM
        ATF_REQUIRE_MSG((size_t)len < sendspace,
            "sendmsg: %zd bytes sent, expected < %lu", len, sendspace);
#endif
#if TEST_PROTO == SOCK_DGRAM
        /*
         * sendmsg(2) can't truncate datagrams, only recvmsg(2) can.  There are
         * two options for the kernel here: either accept the datagram with
         * slight overcommit of the socket buffer space or return ENOBUFS for a
         * datagram that is smaller or equal to the socket buffer space.  Our
         * implementation does overcommit.  Explanation is simple: from our
         * side we see space available, we have no idea that remote side has
         * LOCAL_CREDS set.  From our side we expect sendmsg(2) to succeed.
         */
        ATF_REQUIRE_MSG((size_t)len == sendspace,
            "sendmsg: %zd bytes sent, expected %lu", len, sendspace);
#endif
        rlen = recvfd_payload(fd[1], &getfd, buf, len,
            CMSG_SPACE(SOCKCREDSIZE(CMGROUP_MAX)) + CMSG_SPACE(sizeof(int)), 0);
        ATF_REQUIRE_MSG(rlen == len,
            "recvmsg: %zd bytes received; expected %zd", rlen, len);

        close(putfd);
        close(getfd);
        closesocketpair(fd);
}

static void
send_cmsg(int sockfd, void *cmsg, size_t cmsgsz)
{
        struct iovec iov;
        struct msghdr msghdr;
        ssize_t len;
        char ch;

        ch = 0;
        bzero(&msghdr, sizeof(msghdr));

        iov.iov_base = &ch;
        iov.iov_len = sizeof(ch);
        msghdr.msg_control = cmsg;
        msghdr.msg_controllen = cmsgsz;
        msghdr.msg_iov = &iov;
        msghdr.msg_iovlen = 1;

        len = sendmsg(sockfd, &msghdr, 0);
        ATF_REQUIRE_MSG(len != -1,
            "sendmsg failed: %s", strerror(errno));
        ATF_REQUIRE_MSG(len == sizeof(ch),
            "sendmsg: %zd bytes sent; expected %zu", len, sizeof(ch));
}

static void
recv_cmsg(int sockfd, char *cmsg, size_t cmsgsz, int flags)
{
        struct iovec iov;
        struct msghdr msghdr;
        ssize_t len;
        char ch;

        ch = 0;
        bzero(&msghdr, sizeof(msghdr));

        iov.iov_base = &ch;
        iov.iov_len = sizeof(ch);
        msghdr.msg_control = cmsg;
        msghdr.msg_controllen = cmsgsz;
        msghdr.msg_iov = &iov;
        msghdr.msg_iovlen = 1;

        len = recvmsg(sockfd, &msghdr, 0);
        ATF_REQUIRE_MSG(len != -1,
            "recvmsg failed: %s", strerror(errno));
        ATF_REQUIRE_MSG(len == sizeof(ch),
            "recvmsg: %zd bytes received; expected %zu", len, sizeof(ch));
        ATF_REQUIRE_MSG((msghdr.msg_flags & flags) == flags,
            "recvmsg: got flags %#x; expected %#x", msghdr.msg_flags, flags);
}

/*
 * Test for PR 131876.  Receiver uses a control message buffer that is too
 * small for the incoming SCM_RIGHTS message, so the message is truncated.
 * The kernel must not leak the copied right into the receiver's namespace.
 */
ATF_TC_WITHOUT_HEAD(truncated_rights);
ATF_TC_BODY(truncated_rights, tc)
{
        char *message;
        int fd[2], nfds, putfd, rc;

        domainsocketpair(fd);
        devnull(&putfd);
        nfds = getnfds();

        /*
         * Case 1: Send a single descriptor and truncate the message.
         */
        message = malloc(CMSG_SPACE(sizeof(int)));
        ATF_REQUIRE(message != NULL);
        putfds(message, putfd, 1);
        send_cmsg(fd[0], message, CMSG_LEN(sizeof(int)));
        recv_cmsg(fd[1], message, CMSG_LEN(0), MSG_CTRUNC);
        ATF_REQUIRE(getnfds() == nfds);
        free(message);

        /*
         * Case 2a: Send two descriptors in separate messages, and truncate at
         *          the boundary between the two messages.  We should still
         *          receive the first message.
         */
        message = malloc(CMSG_SPACE(sizeof(int)) * 2);
        ATF_REQUIRE(message != NULL);
        putfds(message, putfd, 1);
        putfds(message + CMSG_SPACE(sizeof(int)), putfd, 1);
        send_cmsg(fd[0], message, CMSG_SPACE(sizeof(int)) * 2);
        recv_cmsg(fd[1], message, CMSG_SPACE(sizeof(int)), MSG_CTRUNC);
        rc = close(*(int *)CMSG_DATA(message));
        ATF_REQUIRE_MSG(rc == 0, "close failed: %s", strerror(errno));
        ATF_REQUIRE(getnfds() == nfds);
        free(message);

        /*
         * Case 2b: Send two descriptors in separate messages, and truncate
         *          before the end of the first message.
         */
        message = malloc(CMSG_SPACE(sizeof(int)) * 2);
        ATF_REQUIRE(message != NULL);
        putfds(message, putfd, 1);
        putfds(message + CMSG_SPACE(sizeof(int)), putfd, 1);
        send_cmsg(fd[0], message, CMSG_SPACE(sizeof(int)) * 2);
        recv_cmsg(fd[1], message, CMSG_SPACE(0), MSG_CTRUNC);
        ATF_REQUIRE(getnfds() == nfds);
        free(message);

        /*
         * Case 2c: Send two descriptors in separate messages, and truncate
         *          after the end of the first message.  We should still
         *          receive the first message.
         */
        message = malloc(CMSG_SPACE(sizeof(int)) * 2);
        ATF_REQUIRE(message != NULL);
        putfds(message, putfd, 1);
        putfds(message + CMSG_SPACE(sizeof(int)), putfd, 1);
        send_cmsg(fd[0], message, CMSG_SPACE(sizeof(int)) * 2);
        recv_cmsg(fd[1], message, CMSG_SPACE(sizeof(int)) + CMSG_SPACE(0),
            MSG_CTRUNC);
        rc = close(*(int *)CMSG_DATA(message));
        ATF_REQUIRE_MSG(rc == 0, "close failed: %s", strerror(errno));
        ATF_REQUIRE(getnfds() == nfds);
        free(message);

        /*
         * Case 3: Send three descriptors in the same message, and leave space
         *         only for the first when receiving the message.
         */
        message = malloc(CMSG_SPACE(sizeof(int) * 3));
        ATF_REQUIRE(message != NULL);
        putfds(message, putfd, 3);
        send_cmsg(fd[0], message, CMSG_SPACE(sizeof(int) * 3));
        recv_cmsg(fd[1], message, CMSG_SPACE(sizeof(int)), MSG_CTRUNC);
        ATF_REQUIRE(getnfds() == nfds);
        free(message);

        close(putfd);
        closesocketpair(fd);
}

/*
 * Ensure that an attempt to copy a SCM_RIGHTS message to the recipient
 * fails.  In this case the kernel must dispose of the externalized rights
 * rather than leaking them into the recipient's file descriptor table.
 */
ATF_TC_WITHOUT_HEAD(copyout_rights_error);
ATF_TC_BODY(copyout_rights_error, tc)
{
        struct iovec iovec;
        struct msghdr msghdr;
        char buf[16];
        ssize_t len;
        int fd[2], error, nfds, putfd;

        memset(buf, 0, sizeof(buf));
        domainsocketpair(fd);
        devnull(&putfd);
        nfds = getnfds();

        len = sendfd_payload(fd[0], putfd, buf, sizeof(buf));
        ATF_REQUIRE_MSG(len != -1, "sendmsg failed: %s", strerror(errno));

        bzero(&msghdr, sizeof(msghdr));

        iovec.iov_base = buf;
        iovec.iov_len = sizeof(buf);
        msghdr.msg_control = (char *)-1; /* trigger EFAULT */
        msghdr.msg_controllen = CMSG_SPACE(sizeof(int));
        msghdr.msg_iov = &iovec;
        msghdr.msg_iovlen = 1;

        len = recvmsg(fd[1], &msghdr, 0);
        error = errno;
        ATF_REQUIRE_MSG(len == -1, "recvmsg succeeded: %zd", len);
        ATF_REQUIRE_MSG(errno == EFAULT, "expected EFAULT, got %d (%s)",
            error, strerror(errno));

        /* Verify that no FDs were leaked. */
        ATF_REQUIRE(getnfds() == nfds);

        close(putfd);
        closesocketpair(fd);
}

/*
 * Verify that we can handle empty rights messages.
 */
ATF_TC_WITHOUT_HEAD(empty_rights_message);
ATF_TC_BODY(empty_rights_message, tc)
{
        struct iovec iov;
        struct msghdr msghdr;
        struct cmsghdr cmsg;
        char *cm, message[CMSG_SPACE(0) + CMSG_SPACE(sizeof(int))];
        ssize_t len;
        int error, fd[2], putfd;

        domainsocketpair(fd);
        devnull(&putfd);

        memset(&msghdr, 0, sizeof(msghdr));
        iov.iov_base = NULL;
        iov.iov_len = 0;
        msghdr.msg_iov = &iov;
        msghdr.msg_iovlen = 1;

        /*
         * Try sending incorrect empty message.  On 64-bit platforms, where
         * CMSG_SPACE(0) > sizeof(struct cmsghdr), this will exercise
         * an edge case.
         */
        cmsg = (struct cmsghdr ){
            .cmsg_len = sizeof(struct cmsghdr), /* not CMSG_LEN(0)! */
            .cmsg_level = SOL_SOCKET,
            .cmsg_type = SCM_RIGHTS,
        };
        msghdr.msg_control = &cmsg;
        msghdr.msg_controllen = CMSG_SPACE(0);

        len = sendmsg(fd[0], &msghdr, 0);
        if (CMSG_LEN(0) != sizeof(struct cmsghdr))
                ATF_REQUIRE(len == -1 && errno == EINVAL);
        else
                ATF_REQUIRE(len == 0);

        /*
         * Try sending an empty message followed by a non-empty message.
         */
        cm = message;
        putfds(cm, -1, 0);
        cm += CMSG_SPACE(0);
        putfds(cm, putfd, 1);
        msghdr.msg_control = message;
        msghdr.msg_controllen = sizeof(message);

        len = sendmsg(fd[0], &msghdr, 0);
        ATF_REQUIRE_MSG(len == 0, "sendmsg failed: %s", strerror(errno));

        /* Only the non-empty message should be received. */
        len = recvmsg(fd[1], &msghdr, 0);
        ATF_REQUIRE_MSG(len == 0, "recvmsg failed: %s", strerror(errno));
        ATF_REQUIRE(msghdr.msg_controllen == CMSG_SPACE(sizeof(int)));
        error = close(*(int *)CMSG_DATA(msghdr.msg_control));
        ATF_REQUIRE_MSG(error == 0, "close failed: %s", strerror(errno));

        /*
         * Now try sending with the non-empty message before the empty message.
         */
        cm = message;
        putfds(cm, putfd, 1);
        cm += CMSG_SPACE(sizeof(int));
        putfds(cm, -1, 0);

        memset(&msghdr, 0, sizeof(msghdr));
        iov.iov_base = NULL;
        iov.iov_len = 0;
        msghdr.msg_control = message;
        msghdr.msg_controllen = CMSG_SPACE(sizeof(int));
        msghdr.msg_iov = &iov;
        msghdr.msg_iovlen = 1;

        len = sendmsg(fd[0], &msghdr, 0);
        ATF_REQUIRE_MSG(len == 0, "sendmsg failed: %s", strerror(errno));

        /* Only the non-empty message should be received. */
        len = recvmsg(fd[1], &msghdr, 0);
        ATF_REQUIRE_MSG(len == 0, "recvmsg failed: %s", strerror(errno));
        ATF_REQUIRE(msghdr.msg_controllen == CMSG_SPACE(sizeof(int)));
        error = close(*(int *)CMSG_DATA(msghdr.msg_control));
        ATF_REQUIRE_MSG(error == 0, "close failed: %s", strerror(errno));

        (void)close(putfd);
}

/*
 * Check that sending control creates records in a stream socket, making it
 * behave like a seqpacket socket.  If we stack several control+data writes
 * on a stream socket, we won't be able to read them all at once, even if we
 * provide a buffer large enough to receive all at once.
 *
 * XXXGL: adding MSG_WAITALL to the recvmsg() flags will make this test stuck.
 */
ATF_TC_WITHOUT_HEAD(control_creates_records);
ATF_TC_BODY(control_creates_records, tc)
{
        int fd[2], putfd, getfd;
        char buf[2];
        ssize_t rlen;

        domainsocketpair(fd);
        tempfile(&putfd);

        for (int i = 1; i <= 2; i++)
                ATF_REQUIRE(sendfd_payload(fd[0], putfd, buf, 1) == 1);
        ATF_REQUIRE(close(putfd) == 0);
        for (int i = 1; i <= 2; i++) {
                rlen = recvfd_payload(fd[1], &getfd, buf, 2,
                    CMSG_SPACE(sizeof(int)) * 2, 0);
                ATF_REQUIRE_MSG(rlen == 1,
                    "recvmsg: %zd bytes received; expected 1", rlen);
                ATF_REQUIRE(close(getfd) == 0);
        }
        closesocketpair(fd);
}

ATF_TC_WITH_CLEANUP(cross_jail_dirfd);
ATF_TC_HEAD(cross_jail_dirfd, tc)
{
        atf_tc_set_md_var(tc, "require.user", "root");
}
ATF_TC_BODY(cross_jail_dirfd, tc)
{
        int error, sock[2], jid1, jid2, status;
        pid_t pid1, pid2;

        domainsocketpair(sock);

        error = mkdir("./a", 0755);
        ATF_REQUIRE(error == 0);
        error = mkdir("./b", 0755);
        ATF_REQUIRE(error == 0);
        error = mkdir("./c", 0755);
        ATF_REQUIRE(error == 0);
        error = mkdir("./a/c", 0755);
        ATF_REQUIRE(error == 0);

        jid1 = jail_setv(JAIL_CREATE,
            "name", "passfd_test_cross_jail_dirfd1",
            "path", "./a",
            "persist", NULL,
            NULL);
        ATF_REQUIRE_MSG(jid1 >= 0, "jail_setv: %s", jail_errmsg);

        jid2 = jail_setv(JAIL_CREATE,
            "name", "passfd_test_cross_jail_dirfd2",
            "path", "./b",
            "persist", NULL,
            NULL);
        ATF_REQUIRE_MSG(jid2 >= 0, "jail_setv: %s", jail_errmsg);

        pid1 = fork();
        ATF_REQUIRE(pid1 >= 0);
        if (pid1 == 0) {
                ssize_t len;
                int dfd, error;
                char ch;

                error = jail_attach(jid1);
                if (error != 0)
                        err(1, "jail_attach");

                dfd = open(".", O_RDONLY | O_DIRECTORY);
                if (dfd < 0)
                        err(1, "open(\".\") in jail %d", jid1);

                ch = 0;
                len = sendfd_payload(sock[0], dfd, &ch, sizeof(ch));
                if (len == -1)
                        err(1, "sendmsg");

                _exit(0);
        }

        pid2 = fork();
        ATF_REQUIRE(pid2 >= 0);
        if (pid2 == 0) {
                ssize_t len;
                int dfd, dfd2, error, fd;
                char ch;

                error = jail_attach(jid2);
                if (error != 0)
                        err(1, "jail_attach");

                /* Get a directory from outside the jail root. */
                len = recvfd_payload(sock[1], &dfd, &ch, sizeof(ch),
                    CMSG_SPACE(sizeof(int)), 0);
                if (len == -1)
                        err(1, "recvmsg");

                if ((fcntl(dfd, F_GETFD) & FD_RESOLVE_BENEATH) == 0)
                        errx(1, "dfd does not have FD_RESOLVE_BENEATH set");

                /* Make sure we can't chdir. */
                error = fchdir(dfd);
                if (error == 0)
                        errx(1, "fchdir succeeded");
                if (errno != ENOTCAPABLE)
                        err(1, "fchdir");

                /* Make sure a dotdot access fails. */
                fd = openat(dfd, "../c", O_RDONLY | O_DIRECTORY);
                if (fd >= 0)
                        errx(1, "openat(\"../c\") succeeded");
                if (errno != ENOTCAPABLE)
                        err(1, "openat");

                /* Accesses within the sender's jail root are ok. */
                fd = openat(dfd, "c", O_RDONLY | O_DIRECTORY);
                if (fd < 0)
                        err(1, "openat(\"c\")");

                dfd2 = openat(dfd, "", O_EMPTY_PATH | O_RDONLY | O_DIRECTORY);
                if (dfd2 < 0)
                        err(1, "openat(\"\")");
                if ((fcntl(dfd2, F_GETFD) & FD_RESOLVE_BENEATH) == 0)
                        errx(1, "dfd2 does not have FD_RESOLVE_BENEATH set");

                _exit(0);
        }

        error = waitpid(pid1, &status, 0);
        ATF_REQUIRE(error != -1);
        ATF_REQUIRE(WIFEXITED(status));
        ATF_REQUIRE(WEXITSTATUS(status) == 0);
        error = waitpid(pid2, &status, 0);
        ATF_REQUIRE(error != -1);
        ATF_REQUIRE(WIFEXITED(status));
        ATF_REQUIRE(WEXITSTATUS(status) == 0);

        closesocketpair(sock);
}
ATF_TC_CLEANUP(cross_jail_dirfd, tc)
{
        int jid;

        jid = jail_getid("passfd_test_cross_jail_dirfd1");
        if (jid >= 0 && jail_remove(jid) != 0)
                err(1, "jail_remove");
        jid = jail_getid("passfd_test_cross_jail_dirfd2");
        if (jid >= 0 && jail_remove(jid) != 0)
                err(1, "jail_remove");
}

ATF_TC_WITHOUT_HEAD(listening_socket);
ATF_TC_BODY(listening_socket, tc)
{
        struct sockaddr_un sun;
        int error, ls, s[2];

        ls = socket(AF_UNIX, SOCK_STREAM, 0);
        ATF_REQUIRE(ls != -1);

        memset(&sun, 0, sizeof(sun));
        sun.sun_len = sizeof(sun);
        sun.sun_family = AF_UNIX;
        snprintf(sun.sun_path, sizeof(sun.sun_path), "listen.sock");
        error = bind(ls, (struct sockaddr *)&sun, sizeof(sun));
        ATF_REQUIRE_MSG(error == 0, "bind failed: %s", strerror(errno));
        error = listen(ls, 0);

        error = socketpair(AF_UNIX, SOCK_STREAM, 0, s);
        ATF_REQUIRE_MSG(error == 0, "socketpair failed: %s", strerror(errno));

        sendfd(s[0], ls);
        sendfd(s[0], s[0]);
        sendfd(s[0], s[1]);
        close(ls);
        close(s[0]);
        close(s[1]);
}

ATF_TP_ADD_TCS(tp)
{

        ATF_TP_ADD_TC(tp, simple_send_fd);
        ATF_TP_ADD_TC(tp, simple_send_fd_msg_cmsg_cloexec);
        ATF_TP_ADD_TC(tp, simple_send_fd_msg_cmsg_clofork);
        ATF_TP_ADD_TC(tp, send_and_close);
        ATF_TP_ADD_TC(tp, send_and_cancel);
        ATF_TP_ADD_TC(tp, send_and_shutdown);
        ATF_TP_ADD_TC(tp, send_a_lot);
        ATF_TP_ADD_TC(tp, send_overflow);
        ATF_TP_ADD_TC(tp, peek);
        ATF_TP_ADD_TC(tp, two_files);
        ATF_TP_ADD_TC(tp, bundle);
        ATF_TP_ADD_TC(tp, bundle_cancel);
        ATF_TP_ADD_TC(tp, devfs_orphan);
        ATF_TP_ADD_TC(tp, rights_creds_payload);
        ATF_TP_ADD_TC(tp, truncated_rights);
        ATF_TP_ADD_TC(tp, copyout_rights_error);
        ATF_TP_ADD_TC(tp, empty_rights_message);
        ATF_TP_ADD_TC(tp, control_creates_records);
        ATF_TP_ADD_TC(tp, cross_jail_dirfd);
        ATF_TP_ADD_TC(tp, listening_socket);

        return (atf_no_error());
}