/*

* Copyright (c) 2009 Nokia Corporation and/or its subsidiary(-ies). All rights reserved.

*

* This 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 of the License, or (at your option) any later version.

*

* This 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 this library; if not, write to the

* Free Software Foundation, Inc., 59 Temple Place - Suite 330,

* Boston, MA 02111-1307, USA.

*

* Description:

*

*/

#undef G_DISABLE_ASSERT

#undef G_LOG_DOMAIN

#include <stdio.h>

#include <string.h>

#include "glib.h"

#include <pthread.h>

#ifdef SYMBIAN

#include "mrt2_glib2_test.h"

#endif /*SYMBIAN*/

GMainLoop *loop,*idle_loop;

GMainContext *context;

int fd[2];

char *buf[100];

GSource *source1,*source2;

pthread_t thread1;

gboolean e1_complete,e2_complete;

void quit()

{

	if(e1_complete && e2_complete)

		g_main_loop_quit(loop);

}

gboolean prepare(GSource *source,gint *timeout)

{

	*timeout = 0;

	return TRUE;

}

gboolean check(GSource *source)

{

	return TRUE;

}

gboolean dispatch(GSource *source,GSourceFunc callback,gpointer user_data)

{

	if(callback(user_data))

		return TRUE;

	else

		return FALSE;

}

gboolean my_callback(int* data)

{

	static int i = 100;

	int depth;

	//checks g_main_loop_is_running

	g_assert(g_main_loop_is_running(loop));

	depth = g_main_depth();

	//checks g_main_depth

	g_assert(depth == 1);

	i--;

	//printf("%d\n",i);

	if(i<0)

	{

		e1_complete = TRUE;

		quit();

		return FALSE;

	}

	else

	{

		++(*data);

		return TRUE;

	}

}

gboolean fd_prepare(GSource *source,gint *timeout)

{

	*timeout = -1;

	return FALSE;

}

gboolean fd_check(GSource *source)

{

	GPollFD *pollfd = source->poll_fds->data;

	if(pollfd->revents && (G_IO_IN | G_IO_HUP | G_IO_ERR))

		return TRUE;

	else

		return FALSE;

}

gboolean fd_dispatch(GSource *source,GSourceFunc callback,gpointer user_data)

{

	if(callback(user_data))

		return TRUE;

	else

		return FALSE;

}

gboolean fd_callback(int* data)

{

	pthread_join(thread1, NULL);

	read(fd[0],buf,sizeof(buf));

	// This asserts actually checks whether the callback for fd is successful or not

	// In other words it checks if g_source_add_poll was successful or not.

	g_assert(!strcmp((const char *)buf,"fd poll example"));

	*data = 1;

	//printf("%s",buf);

	//getchar();

	g_source_unref(source2);

	e2_complete = TRUE;

	quit();

	return FALSE;

}

void* thread_function(void *data)

{

	sleep(1);

	write(fd[1],"fd poll example",15);

	return NULL;

}

void main_loop_test()

