/* Test some good inputs
 * Test 1: Basic, var
 * Test 2: var w/ default value
 */

#include <stdio.h>

#include <ctemplates.h>

char t_1[] = "This is a <TMPL_VAR name=\"what\">!";
char c_1_1[] = "This is a template!";

char t_2[] = "This is a <TMPL_VAR name=\"missing\" default=\"program\">!";
char c_2_1[] = "This is a program!";

char t_3[] = "<TMPL_VAR name=\"what\"> starts with a tag.";
char c_3_1[] = "This starts with a tag.";

char t_4[] = "<TMPL_VAR name=\"missing\" default=\"That\"> starts with a tag.";
char c_4_1[] = "That starts with a tag.";

char t_5[] = "This ends with a <TMPL_VAR name=\"what\">";
char c_5_1[] = "This ends with a tag";

char t_6[] = "This ends with a <TMPL_VAR name=\"missing\" default=\"default tag\">";
char c_6_1[] = "This ends with a default tag";

char t_7[] = "Test loop<TMPL_LOOP name=\"loop\"><TMPL_VAR name=\"var\"><TMPL_END>!";
char c_7_1[] = "Test loop!";
char c_7_2[] = "Test loop one!";
char c_7_3[] = "Test loop one two three!";

char t_8[] = "Test if as check:<TMPL_IF name=\"var\" value=\"correct\"> Works!<TMPL_END>";
char c_8_1[] = "Test if as check: Works!";
char c_8_2[] = "Test if as check:";
char c_8_3[] = "Test if as check:";

char t_9[] = "Test if for existance:<TMPL_IF name=\"var\"> Exists!<TMPL_END>";
char c_9_1[] = "Test if for existance: Exists!";
char c_9_2[] = "Test if for existance:";

char t_10[] = "Test else:<TMPL_IF name=\"var\"> One<TMPL_ELSE> Two<TMPL_END>";
char c_10_1[] = "Test else: One";
char c_10_2[] = "Test else: Two";

char t_11[] = "Test else2:<TMPL_IF name=\"var\" value=\"thing\"> One<TMPL_ELSE> Two<TMPL_END>";
char c_11_1[] = "Test else2: One";
char c_11_2[] = "Test else2: Two";

char t_12[] = "Test else3:<TMPL_IF name=\"var\"> One<TMPL_ELSEIF name=\"var2\"> Two<TMPL_END>";
char c_12_1[] = "Test else3: One";
char c_12_2[] = "Test else3: Two";
char c_12_3[] = "Test else3:";

char t_13[] = "Test else4:<TMPL_IF name=\"var\" value=\"one\"> One<TMPL_ELSEIF name=\"var2\" value=\"two\"> Two<TMPL_ELSE> Three<TMPL_END>";
char c_13_1[] = "Test else4: One";
char c_13_2[] = "Test else4: Two";
char c_13_3[] = "Test else4: Three";

char t_14[] = "Test if with empty value:<TMPL_IF name=\"var\" value=\"\"> Correct!<TMPL_END>";
char c_14_1[] = "Test if with empty value: Correct!";

char t_15[] = "Test elseif with empty value:<TMPL_IF name=\"missing\"> Wrong<TMPL_ELSEIF name=\"var\" value=\"\"> Correct!<TMPL_END>";
char c_15_1[] = "Test elseif with empty value: Correct!";

char t_16[] = "Test var with spaces:<TMPL_VAR  name=\"test\">";
char c_16_1[] = "Test var with spaces:Test";

char t_17[] = "Test var with spaces and default:<TMPL_VAR           name=\"test\"          default=\"Correct!\">";
char c_17_1[] = "Test var with spaces and default:Correct!";

char t_18[] = "Test var with spaces between attribute and name:<TMPL_VAR  name   =\"test\" default = \"Correct!\">";
char c_18_1[] = "Test var with spaces between attribute and name:Correct!";
char c_18_2[] = "Test var with spaces between attribute and name:Blah";

#define check(n,n2,t,vl,b)\
	ret = TMPL_render(t,vl,&dummy);\
	if(ret == NULL){\
		printf("Error in test 1.%d.%d",n,n2);\
		printf("%s",TMPL_err(t,NULL));\
	}\
	if(strcmp(ret,b) != 0){\
		fprintf(stderr, "Error in test 1.%d.%d\n",n,n2);\
		printf("Result should have been '%s'\n was '%s'\n", b, ret);\
		printf("Error: %s\n",TMPL_err(t, NULL));\
		return -1;\
	}else{\
		printf("\n\n##########\n##Test %d.%d passed\n##########\n\n\n",n,n2);\
	}
