/* Unit tests for GOnce and friends

 * Copyright (C) 2011 Red Hat, Inc

 * Author: Matthias Clasen

 *

 * This work is provided "as is"; redistribution and modification

 * in whole or in part, in any medium, physical or electronic is

 * permitted without restriction.

 *

 * This work 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.

 *

 * In no event shall the authors 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 <glib.h>

static gpointer

do_once (gpointer data)

{

  static gint i = 0;

  i++;

  return GINT_TO_POINTER (i);

}

static void

test_once1 (void)

{

  GOnce once = G_ONCE_INIT;

  gpointer res;

  g_assert (once.status == G_ONCE_STATUS_NOTCALLED);

  res = g_once (&once, do_once, NULL);

  g_assert_cmpint (GPOINTER_TO_INT (res), ==, 1);

  g_assert (once.status == G_ONCE_STATUS_READY);

  res = g_once (&once, do_once, NULL);

  g_assert_cmpint (GPOINTER_TO_INT (res), ==, 1);

}

static void

test_once2 (void)

{

  static gsize init = 0;

  if (g_once_init_enter (&init))

    {

      g_assert (TRUE);

      g_once_init_leave (&init, 1);

    }

  g_assert_cmpint (init, ==, 1);

  if (g_once_init_enter (&init))

    {

      g_assert_not_reached ();

      g_once_init_leave (&init, 2);

    }

  g_assert_cmpint (init, ==, 1);

}

#define THREADS 100

static gint64 shared;

static void

init_shared (void)

{

  static gsize init = 0;

  if (g_once_init_enter (&init))

    {

      shared += 42;

      g_once_init_leave (&init, 1);

    }

}

static gpointer

thread_func (gpointer data)

{

  init_shared ();

  return NULL;

}

static void

test_once3 (void)

{

  gint i;

  GThread *threads[THREADS];

  shared = 0;

  for (i = 0; i < THREADS; i++)

    threads[i] = g_thread_new ("once3", thread_func, NULL);

  for (i = 0; i < THREADS; i++)

    g_thread_join (threads[i]);

  g_assert_cmpint (shared, ==, 42);

}

static void

test_once4 (void)

{

  static const gchar *val;

  if (g_once_init_enter (&val))

    g_once_init_leave (&val, "foo");

  g_assert_cmpstr (val, ==, "foo");

}

int

main (int argc, char *argv[])

{

  g_test_init (&argc, &argv, NULL);

  g_test_add_func ("/thread/once1", test_once1);

  g_test_add_func ("/thread/once2", test_once2);

  g_test_add_func ("/thread/once3", test_once3);

  g_test_add_func ("/thread/once4", test_once4);

  return g_test_run ();

}