/*
 * Copyright (c) 2002, Intel Corporation. All rights reserved.
 * Created by:  rolla.n.selbak REMOVE-THIS AT intel DOT com
 * This file is licensed under the GPL license.  For the full content
 * of this license, see the COPYING file at the top level of this
 * source tree.

 * Test that pthread_exit()
 *
 * Any cancelation cleanup handlers that have been pushed and not yet popped
 * shall be popped and executed in the reverse order that they were pushed.
 *
 * Steps:
 * 1.  Create a new thread.
 * 2.  The thread will call pthread_exit().
 * 3.  When this happens, the cleanup handler should be called.
 * 4.  Main will test that when pthread_join allows main to continue with the process that
 *     the thread has ended execution.  If the cleanup_handler was not called, then the
 *     test fails.
 *
 */

#include <pthread.h>
#include <stdio.h>
#include <unistd.h>
#include "posixtest.h"

static int i[3], j;

/* Cleanup function that the thread executes when it is canceled.  So if
 * cleanup_flag is 1, it means that the thread was canceled. */
static void a_cleanup_func1()
{
	i[j] = 1;
	j++;
	return;
}

/* Cleanup function that the thread executes when it is canceled.  So if
 * cleanup_flag is 1, it means that the thread was canceled. */
static void a_cleanup_func2()
{
	i[j] = 2;
	j++;
	return;
}

/* Cleanup function that the thread executes when it is canceled.  So if
 * cleanup_flag is 1, it means that the thread was canceled. */
static void a_cleanup_func3()
{
	i[j] = 3;
	j++;
	return;
}

/* Thread's function. */
static void *a_thread_func()
{
	/* Set up 3 cleanup handlers */
	pthread_cleanup_push(a_cleanup_func1, NULL);
	pthread_cleanup_push(a_cleanup_func2, NULL);
	pthread_cleanup_push(a_cleanup_func3, NULL);

	/* Terminate the thread here. */
	pthread_exit(0);

	/* Need these here for it to compile nicely.  We never reach here though. */
	pthread_cleanup_pop(0);
	pthread_cleanup_pop(0);
	pthread_cleanup_pop(0);
	return NULL;
}

int main(void)
{
	pthread_t new_th;

	/* Initialize integer array. */
	for (j = 0; j < 3; j++)
		i[j] = 0;

	/* Initialize counter. */
	j = 0;

	/* Create a new thread. */
	if (pthread_create(&new_th, NULL, a_thread_func, NULL) != 0) {
		perror("Error creating thread\n");
		return PTS_UNRESOLVED;
	}

	/* Wait for thread to return */
	if (pthread_join(new_th, NULL) != 0) {
		perror("Error in pthread_join()\n");
		return PTS_UNRESOLVED;
	}

	/* Check to make sure that the cleanup handlers were executed in order. */
	if (i[0] == 3) {
		if (i[1] == 2) {
			if (i[2] == 1) {
				printf("Test PASSED\n");
				return PTS_PASS;

			}
			printf
			    ("Test FAILED: Did not execute cleanup handlers in order.\n");
			return PTS_FAIL;
		}
		printf
		    ("Test FAILED: Did not execute cleanup handlers in order.\n");
		return PTS_FAIL;
	} else if (i[0] == 0) {
		printf("Test FAILED: Did not execute cleanup handlers.\n");
		return PTS_FAIL;
	}

	printf("Test FAILED: Did not execute cleanup handlers in order.\n");
	return PTS_FAIL;

}