{

	GMainContext *default_context;

	int depth;

	int id;

	GTimeVal time ={0,};

	int user_data = 0,fd_data = 0;

	GPollFD pollfd;

	GSource *source3;

	GSourceFuncs SourceFuncs =

	{

		prepare,

		check,

		dispatch,

		NULL

	};

	GSourceFuncs fd_SourceFuncs =

	{

		fd_prepare,

		fd_check,

		fd_dispatch,

		NULL

	};

	e1_complete = FALSE;

	e2_complete = FALSE;

	pipe(fd);

	pollfd.fd = fd[0];

	pollfd.events = G_IO_IN | G_IO_HUP | G_IO_ERR;

	pollfd.revents = 0;

	pthread_create(&thread1, NULL, thread_function, NULL);

	context = g_main_context_new();

	//g_main_context_add_poll(context,&pollfd,0);

	source1 = g_source_new(&SourceFuncs,sizeof(GSource));

	g_source_set_callback(source1,(GSourceFunc)my_callback,&user_data,NULL);

	id = g_source_attach(source1,context);

	g_assert(g_source_get_id(source1) == id);

	g_source_set_priority(source1,0);

	g_assert(g_source_get_priority(source1) == 0);

	loop = g_main_loop_new(context, FALSE);

	default_context = g_main_loop_get_context(loop);

	//checks g_main_loop_get_context

	g_assert(default_context == context);

	//checks g_main_loop_is_running

	g_assert(g_main_loop_is_running(loop) == FALSE);

	depth = g_main_depth();

	//checks g_main_depth

	g_assert(depth == 0);

	g_source_get_current_time(source1,&time);

	g_assert(time.tv_usec > 0);

	g_source_set_can_recurse(source1,TRUE);

	g_assert(g_source_get_can_recurse(source1) == TRUE);

	source2 = g_source_new(&fd_SourceFuncs,sizeof(GSource));

	g_source_set_callback(source2,(GSourceFunc)fd_callback,&fd_data,NULL);

	g_source_add_poll(source2,&pollfd);

	g_source_remove_poll(source2,&pollfd);

	// checks g_source_remove_poll

	g_assert(source2->poll_fds == NULL);

	g_source_add_poll(source2,&pollfd);

	// checks whether g_source_add_poll is successful.

	// one more check is done in fd_callback.

	// If that function is callled we are sure that add poll was successful

	g_assert(source2->poll_fds->data == &pollfd);

	source3 = g_source_ref(source2);

	g_assert(source3 == source2 && source2->ref_count == 2);

	g_source_unref(source3);

	id = g_source_attach(source2,context);

	//checks g_main_context_pending

	g_assert(g_main_context_pending(context));

	g_main_loop_run(loop);

	// ref is called here. Thats why two unrefs are called. If the 2nd unref is

	// callled with the unref, code should crash

	g_main_loop_ref(loop);

	g_main_loop_unref(loop);

	g_main_loop_unref(loop);

	//checks the number of times the call back function is called

	g_assert(user_data == 100);

	// checks whether set poll was successful and call back for the same

	// was called

	g_assert(fd_data == 1);

}

gint dummy_poll_func(GPollFD *ufds,guint nfsd,gint timeout_)

{

	return 0;

}

void misc_test()

{

	GPollFunc func = g_main_context_get_poll_func(context);

	g_assert(func != NULL);

	g_main_context_set_poll_func(context,dummy_poll_func);

	func = g_main_context_get_poll_func(context);

	g_assert(func == dummy_poll_func);

}

gboolean function(int *data)

{

	*data = 1;

	g_main_loop_quit(idle_loop);

	return FALSE;

}

void idle_test()

{

	int user_data = 0;

	gboolean retVal;

	GSource *s = g_idle_source_new();

	idle_loop = g_main_loop_new(NULL, FALSE);

	g_source_attach(s,context);

	g_idle_add((GSourceFunc)function,&user_data);

	retVal = g_idle_remove_by_data(&user_data);

	//checks g_idle_remove_by_data

	g_assert(retVal == TRUE);

	retVal = FALSE;

	g_idle_add((GSourceFunc)function,&user_data);

	retVal = g_source_remove_by_user_data(&user_data);

	//checks g_source_remove_by_user_data

	g_assert(retVal == TRUE);

	g_idle_add((GSourceFunc)function,&user_data);

	g_main_loop_run(idle_loop);

	g_main_loop_unref(idle_loop);

	//checks whether the function was run or not

	g_assert(user_data == 1);

}

int main()

{

	#ifdef SYMBIAN

	g_log_set_handler (NULL,  G_LOG_FLAG_FATAL| G_LOG_FLAG_RECURSION | G_LOG_LEVEL_CRITICAL | G_LOG_LEVEL_WARNING | G_LOG_LEVEL_MESSAGE | G_LOG_LEVEL_INFO | G_LOG_LEVEL_DEBUG, &mrtLogHandler, NULL);

	#endif

	//main_loop_test();

	//misc_test();

	//idle_test();

	#ifdef SYMBIAN

  	testResultXml("main_loop_test");

  	#endif /* EMULATOR */

	return 0;

}