/*

* 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 <glib.h>

#include <glib/gatomic.h>

#include <glib/galloca.h>

#include <glib/gprintf.h>

#include <glib-object.h>

#include <stdlib.h>

#ifdef SYMBIAN

#include "mrt2_glib2_test.h"

#endif /*SYMBIAN*/

#define THREADS 10

typedef enum

{

  MY_ENUM_FOO,

  MY_ENUM_BAR,

} myEnum;

typedef enum

{

  MY_FLAG_FOO = 1 << 0,

  MY_FLAG_BAR = 1 << 1,

} myFlags;

#define	TEST(m,cond)	G_STMT_START { failed = !(cond); \

if (failed) \

  { ++notpassed; \

  	assert_failed = TRUE; \

    if (!m) \

      g_print ("\n(%s:%d) failed for: %s\n", __FILE__, __LINE__, ( # cond )); \

    else \

      g_print ("\n(%s:%d) failed for: %s: (%s)\n", __FILE__, __LINE__, ( # cond ), (gchar*)m); \

  } \

else \

  ++passed;    \

  if ((passed+notpassed) % 10000 == 0) /*g_print (".")*/; fflush (stdout); \

} G_STMT_END

void g_ascii_strdown_test()

{

	gchar str[] = "ABCd";

	gchar *str1;

	str1 = g_ascii_strdown(str,4);

	g_assert(str1[0] == 'a');

	g_assert(str1[1] == 'b');

	g_assert(str1[2] == 'c');

	g_assert(str1[3] == 'd');	

}

#if 0

void g_assert_warning_test()

{

	g_assert_warning(NULL, __FILE__,__LINE__,"g_assert_warning_test","'a'== 'a'");

	#ifdef SYMBIAN

  	testResultXml("extra_test");

  	#endif /* EMULATOR */

	/*following will abort!*/

	g_assert_warning(NULL, __FILE__,__LINE__,"g_assert_warning_test","'a'== 'b'");

}

#endif

static gpointer

atomic_int_thread (gpointer data)

{

	gint* val = (gint*)data;

	g_atomic_int_set ((gint *) data,

                  (*val)+1);

	return NULL;

}

static void

test_g_atomic_int_set ()

{

  GThread *threads[THREADS];

  guint i;

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

    {

      int data;

      data = i;

      threads[i] = g_thread_create (atomic_int_thread, 

				    &data, TRUE, NULL);      

    }

  g_usleep (G_USEC_PER_SEC * 5);

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

    {

      g_thread_join (threads[i]);

    }

}

static gpointer

atomic_pointer_thread (gpointer data)

{

	g_atomic_pointer_set ((gpointer*) &data,NULL);

	return NULL;

}

static void

test_g_atomic_pointer_set ()

{

  GThread *threads[THREADS];

  guint i;

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

    {

      int data;

      data = i;

      threads[i] = g_thread_create (atomic_pointer_thread, 

				    &data, TRUE, NULL);      

    }

  g_usleep (G_USEC_PER_SEC * 5);

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

    {

      g_thread_join (threads[i]);

    }

}

#if 0

void test_g_get_codeset()

{

	gchar* charset =  g_get_codeset ();

    g_assert(!strcmp(charset,"US-ASCII"));

    g_free(charset);

}

#endif

void test_g_blow_chunks()

{

	gchar *name = "chunk";

	GMemChunk *mem_chunk = g_mem_chunk_new(name,2,10,G_ALLOC_ONLY);

	g_blow_chunks();

}

void test_g_date_set_time_val()

{

  GDate* d = g_date_new();

  GTimeVal current_time;

  g_get_current_time (&current_time);

  g_date_set_time_val(d, &current_time);

  g_assert(g_date_valid(d));

}

gboolean func1(int *data)

{

	*data = 1;

	return TRUE;

}

gboolean func2(int *data)

{

	*data = 2;

	return TRUE;

}

gboolean func3(int *data)

{

	*data = 3;

	return FALSE;

}

gboolean func4(int *data)

{

	*data = 4;

	return TRUE;

}

void hook_test()

{

	GHookList hooklist;

	GHook *hook1 = NULL,*hook2 = NULL,*hook3 = NULL,*hook4 = NULL,*temp_hook;

	int data1 = 0,data2 = 0,data3 = 0,data4 = 0;

	int comp_value;

	gboolean val;

	g_hook_list_init(&hooklist,sizeof(GHook));

	hook1 = g_hook_alloc(&hooklist);

	hook1->func = (gpointer)func1;

	hook1->data = &data1;

	hook2 = g_hook_alloc(&hooklist);

	hook2->func = (gpointer)func2;

	hook2->data = &data2;

	hook3 = g_hook_alloc(&hooklist);

	hook3->func = (gpointer)func3;

	hook3->data = &data3;

	hook4 = g_hook_alloc(&hooklist);

	hook4->func = (gpointer)func4;

	hook4->data = &data4;

	g_hook_append(&hooklist,hook1);

	g_hook_append(&hooklist,hook2);

	g_hook_append(&hooklist,hook3);

	g_hook_append(&hooklist,hook4);

	g_hook_list_invoke_check(&hooklist,FALSE);

	g_assert(data1 == 1 && data2 == 2 && data3 == 3 && data4 == 4);

	//now only func3 must be in hooklist

	data1 = 0,data2 = 0,data3 = 0,data4 = 0;

	g_hook_list_invoke_check(&hooklist,FALSE);

	//check for implemention behaviour as opposed to documented behaviour

	//enable this to check for documented behaviour

	//g_assert(data1 == 0 && data2 == 0 && data3 == 3 && data4 == 0);

	//disable this to stop checking implemented behaviour

	g_assert(data1 == 1 && data2 == 2 && data3 == 0 && data4 == 4);

	g_hook_list_clear(&hooklist);

}

void test_g_mem_chunk_alloc0()

{

	gchar *name = "chunk";

	char* pchar;

	GMemChunk *mem_chunk = g_mem_chunk_new(name,2,10,G_ALLOC_ONLY);

	gpointer data = g_mem_chunk_alloc0(mem_chunk);

	g_assert(data != NULL);

	pchar = (char*)data;

	g_assert( (*pchar) == '\0' && *(pchar+1) == '\0');

	g_mem_chunk_print(mem_chunk);

	g_mem_chunk_clean(mem_chunk);

	g_mem_chunk_destroy(mem_chunk);

}

gpointer theFunc(gpointer data)

{

	int* pval = (int*) data;

	(*pval)++;

	return NULL;

}

void test_gonce()

{

	GOnce onceObject;

	int val = 1;

	g_once_impl (&onceObject,theFunc, &val);

	g_once_impl (&onceObject,theFunc, &val);

	g_once_impl (&onceObject,theFunc, &val);

	g_assert(val == 2);

}

void test_g_return_if_fail_warning()

{

	//currently not exported 

	//g_return_if_fail_warning (NULL,"extra_tests::main","1== 1");

}

void test_g_slist_alloc()

{

	GSList*    pList =  g_slist_alloc();

	g_assert(pList != NULL);

	g_slist_free_1 (pList);

}

void test_g_string_insert_c()

{

	GString* string1 = g_string_new ("firstlast");

    g_string_insert_c (string1, 5, '_');

  	g_assert (strcmp (string1->str, "first_last") == 0);

  	g_string_free (string1, TRUE);

}

void test_g_strsignal()

{

	const gchar* errmsg = g_strsignal(0);

	g_assert(strcmp(errmsg, "unknown signal (0)")==0);	

}

void test_g_generictype_get_type()

{

	GType type_id, type_id2;

	int i;

	GType (*fnArray[])() =

	{

	g_closure_get_type,

	g_date_get_type,	

	g_gstring_get_type,	

	g_hash_table_get_type,

	g_io_channel_get_type,

	g_io_condition_get_type,

	g_strv_get_type,

	g_value_get_type,

	};

#define NumFns sizeof(fnArray)/sizeof(GType (*)())	

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

	{

		type_id =  fnArray[i]();

		g_assert(type_id != 0);

		type_id2 =  fnArray[i]();

		g_assert(type_id == type_id2);	

		//pInstance = g_type_create_instance(type_id);

		//g_assert(g_type_name(type_id) == g_type_name_from_instance(pInstance) );

	}

}

void test_enumClass()

{

	GType type_id = 0;

	GEnumClass* pPointer = NULL;

	GEnumValue* retrievedValue;

	static GEnumValue enum_array[] =

	{

		{ 0, "EZero", "zero"},

		{ 1, "EOne", "One"},

		{ 2, "ETwo", "Two"},

		{ 0, NULL, NULL},

	};

	//g_type_init();

	type_id =  g_enum_register_static("egEnum",enum_array);

	pPointer = g_type_class_ref(type_id);

	if(pPointer)

	{

		retrievedValue = g_enum_get_value(pPointer,1);

		g_assert(retrievedValue && retrievedValue->value == 1);

		retrievedValue = g_enum_get_value(pPointer,5);

		g_assert(retrievedValue == NULL);

		retrievedValue = g_enum_get_value_by_name(pPointer,"EOne");

		g_assert(retrievedValue && retrievedValue->value == 1);

		retrievedValue = g_enum_get_value_by_name(pPointer,"EFive");

		g_assert(retrievedValue == NULL);

		retrievedValue = g_enum_get_value_by_nick(pPointer,"One");

		g_assert(retrievedValue && retrievedValue->value == 1);

		retrievedValue = g_enum_get_value_by_nick(pPointer,"Five");

		g_assert(retrievedValue == NULL);

	}

}//fn

void test_flagsClass()

{

	GType type_id = 0;

	GFlagsClass* pPointer = NULL;

	GFlagsValue* retrievedValue;

	static GFlagsValue flags_array[] =

	{

		{ 1, "EOne", "One"},

		{ 2, "ETwo", "Two"},

		{ 4, "EFour", "Four"},

		{ 0, NULL, NULL},

	};

	//g_type_init();

	type_id =  g_flags_register_static("egFlags",flags_array);

	pPointer = g_type_class_ref(type_id);

	if(pPointer)

	{

		retrievedValue = g_flags_get_value_by_name(pPointer,"EOne");

		g_assert(retrievedValue && retrievedValue->value == 1);

		retrievedValue = g_flags_get_value_by_name(pPointer,"EFive");

		g_assert(retrievedValue == NULL);

		retrievedValue = g_flags_get_value_by_nick(pPointer,"One");

		g_assert(retrievedValue && retrievedValue->value == 1);

		retrievedValue = g_flags_get_value_by_nick(pPointer,"Five");

		g_assert(retrievedValue == NULL);

	}

}//fn

int main (int   argc,

      char *argv[])

{

	#ifdef SYMBIAN

	int handler = 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 /*SYMBIAN*/

	g_thread_init(NULL);	

	g_type_init();

	g_ascii_strdown_test();

    test_g_atomic_int_set();

    test_g_atomic_pointer_set();

	//test_g_get_codeset();    

	test_g_blow_chunks();

	test_g_date_set_time_val();

	hook_test();

	test_g_mem_chunk_alloc0();

	test_gonce();

	//test_g_return_if_fail_warning ();

	test_g_slist_alloc();

	test_g_string_insert_c();

	test_g_strsignal();

	test_g_generictype_get_type();

	test_enumClass();

 	test_flagsClass();

	//test 

	#ifdef SYMBIAN

	g_log_remove_handler (NULL, handler);

	g_warning("This test message should have been printed on console\n");

	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 /*SYMBIAN*/

	//g_assert_warning_test();

	#ifdef SYMBIAN

  	testResultXml("extra_tests");

  	#endif /* EMULATOR */

	return 0;

}