dvander@535: #include <sourcemod>
dvander@535: 
dvander@535: public Plugin:myinfo = 
dvander@535: {
dvander@535: 	name = "Sorting Test",
dvander@535: 	author = "AlliedModders LLC",
dvander@535: 	description = "Tests sorting functions",
dvander@535: 	version = "1.0.0.0",
dvander@535: 	url = "http://www.sourcemod.net/"
dvander@535: };
dvander@535: 
ferret99gt@1701: public OnPluginStart()
dvander@535: {
dvander@535: 	RegServerCmd("test_sort_ints", Command_TestSortInts)
dvander@535: 	RegServerCmd("test_sort_floats", Command_TestSortFloats)
dvander@535: 	RegServerCmd("test_sort_strings", Command_TestSortStrings)
dvander@535: 	RegServerCmd("test_sort_1d", Command_TestSort1D)
dvander@535: 	RegServerCmd("test_sort_2d", Command_TestSort2D)
ferret99gt@1701: 	RegServerCmd("test_adtsort_ints", Command_TestSortADTInts)
ferret99gt@1701: 	RegServerCmd("test_adtsort_floats", Command_TestSortADTFloats)
ferret99gt@1701: 	RegServerCmd("test_adtsort_strings", Command_TestSortADTStrings)
ferret99gt@1701: 	RegServerCmd("test_adtsort_custom", Command_TestSortADTCustom)
dvander@535: }
dvander@535: 
dvander@535: /*****************
dvander@535:  * INTEGER TESTS *
dvander@535:  *****************/
dvander@535: // Note that integer comparison is just int1-int2 (or a variation therein)
dvander@535: 
dvander@535: PrintIntegers(const array[], size)
dvander@535: {
dvander@535: 	for (new i=0; i<size; i++)
dvander@535: 	{
dvander@535: 		PrintToServer("array[%d] = %d", i, array[i])
dvander@535: 	}
dvander@535: }
dvander@535: 
dvander@535: public Action:Command_TestSortInts(args)
dvander@535: {
dvander@535: 	new array[10] = {6, 7, 3, 2, 8, 5, 0, 1, 4, 9}
dvander@535: 	
dvander@535: 	PrintToServer("Testing ascending sort:")
dvander@535: 	SortIntegers(array, 10, Sort_Ascending)
dvander@535: 	PrintIntegers(array, 10)
dvander@535: 	
dvander@535: 	PrintToServer("Testing descending sort:")
dvander@535: 	SortIntegers(array, 10, Sort_Descending)
dvander@535: 	PrintIntegers(array, 10)
dvander@535: 	
pred@1917: 	PrintToServer("Testing random sort:")
pred@1917: 	SortIntegers(array, 10, Sort_Random)
pred@1917: 	PrintIntegers(array, 10)
pred@1917: 	
dvander@535: 	return Plugin_Handled
dvander@535: }
dvander@535: 
dvander@535: /**************************
dvander@535:  * Float comparison tests *
dvander@535:  **************************/
dvander@535: 
dvander@535: PrintFloats(const Float:array[], size)
dvander@535: {
dvander@535: 	for (new i=0; i<size; i++)
dvander@535: 	{
dvander@535: 		PrintToServer("array[%d] = %f", i, array[i])
dvander@535: 	}
dvander@535: }
dvander@535: 
dvander@535: public Action:Command_TestSortFloats(args)
dvander@535: {
dvander@535: 	new Float:array[10] = {6.3, 7.6, 3.2, 2.1, 8.5, 5.2, 0.4, 1.7, 4.8, 8.2}
dvander@535: 	
dvander@535: 	PrintToServer("Testing ascending sort:")
dvander@535: 	SortFloats(array, 10, Sort_Ascending)
dvander@535: 	PrintFloats(array, 10)
dvander@535: 	
dvander@535: 	PrintToServer("Testing descending sort:")
dvander@535: 	SortFloats(array, 10, Sort_Descending)
dvander@535: 	PrintFloats(array, 10)
dvander@535: 	
pred@1917: 	PrintToServer("Testing random sort:")
pred@1917: 	SortFloats(array, 10, Sort_Random)
pred@1917: 	PrintFloats(array, 10)
pred@1917: 	
dvander@535: 	return Plugin_Handled
dvander@535: }
dvander@535: 
dvander@535: public Custom1DSort(elem1, elem2, const array[], Handle:hndl)
dvander@535: {
dvander@535: 	new Float:f1 = Float:elem1
dvander@535: 	new Float:f2 = Float:elem2
dvander@535: 	if (f1 > f2)
dvander@535: 	{
dvander@535: 		return -1;
dvander@535: 	} else if (f1 < f2) {
dvander@535: 		return 1;
dvander@535: 	}
dvander@535: 	
dvander@535: 	return 0;
dvander@535: }
dvander@535: 
dvander@535: public Action:Command_TestSort1D(args)
dvander@535: {
dvander@535: 	new Float:array[10] = {6.3, 7.6, 3.2, 2.1, 8.5, 5.2, 0.4, 1.7, 4.8, 8.2}
dvander@535: 	
dvander@535: 	SortCustom1D(_:array, 10, Custom1DSort)
dvander@535: 	PrintFloats(array, 10)
dvander@535: 	
dvander@535: 	return Plugin_Handled
dvander@535: }
dvander@535: 
dvander@535: /***************************
dvander@535:  * String comparison tests *
dvander@535:  ***************************/
dvander@535: 
dvander@535: PrintStrings(const String:array[][], size)
dvander@535: {
dvander@535: 	for (new i=0; i<size; i++)
dvander@535: 	{
dvander@535: 		PrintToServer("array[%d] = %s", i, array[i])
dvander@535: 	}
dvander@535: }
dvander@535: 
dvander@535: public Action:Command_TestSortStrings(args)
dvander@535: {
dvander@535: 	new String:strarray[][] = 
dvander@535: 		{
dvander@535: 			"faluco",
dvander@535: 			"bailopan",
dvander@535: 			"pm onoto",
dvander@535: 			"damaged soul",
dvander@535: 			"sniperbeamer",
dvander@535: 			"sidluke",
dvander@535: 			"johnny got his gun",
dvander@535: 			"gabe newell",
pred@1917: 			"pRED*'s awesome",
dvander@535: 			"WHAT?!"
dvander@535: 		}
dvander@535: 		
dvander@535: 	PrintToServer("Testing ascending sort:")
dvander@535: 	SortStrings(strarray, 10, Sort_Ascending)
dvander@535: 	PrintStrings(strarray, 10)
dvander@535: 	
dvander@535: 	PrintToServer("Testing descending sort:")
dvander@535: 	SortStrings(strarray, 10, Sort_Descending)
dvander@535: 	PrintStrings(strarray, 10)
dvander@535: 	
pred@1917: 	PrintToServer("Testing random sort:")
pred@1917: 	SortStrings(strarray, 10, Sort_Random)
pred@1917: 	PrintStrings(strarray, 10)
pred@1917: 	
dvander@535: 	return Plugin_Handled
dvander@535: }
dvander@535: 
dvander@535: public Custom2DSort(String:elem1[], String:elem2[], String:array[][], Handle:hndl)
dvander@535: {
ferret99gt@1701: 	return strcmp(elem1, elem2)
dvander@535: }
dvander@535: 
dvander@535: public Action:Command_TestSort2D(args)
dvander@535: {
dvander@535: 	new String:array[][] = 
dvander@535: 		{
dvander@535: 			"faluco",
dvander@535: 			"bailopan",
dvander@535: 			"pm onoto",
dvander@535: 			"damaged soul",
dvander@535: 			"sniperbeamer",
dvander@535: 			"sidluke",
dvander@535: 			"johnny got his gun",
dvander@535: 			"gabe newell",
pred@1917: 			"pred is a crab",
dvander@535: 			"WHAT?!"
dvander@535: 		}
dvander@535: 	
dvander@535: 	SortCustom2D(_:array, 10, Custom2DSort)
dvander@535: 	PrintStrings(array, 10)
dvander@535: 	
dvander@535: 	return Plugin_Handled
dvander@535: }
ferret99gt@1701: 
ferret99gt@1701: /*******************
ferret99gt@1701:  * ADT ARRAY TESTS *
ferret99gt@1701:  *******************/
ferret99gt@1701: // Int and floats work the same as normal comparisions. Strings are direct
ferret99gt@1701: // comparisions with no hacky memory stuff like Pawn arrays.
ferret99gt@1701: 
ferret99gt@1701: PrintADTArrayIntegers(Handle:array)
ferret99gt@1701: {
ferret99gt@1701: 	new size = GetArraySize(array);
ferret99gt@1701: 	for (new i=0; i<size;i++)
ferret99gt@1701: 	{
ferret99gt@1701: 		PrintToServer("array[%d] = %d", i, GetArrayCell(array, i));	
ferret99gt@1701: 	}
ferret99gt@1701: }
ferret99gt@1701: 
ferret99gt@1701: public Action:Command_TestSortADTInts(args)
ferret99gt@1701: {
ferret99gt@1701: 	new Handle:array = CreateArray();
ferret99gt@1701: 	PushArrayCell(array, 6);
ferret99gt@1701: 	PushArrayCell(array, 7);
ferret99gt@1701: 	PushArrayCell(array, 3);
ferret99gt@1701: 	PushArrayCell(array, 2);
ferret99gt@1701: 	PushArrayCell(array, 8);
ferret99gt@1701: 	PushArrayCell(array, 5);
ferret99gt@1701: 	PushArrayCell(array, 0);
ferret99gt@1701: 	PushArrayCell(array, 1);
ferret99gt@1701: 	PushArrayCell(array, 4);
ferret99gt@1701: 	PushArrayCell(array, 9);
ferret99gt@1701: 	
ferret99gt@1701: 	PrintToServer("Testing ascending sort:")
ferret99gt@1701: 	SortADTArray(array, Sort_Ascending, Sort_Integer)
ferret99gt@1701: 	PrintADTArrayIntegers(array)
ferret99gt@1701: 	
ferret99gt@1701: 	PrintToServer("Testing descending sort:")
ferret99gt@1701: 	SortADTArray(array, Sort_Descending, Sort_Integer)
ferret99gt@1701: 	PrintADTArrayIntegers(array)
ferret99gt@1701: 	
pred@1917: 	PrintToServer("Testing random sort:")
pred@1917: 	SortADTArray(array, Sort_Random, Sort_Integer)
pred@1917: 	PrintADTArrayIntegers(array)
pred@1917: 	
ferret99gt@1701: 	return Plugin_Handled
ferret99gt@1701: 
ferret99gt@1701: }
ferret99gt@1701: 
ferret99gt@1701: PrintADTArrayFloats(Handle:array)
ferret99gt@1701: {
ferret99gt@1701: 	new size = GetArraySize(array);
ferret99gt@1701: 	for (new i=0; i<size;i++)
ferret99gt@1701: 	{
ferret99gt@1701: 		PrintToServer("array[%d] = %f", i, float:GetArrayCell(array, i));	
ferret99gt@1701: 	}
ferret99gt@1701: }
ferret99gt@1701: 
ferret99gt@1701: public Action:Command_TestSortADTFloats(args)
ferret99gt@1701: {
ferret99gt@1701: 	new Handle:array = CreateArray();
ferret99gt@1701: 	PushArrayCell(array, 6.0);
ferret99gt@1701: 	PushArrayCell(array, 7.0);
ferret99gt@1701: 	PushArrayCell(array, 3.0);
ferret99gt@1701: 	PushArrayCell(array, 2.0);
ferret99gt@1701: 	PushArrayCell(array, 8.0);
ferret99gt@1701: 	PushArrayCell(array, 5.0);
ferret99gt@1701: 	PushArrayCell(array, 0.0);
ferret99gt@1701: 	PushArrayCell(array, 1.0);
ferret99gt@1701: 	PushArrayCell(array, 4.0);
ferret99gt@1701: 	PushArrayCell(array, 9.0);
ferret99gt@1701: 	
ferret99gt@1701: 	PrintToServer("Testing ascending sort:")
ferret99gt@1701: 	SortADTArray(array, Sort_Ascending, Sort_Float)
ferret99gt@1701: 	PrintADTArrayFloats(array)
ferret99gt@1701: 	
ferret99gt@1701: 	PrintToServer("Testing descending sort:")
ferret99gt@1701: 	SortADTArray(array, Sort_Descending, Sort_Float)
ferret99gt@1701: 	PrintADTArrayFloats(array)
ferret99gt@1701: 	
pred@1917: 	PrintToServer("Testing random sort:")
pred@1917: 	SortADTArray(array, Sort_Random, Sort_Float)
pred@1917: 	PrintADTArrayFloats(array)
pred@1917: 	
ferret99gt@1701: 	return Plugin_Handled
ferret99gt@1701: }
ferret99gt@1701: 
ferret99gt@1701: PrintADTArrayStrings(Handle:array)
ferret99gt@1701: {
ferret99gt@1701: 	new size = GetArraySize(array);
ferret99gt@1701: 	decl String:buffer[64];
ferret99gt@1701: 	for (new i=0; i<size;i++)
ferret99gt@1701: 	{
ferret99gt@1701: 		GetArrayString(array, i, buffer, sizeof(buffer));
ferret99gt@1701: 		PrintToServer("array[%d] = %s", i, buffer);	
ferret99gt@1701: 	}
ferret99gt@1701: }
ferret99gt@1701: 
ferret99gt@1701: public Action:Command_TestSortADTStrings(args)
ferret99gt@1701: {
ferret99gt@1701: 	new Handle:array = CreateArray(ByteCountToCells(64));
ferret99gt@1701: 	PushArrayString(array, "faluco");
ferret99gt@1701: 	PushArrayString(array, "bailopan");
ferret99gt@1701: 	PushArrayString(array, "pm onoto");
ferret99gt@1701: 	PushArrayString(array, "damaged soul");
ferret99gt@1701: 	PushArrayString(array, "sniperbeamer");
ferret99gt@1701: 	PushArrayString(array, "sidluke");
ferret99gt@1701: 	PushArrayString(array, "johnny got his gun");
ferret99gt@1701: 	PushArrayString(array, "gabe newell");
pred@1917: 	PushArrayString(array, "Hello pRED*");
ferret99gt@1701: 	PushArrayString(array, "WHAT?!");
ferret99gt@1701: 	
ferret99gt@1701: 	PrintToServer("Testing ascending sort:")
ferret99gt@1701: 	SortADTArray(array, Sort_Ascending, Sort_String)
ferret99gt@1701: 	PrintADTArrayStrings(array)
ferret99gt@1701: 	
ferret99gt@1701: 	PrintToServer("Testing descending sort:")
ferret99gt@1701: 	SortADTArray(array, Sort_Descending, Sort_String)
ferret99gt@1701: 	PrintADTArrayStrings(array)
ferret99gt@1701: 	
pred@1917: 	PrintToServer("Testing random sort:")
pred@1917: 	SortADTArray(array, Sort_Random, Sort_String)
pred@1917: 	PrintADTArrayStrings(array)
pred@1917: 	
ferret99gt@1701: 	return Plugin_Handled
ferret99gt@1701: }
ferret99gt@1701: 
ferret99gt@1701: public ArrayADTCustomCallback(index1, index2, Handle:array, Handle:hndl)
ferret99gt@1701: {
ferret99gt@1701: 	decl String:buffer1[64], String:buffer2[64];
ferret99gt@1701: 	GetArrayString(array, index1, buffer1, sizeof(buffer1));
ferret99gt@1701: 	GetArrayString(array, index2, buffer2, sizeof(buffer2));
ferret99gt@1701: 	
ferret99gt@1701: 	return strcmp(buffer1, buffer2);
ferret99gt@1701: }
ferret99gt@1701: 
ferret99gt@1701: public Action:Command_TestSortADTCustom(args)
ferret99gt@1701: {
ferret99gt@1701: 	new Handle:array = CreateArray(ByteCountToCells(64));
ferret99gt@1701: 	PushArrayString(array, "faluco");
ferret99gt@1701: 	PushArrayString(array, "bailopan");
ferret99gt@1701: 	PushArrayString(array, "pm onoto");
ferret99gt@1701: 	PushArrayString(array, "damaged soul");
ferret99gt@1701: 	PushArrayString(array, "sniperbeamer");
ferret99gt@1701: 	PushArrayString(array, "sidluke");
ferret99gt@1701: 	PushArrayString(array, "johnny got his gun");
ferret99gt@1701: 	PushArrayString(array, "gabe newell");
pred@1917: 	PushArrayString(array, "pRED*'s running out of ideas");
ferret99gt@1701: 	PushArrayString(array, "WHAT?!");
ferret99gt@1701: 	
ferret99gt@1701: 	PrintToServer("Testing custom sort:")
ferret99gt@1701: 	SortADTArrayCustom(array, ArrayADTCustomCallback)
ferret99gt@1701: 	PrintADTArrayStrings(array);
ferret99gt@1701: }