/* Copyright (c) 2015, Ben Noordhuis <info@bnoordhuis.nl>

 *

 * Permission to use, copy, modify, and/or distribute this software for any

 * purpose with or without fee is hereby granted, provided that the above

 * copyright notice and this permission notice appear in all copies.

 *

 * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES

 * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF

 * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR

 * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES

 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN

 * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF

 * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.

 */

#include "uv.h"

#include "task.h"

#ifdef _WIN32

TEST_IMPL(pipe_set_non_blocking) {

  RETURN_SKIP("Test not implemented on Windows.");

}

#else  /* !_WIN32 */

#include <string.h> /* memset */

#include <unistd.h> /* close */

#include <sys/types.h>

#include <sys/socket.h>

struct thread_ctx {

  uv_barrier_t barrier;

  uv_file fd;

};

static void thread_main(void* arg) {

  struct thread_ctx* ctx;

  uv_fs_t req;

  uv_buf_t bufs[1];

  char buf[4096];

  ssize_t n;

  int uv_errno;

  bufs[0] = uv_buf_init(buf, sizeof(buf));

  ctx = arg;

  uv_barrier_wait(&ctx->barrier);

  uv_sleep(100); /* make sure we are forcing the writer to block a bit */

  do {

    uv_errno = uv_fs_read(NULL, &req, ctx->fd, bufs, 1, -1, NULL);

    n = req.result;

    uv_fs_req_cleanup(&req;;

  } while (n > 0 || (n == -1 && uv_errno == UV_EINTR));

  ASSERT(n == 0);

}

TEST_IMPL(pipe_set_non_blocking) {

  struct thread_ctx ctx;

  uv_pipe_t pipe_handle;

  uv_thread_t thread;

  size_t nwritten;

  char data[4096];

  uv_buf_t buf;

  uv_file fd[2];

  int n;

  ASSERT(0 == uv_pipe_init(uv_default_loop(), &pipe_handle, 0));

  ASSERT(0 == socketpair(AF_UNIX, SOCK_STREAM, 0, fd));

  ASSERT(0 == uv_pipe_open(&pipe_handle, fd[1]));

  ASSERT(0 == uv_stream_set_blocking((uv_stream_t*) &pipe_handle, 1));

  fd[1] = -1; /* fd[1] is owned by pipe_handle now. */

  ctx.fd = fd[0];

  ASSERT(0 == uv_barrier_init(&ctx.barrier, 2));

  ASSERT(0 == uv_thread_create(&thread, thread_main, &ctx));

  uv_barrier_wait(&ctx.barrier);

  buf.len = sizeof(data);

  buf.base = data;

  memset(data, '.', sizeof(data));

  nwritten = 0;

  while (nwritten < 10 << 20) {

    /* The stream is in blocking mode so uv_try_write() should always succeed

     * with the exact number of bytes that we wanted written.

     */

    n = uv_try_write((uv_stream_t*) &pipe_handle, &buf, 1);

    ASSERT(n == sizeof(data));

    nwritten += n;

  }

  uv_close((uv_handle_t*) &pipe_handle, NULL);

  ASSERT(0 == uv_run(uv_default_loop(), UV_RUN_DEFAULT));

  ASSERT(0 == uv_thread_join(&thread));

  ASSERT(0 == close(fd[0]));  /* fd[1] is closed by uv_close(). */

  fd[0] = -1;

  uv_barrier_destroy(&ctx.barrier);

  MAKE_VALGRIND_HAPPY();

  return 0;

}

#endif  /* !_WIN32 */