/* $NetBSD: t_pr.c,v 1.7 2011/04/26 20:42:01 martin Exp $ */

/*-
 * Copyright (c) 2010, 2011 The NetBSD Foundation, Inc.
 * All rights reserved.
 *
 * This code is derived from software contributed to The NetBSD Foundation
 * by Antti Kantee <pooka@NetBSD.org> and Martin Husemann <martin@NetBSD.org>.
 *
 * 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 NETBSD FOUNDATION, INC. 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 FOUNDATION 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/types.h>
#include <sys/ioctl.h>
#include <sys/tty.h>

#include <atf-c.h>
#include <fcntl.h>

#include <stdio.h>
#include <string.h>
#include <errno.h>
#include <rump/rump.h>
#include <rump/rump_syscalls.h>

static int
sendsome(int from, int to)
{
        size_t i;
        ssize_t cnt;
        static const char msg[] = "hello world\n";
        char buf[sizeof(msg)+10];

        memset(buf, 0, sizeof(buf));
        rump_sys_write(from, msg, strlen(msg));
        cnt = rump_sys_read(to, buf, sizeof(buf));
        if (cnt < (ssize_t)strlen(msg)) {
                printf("short message read: %zd chars: \"%s\"\n", cnt, buf);
                return 1;
        }
        for (i = 0; i < sizeof(buf); i++) {
                if (buf[i] == '\r' || buf[i] == '\n') {
                        buf[i] = '\n';
                        buf[i+1] = '\0';
                        break;
                }
        }

        return strcmp(buf, msg) != 0;
}

static int
exercise_ptytty(int master, int slave)
{
        int error, flags;

        /*
         * send a few bytes from master to slave and read them back
         */
        error = sendsome(master, slave);
        if (error)
                return error;

        flags = FREAD|FWRITE;
        rump_sys_ioctl(master, TIOCFLUSH, &flags);

        /*
         * and the same in the other direction
         */
        error = sendsome(slave, master);
        if (error)
                return error;

        flags = FREAD|FWRITE;
        rump_sys_ioctl(master, TIOCFLUSH, &flags);
        return 0;
}

ATF_TC(client_first);
ATF_TC_HEAD(client_first, tc)
{

        atf_tc_set_md_var(tc, "descr",
            "test basic tty/pty operation when opening client side first");
}

ATF_TC_BODY(client_first, tc)
{
        int master, slave, error, v;

        rump_init();
        slave =  rump_sys_open("/dev/ttyp1", O_RDWR|O_NONBLOCK);
        ATF_CHECK(slave != -1);

        master = rump_sys_open("/dev/ptyp1", O_RDWR);
        ATF_CHECK(master != -1);

        v = 0;
        rump_sys_ioctl(slave, FIOASYNC, &v);
        error = exercise_ptytty(master, slave);
        ATF_CHECK(error == 0);

        rump_sys_close(master);
        rump_sys_close(slave);
}

ATF_TC(master_first);
ATF_TC_HEAD(master_first, tc)
{

        atf_tc_set_md_var(tc, "descr",
            "test basic tty/pty operation when opening master side first");
}

ATF_TC_BODY(master_first, tc)
{
        int master, slave, error;

        rump_init();
        master = rump_sys_open("/dev/ptyp1", O_RDWR);
        ATF_CHECK(master != -1);

        slave =  rump_sys_open("/dev/ttyp1", O_RDWR);
        ATF_CHECK(slave != -1);

        error = exercise_ptytty(master, slave);
        ATF_CHECK(error == 0);

        rump_sys_close(master);
        rump_sys_close(slave);
}

ATF_TC(ptyioctl);
ATF_TC_HEAD(ptyioctl, tc)
{

        atf_tc_set_md_var(tc, "descr",
            "ioctl on pty with client side not open");
}

ATF_TC_BODY(ptyioctl, tc)
{
        struct termios tio;
        int fd;

        rump_init();
        fd = rump_sys_open("/dev/ptyp1", O_RDWR);
        ATF_CHECK(fd != -1);

        /*
         * This used to die with null deref under ptcwakeup()
         * atf_tc_expect_signal(-1, "PR kern/40688");
         */
        rump_sys_ioctl(fd, TIOCGETA, &tio);

        rump_sys_close(fd);
}

ATF_TP_ADD_TCS(tp)
{

        ATF_TP_ADD_TC(tp, ptyioctl);
        ATF_TP_ADD_TC(tp, client_first);
        ATF_TP_ADD_TC(tp, master_first);

        return atf_no_error();
}