/* Copyright (C) 2002-2018 Free Software Foundation, Inc.

   This file is part of the GNU C Library.

   Contributed by Ulrich Drepper <drepper@redhat.com>, 2002.

   The GNU C Library is free software; you can redistribute it and/or

   modify it under the terms of the GNU Lesser General Public

   License as published by the Free Software Foundation; either

   version 2.1 of the License, or (at your option) any later version.

   The GNU C Library is distributed in the hope that it will be useful,

   but WITHOUT ANY WARRANTY; without even the implied warranty of

   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

   Lesser General Public License for more details.

   You should have received a copy of the GNU Lesser General Public

   License along with the GNU C Library; if not, see

   <http://www.gnu.org/licenses/>.  */

#include <errno.h>

#include <pthread.h>

#include <stdio.h>

#include <time.h>

#include <unistd.h>

#include <sys/time.h>

#include <stdint.h>

#include <config.h>

#ifndef TYPE

# define TYPE PTHREAD_MUTEX_NORMAL

#endif

static int

do_test (void)

{

  pthread_mutex_t m;

  struct timespec ts;

  struct timeval tv;

  struct timeval tv2;

  int err;

  pthread_mutexattr_t a;

  if (pthread_mutexattr_init (&a) != 0)

    {

      puts ("mutexattr_init failed");

      return 1;

    }

  if (pthread_mutexattr_settype (&a, TYPE) != 0)

    {

      puts ("mutexattr_settype failed");

      return 1;

    }

#ifdef ENABLE_PI

  if (pthread_mutexattr_setprotocol (&a, PTHREAD_PRIO_INHERIT) != 0)

    {

      puts ("pthread_mutexattr_setprotocol failed");

      return 1;

    }

#endif

  err = pthread_mutex_init (&m, &a);

  if (err != 0)

    {

#ifdef ENABLE_PI

      if (err == ENOTSUP)

	{

	  puts ("PI mutexes unsupported");

	  return 0;

	}

#endif

      puts ("mutex_init failed");

      return 1;

    }

  if (pthread_mutexattr_destroy (&a) != 0)

    {

      puts ("mutexattr_destroy failed");

      return 1;

    }

  if (pthread_mutex_lock (&m) != 0)

    {

      puts ("mutex_lock failed");

      return 1;

    }

  if (pthread_mutex_trylock (&m) == 0)

    {

      puts ("mutex_trylock succeeded");

      return 1;

    }

  gettimeofday (&tv, NULL);

  TIMEVAL_TO_TIMESPEC (&tv, &ts);

  ts.tv_sec += 2;	/* Wait 2 seconds.  */

  err = pthread_mutex_timedlock (&m, &ts);

  if (err == 0)

    {

      puts ("timedlock succeeded");

      return 1;

    }

  else if (err != ETIMEDOUT)

    {

      printf ("timedlock error != ETIMEDOUT: %d\n", err);

      return 1;

    }

  else

    {

      int clk_tck = sysconf (_SC_CLK_TCK);

      gettimeofday (&tv2, NULL);

      tv2.tv_sec -= tv.tv_sec;

      tv2.tv_usec -= tv.tv_usec;

      if (tv2.tv_usec < 0)

	{

	  tv2.tv_usec += 1000000;

	  tv2.tv_sec -= 1;

	}

      /* Be a bit tolerant, add one CLK_TCK.  */

      tv2.tv_usec += 1000000 / clk_tck;

      if (tv2.tv_usec >= 1000000)

	{

	  tv2.tv_usec -= 1000000;

	  ++tv2.tv_sec;

	}

      if (tv2.tv_sec < 2)

	{

	  printf ("premature timeout: %jd.%06jd difference\n",

		  (intmax_t) tv2.tv_sec, (intmax_t) tv2.tv_usec);

	  return 1;

	}

    }

  (void) gettimeofday (&tv, NULL);

  TIMEVAL_TO_TIMESPEC (&tv, &ts);

  ts.tv_sec += 2;	/* Wait 2 seconds.  */

  /* The following makes the ts value invalid.  */

  ts.tv_nsec += 1000000000;

  err = pthread_mutex_timedlock (&m, &ts);

  if (err == 0)

    {

      puts ("2nd timedlock succeeded");

      return 1;

    }

  else if (err != EINVAL)

    {

      printf ("2nd timedlock error != EINVAL: %d\n", err);

      return 1;

    }

  if (pthread_mutex_unlock (&m) != 0)

    {

      puts ("mutex_unlock failed");

      return 1;

    }

  (void) gettimeofday (&tv, NULL);

  TIMEVAL_TO_TIMESPEC (&tv, &ts);

  ts.tv_sec += 2;	/* Wait 2 seconds.  */

  if (pthread_mutex_timedlock (&m, &ts) != 0)

    {

      puts ("3rd timedlock failed");

    }

  (void) gettimeofday (&tv2, NULL);

  /* Check that timedlock didn't delay.  We use a limit of 0.1 secs.  */

  timersub (&tv2, &tv, &tv2);

  if (tv2.tv_sec > 0 || tv2.tv_usec > 100000)

    {

      puts ("3rd timedlock didn't return right away");

      return 1;

    }

  if (pthread_mutex_unlock (&m) != 0)

    {

      puts ("final mutex_unlock failed");

      return 1;

    }

  if (pthread_mutex_destroy (&m) != 0)

    {

      puts ("mutex_destroy failed");

      return 1;

    }

  return 0;

}

#define TIMEOUT 4

#define TEST_FUNCTION do_test ()

#include "../test-skeleton.c"