/* $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 <[email protected]> and Martin Husemann <[email protected]>.
*
* 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();
}