#define log(x) printf(x)
#define template(x,y) \
	err = TMPL_alloc_template(x,&y);\
	if(err != 0){\
		printf("Error: %s\n",TMPL_err(y,&dummy));\
		return -1;\
	}

int main(){
	log("Running tests\n");
	struct TMPL_templates* t;
	struct TMPL_varlist* vl;
	char* ret;
	size_t dummy;
	int err;
	
	/*Test 1: Variable*/
	template(t_1,t);
	vl = TMPL_alloc_varlist();
	TMPL_add_var_to_varlist(vl,"what","template");
	check(1,1,t,vl,c_1_1);
	TMPL_free_template(t);
	TMPL_free_varlist(vl);
	log("Test 1 complete\n");

	/*Test 2: Variable with default parameter*/
	template(t_2,t);
	vl = TMPL_alloc_varlist();
	check(2,1,t,vl,c_2_1);
	TMPL_free_template(t);
	TMPL_free_varlist(vl);
	log("Test 2 complete\n");

	/*Test 3: Template that starts with a tag*/
	template(t_3,t);
	vl = TMPL_alloc_varlist();
	TMPL_add_var_to_varlist(vl,"what","This");
	check(3,1,t,vl,c_3_1);
	TMPL_free_template(t);
	TMPL_free_varlist(vl);
	log("Test 3 complete\n");

	/*Test 4: Starts with a tag with a default value*/
	template(t_4,t);
	vl = TMPL_alloc_varlist();
	check(4,1,t,vl,c_4_1);
	TMPL_free_template(t);
	TMPL_free_varlist(vl);
	log("Test 4 complete\n");

	/*Test 5: Ends with a tag*/
	template(t_5,t);
	vl = TMPL_alloc_varlist();
	TMPL_add_var_to_varlist(vl,"what","tag");
	check(5,1,t,vl,c_5_1);
	TMPL_free_template(t);
	TMPL_free_varlist(vl);
	log("Test 5 complete\n");

	/*Test 6: Ends with a tag with a default value*/
	template(t_6,t);
	vl = TMPL_alloc_varlist();
	check(6,1,t,vl,c_6_1);
	TMPL_free_template(t);
	TMPL_free_varlist(vl);
	log("Test 6 complete\n");

	/*Test 7: Simple loop*/
	template(t_7,t);
	vl = TMPL_alloc_varlist();
	{
		struct TMPL_loop* l = TMPL_alloc_loop();
		TMPL_add_loop_to_varlist(vl,"loop",l);
	}
	check(7,1,t,vl,c_7_1);
	TMPL_free_varlist(vl);
	vl = TMPL_alloc_varlist();
	{
		struct TMPL_loop* l = TMPL_alloc_loop();
		struct TMPL_varlist* vl_2 = TMPL_alloc_varlist();
		TMPL_add_var_to_varlist(vl_2,"var"," one");
		TMPL_add_varlist_to_loop(l,vl_2);
		TMPL_add_loop_to_varlist(vl,"loop",l);
	}
	check(7,2,t,vl,c_7_2);
	TMPL_free_varlist(vl);
	vl = TMPL_alloc_varlist();
	{
		struct TMPL_loop* l = TMPL_alloc_loop();
		struct TMPL_varlist* vl_2 = TMPL_alloc_varlist();
		struct TMPL_varlist* vl_3 = TMPL_alloc_varlist();
		struct TMPL_varlist* vl_4 = TMPL_alloc_varlist();
		TMPL_add_var_to_varlist(vl_2,"var"," one");
		TMPL_add_var_to_varlist(vl_3,"var"," two");
		TMPL_add_var_to_varlist(vl_4,"var"," three");
		TMPL_add_varlist_to_loop(l,vl_2);
		TMPL_add_varlist_to_loop(l,vl_3);
		TMPL_add_varlist_to_loop(l,vl_4);
		TMPL_add_loop_to_varlist(vl,"loop",l);
	}
	check(7,3,t,vl,c_7_3);
	TMPL_free_varlist(vl);
	TMPL_free_template(t);
	log("Test 7 complete\n");
	
	/*Test 8: Simple if*/
	template(t_8,t);
	vl = TMPL_alloc_varlist();
	TMPL_add_var_to_varlist(vl,"var","correct");
	check(8,1,t,vl,c_8_1);
	TMPL_free_varlist(vl);
	vl = TMPL_alloc_varlist();
	TMPL_add_var_to_varlist(vl,"var","incorrect");
	check(8,2,t,vl,c_8_2);
	TMPL_free_varlist(vl);
	vl = TMPL_alloc_varlist();
	check(8,3,t,vl,c_8_3);
	TMPL_free_template(t);
	TMPL_free_varlist(vl);
	log("Test 8 complete\n");

	/*Test 9: Use if to check for variable existance*/
	template(t_9,t);
	vl = TMPL_alloc_varlist();
	TMPL_add_var_to_varlist(vl,"var","thing");
	check(9,1,t,vl,c_9_1);
	TMPL_free_varlist(vl);
	vl = TMPL_alloc_varlist();
	check(9,2,t,vl,c_9_2);
	TMPL_free_varlist(vl);
	TMPL_free_template(t);
	log("Test 9 complete\n");

	/*Test 10: If with else section, if used to check for existance*/
	template(t_10,t);
	vl = TMPL_alloc_varlist();
	TMPL_add_var_to_varlist(vl,"var","True");
	check(10,1,t,vl,c_10_1);
	TMPL_free_varlist(vl);
	vl = TMPL_alloc_varlist();
	check(10,2,t,vl,c_10_2);
	TMPL_free_varlist(vl);
	TMPL_free_template(t);
	log("Test 10 complete\n");

	/*Test 11: If with else section, if used for equivalence*/
	template(t_11,t);
	vl = TMPL_alloc_varlist();
	TMPL_add_var_to_varlist(vl,"var","thing");
	check(11,1,t,vl,c_11_1);
	TMPL_free_varlist(vl);
	vl = TMPL_alloc_varlist();
	check(11,2,t,vl,c_11_2);
	TMPL_free_varlist(vl);
	TMPL_free_template(t);
	log("Test 11 complete\n");

	/*Test 12: If with elseif, no else*/
	template(t_12,t);
	vl = TMPL_alloc_varlist();
	TMPL_add_var_to_varlist(vl,"var","thing");
	check(12,1,t,vl,c_12_1);
	TMPL_free_varlist(vl);
	vl = TMPL_alloc_varlist();
	TMPL_add_var_to_varlist(vl,"var2","thing");
	check(12,2,t,vl,c_12_2);
	TMPL_free_varlist(vl);
	vl = TMPL_alloc_varlist();
	check(12,3,t,vl,c_12_3);
	TMPL_free_varlist(vl);
	TMPL_free_template(t);
	log("Test 12 complete\n");
	
	/*Test 13: If with elseif, no else*/
	template(t_13,t);
	vl = TMPL_alloc_varlist();
	TMPL_add_var_to_varlist(vl,"var","one");
	check(13,1,t,vl,c_13_1);
	TMPL_free_varlist(vl);
	vl = TMPL_alloc_varlist();
	TMPL_add_var_to_varlist(vl,"var2","two");
	check(13,2,t,vl,c_13_2);
	TMPL_free_varlist(vl);
	vl = TMPL_alloc_varlist();
	check(13,3,t,vl,c_13_3);
	TMPL_free_varlist(vl);
	TMPL_free_template(t);
	log("Test 13 complete\n");
	
	/*Test 14: If with with empty value*/
	template(t_14,t);
	vl = TMPL_alloc_varlist();
	TMPL_add_var_to_varlist(vl,"var","");
	check(14,1,t,vl,c_14_1);
	TMPL_free_varlist(vl);
	TMPL_free_template(t);
	log("Test 14 complete\n");

	/*Test 15: Elseif with with empty value*/
	template(t_15,t);
	vl = TMPL_alloc_varlist();
	TMPL_add_var_to_varlist(vl,"var","");
	check(15,1,t,vl,c_15_1);
	TMPL_free_varlist(vl);
	TMPL_free_template(t);
	log("Test 15 complete\n");
	
	/*Test 16: var with multiple spaces in between*/
	template(t_16,t);
	vl = TMPL_alloc_varlist();
	TMPL_add_var_to_varlist(vl,"test","Test");
	check(16,1,t,vl,c_16_1);
	TMPL_free_varlist(vl);
	TMPL_free_template(t);
	log("Test 16 complete\n");
	
	/*Test 17: var with multiple spaces in between, and a default*/
	template(t_17,t);
	vl = TMPL_alloc_varlist();
	check(17,1,t,vl,c_17_1);
	TMPL_free_varlist(vl);
	TMPL_free_template(t);
	log("Test 17 complete\n");

	/*Test 18: spaces between attribute and value*/
	template(t_18,t);
	vl = TMPL_alloc_varlist();
	check(18,1,t,vl,c_18_1);
	TMPL_free_varlist(vl);
	TMPL_free_template(t);
	log("Test 18 complete\n");

	return 0;
}