fanasina/y_project
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

debug all leak mem with valgrind in ftest and tensor rep

Browse Source
This commit is contained in:
fanasina
2024-02-08 23:57:10 +01:00
parent 6ae0f7cd75
commit e1171d720b
32 changed files with 1468 additions and 405 deletions
Download Patch File Download Diff File Expand all files Collapse all files
ytest_t/yftest/include/ftest/ftest.h
+63 -23
View File
@@ -317,17 +317,21 @@ GEN_EXPECTED_OP_TYPE_FUNC(NE, TYPE_STRING)
do{ \
if(verb==NORMAL){PRINT_HK_C(colors_f[k_GREEN],tab_hk_f[hk_TR]," 1 %s passed %s \n\n",name_f,msg_call);} \
else if(verb==VERB){\
char *str_var1 = type##_TO_STR(var1) , *str_var2 = type##_TO_STR(var2);\
PRINT_HK_C(colors_f[k_GREEN],tab_hk_f[hk_TR]," 1 %s passed %s \n\n",name_f,msg_call);\
PRINT_LOC("test passed : (%s) %s (%s) :\n Value of %s: %s \n Value of %s: %s\n\n"\
,#var1,STRFY(OP),#var2,#var1, type##_TO_STR(var1), #var2, type##_TO_STR(var2)); \
,#var1,STRFY(OP),#var2,#var1, str_var1, #var2, str_var2 ); \
free(str_var1); free(str_var2);\
}\
}while(0);
#define IFTESTFAIL_NAME(OP,type,var1,var2,name_f,msg_call) \
do{\
PRINT_LOC("Failure\nExpected: (%s) %s (%s) :\n Value of %s: %s \n Value of %s: %s\n\n"\
,#var1,STRFY(OP),#var2,#var1, type##_TO_STR(var1), #var2, type##_TO_STR(var2)); \
char *str_var1 = type##_TO_STR(var1) , *str_var2 = type##_TO_STR(var2);\
PRINT_LOC("Failure\nExpected: (%s) %s (%s) :\n Value of %s: %s \n Value of %s: %s\n\n"\
,#var1,STRFY(OP),#var2,#var1, str_var1, #var2, str_var2 ); \
free(str_var1); free(str_var2);\
PRINT_HK_C(colors_f[k_RED],tab_hk_f[hk_TR]," 1 %s failed %s \n",name_f,msg_call); \
}while(0);
@@ -338,16 +342,20 @@ do{ \
/*IFTESTPASS_NAME(OP,type,var1,var2,name_f,msg_call);*/ \
if(verb==NORMAL){PRINT_HK_C(colors_f[k_GREEN],tab_hk_f[hk_TR]," 1 %s passed %s \n\n",name_f,msg_call);} \
else if(verb==VERB){\
char *str_var1 = type##_TO_STR(var1) , *str_var2 = type##_TO_STR(var2);\
PRINT_HK_C(colors_f[k_GREEN],tab_hk_f[hk_TR]," 1 %s passed %s \n\n",name_f,msg_call);\
PRINT_LOC("test passed : (%s) %s (%s) :\n Value of %s: %s \n Value of %s: %s\n\n"\
,#var1,STRFY(OP),#var2,#var1, type##_TO_STR(var1), #var2, type##_TO_STR(var2)); \
,#var1,STRFY(OP),#var2,#var1, str_var1, #var2, str_var2 ); \
free(str_var1); free(str_var2);\
}\
\
} \
else{ \
/*IFTESTFAIL_NAME(OP,type,var1,var2,name_f,msg_call);*/ \
PRINT_LOC("Failure\nExpected: (%s) %s (%s) :\n Value of %s: %s \n Value of %s: %s\n\n"\
,#var1,STRFY(OP),#var2,#var1, type##_TO_STR(var1), #var2, type##_TO_STR(var2)); \
char *str_var1 = type##_TO_STR(var1) , *str_var2 = type##_TO_STR(var2);\
PRINT_LOC("Failure\nExpected: (%s) %s (%s) :\n Value of %s: %s \n Value of %s: %s\n\n"\
,#var1,STRFY(OP),#var2,#var1, str_var1, #var2, str_var2 ); \
free(str_var1); free(str_var2);\
PRINT_HK_C(colors_f[k_RED],tab_hk_f[hk_TR]," 1 %s failed %s \n",name_f,msg_call); \
} \
} else { \
@@ -355,15 +363,19 @@ do{ \
/*IFTESTPASS_NAME(OP,type,var1,var2,name_f,msg_call);*/ \
if(verb==NORMAL){PRINT_HK_C(colors_f[k_GREEN],tab_hk_f[hk_TR]," 1 %s passed %s \n\n",name_f,msg_call);} \
else if(verb==VERB){\
char *str_var1 = type##_TO_STR(var1) , *str_var2 = type##_TO_STR(var2);\
PRINT_HK_C(colors_f[k_GREEN],tab_hk_f[hk_TR]," 1 %s passed %s \n\n",name_f,msg_call);\
PRINT_LOC("test passed : (%s) %s (%s) :\n Value of %s: %s \n Value of %s: %s\n\n"\
,#var1,STRFY(OP),#var2,#var1, type##_TO_STR(var1), #var2, type##_TO_STR(var2)); \
,#var1,STRFY(OP),#var2,#var1, str_var1, #var2, str_var2 ); \
free(str_var1); free(str_var2);\
}\
} \
else{ \
/*IFTESTFAIL_NAME(OP,type,var1,var2,name_f,msg_call);*/ \
PRINT_LOC("Failure\nExpected: (%s) %s (%s) :\n Value of %s: %s \n Value of %s: %s\n\n"\
,#var1,STRFY(OP),#var2,#var1, type##_TO_STR(var1), #var2, type##_TO_STR(var2)); \
char *str_var1 = type##_TO_STR(var1) , *str_var2 = type##_TO_STR(var2);\
PRINT_LOC("Failure\nExpected: (%s) %s (%s) :\n Value of %s: %s \n Value of %s: %s\n\n"\
,#var1,STRFY(OP),#var2,#var1, str_var1, #var2, str_var2 ); \
free(str_var1); free(str_var2);\
PRINT_HK_C(colors_f[k_RED],tab_hk_f[hk_TR]," 1 %s failed %s \n",name_f,msg_call); \
} \
}\
@@ -380,17 +392,21 @@ do{ \
do{\
if(verb==NORMAL){ PRINT_HK_C(colors_f[k_GREEN],tab_hk_f[hk_TR]," 1 test passed from %s \n\n",__func__);} \
else if(verb==VERB){\
char *str_var1 = type##_TO_STR(var1) , *str_var2 = type##_TO_STR(var2);\
PRINT_HK_C(colors_f[k_GREEN],tab_hk_f[hk_TR]," 1 test passed from %s \n\n",__func__); \
PRINT_LOC(" test passed : (%s) %s (%s) :\n Value of %s: %s \n Value of %s: %s\n\n"\
,#var1,STRFY(OP),#var2,#var1, type##_TO_STR(var1), #var2, type##_TO_STR(var2)); \
,#var1,STRFY(OP),#var2,#var1, str_var1, #var2, str_var2 ); \
free(str_var1); free(str_var2);\
}\
}while(0);
#define IFTESTFAIL_ \
do{\
char *str_var1 = type##_TO_STR(var1) , *str_var2 = type##_TO_STR(var2);\
PRINT_LOC("Failure\nExpected: (%s) %s (%s) :\n Value of %s: %s \n Value of %s: %s\n\n"\
,#var1,STRFY(OP),#var2,#var1, type##_TO_STR(var1), #var2, type##_TO_STR(var2)); \
,#var1,STRFY(OP),#var2,#var1, str_var1, #var2, str_var2 ); \
free(str_var1); free(str_var2);\
PRINT_HK_C(colors_f[k_RED],tab_hk_f[hk_TR]," 1 test failed from %s \n",__func__); \
}while(0);
@@ -403,16 +419,20 @@ do{ \
/*IFTESTPASS_(var1,var2);*/ \
if(verb==NORMAL){ PRINT_HK_C(colors_f[k_GREEN],tab_hk_f[hk_TR]," 1 test passed from %s \n\n",__func__);} \
else if(verb==VERB){\
char *str_var1 = type##_TO_STR(var1) , *str_var2 = type##_TO_STR(var2);\
PRINT_HK_C(colors_f[k_GREEN],tab_hk_f[hk_TR]," 1 test passed from %s \n\n",__func__); \
PRINT_LOC(" test passed : (%s) %s (%s) :\n Value of %s: %s \n Value of %s: %s\n\n"\
,#var1,STRFY(OP),#var2,#var1, type##_TO_STR(var1), #var2, type##_TO_STR(var2)); \
,#var1,STRFY(OP),#var2,#var1, str_var1, #var2, str_var2 ); \
free(str_var1); free(str_var2);\
}\
\
} \
else{ \
/*IFTESTFAIL_(var1,var2) ; */ \
char *str_var1 = type##_TO_STR(var1) , *str_var2 = type##_TO_STR(var2);\
PRINT_LOC("Failure\nExpected: (%s) %s (%s) :\n Value of %s: %s \n Value of %s: %s\n\n"\
,#var1,STRFY(OP),#var2,#var1, type##_TO_STR(var1), #var2, type##_TO_STR(var2)); \
,#var1,STRFY(OP),#var2,#var1, str_var1, #var2, str_var2 ); \
free(str_var1); free(str_var2);\
PRINT_HK_C(colors_f[k_RED],tab_hk_f[hk_TR]," 1 test failed from %s \n",__func__); \
if(is_assert) return; \
} \
@@ -421,15 +441,19 @@ do{ \
/*IFTESTPASS_(var1,var2) ; */ \
if(verb==NORMAL){ PRINT_HK_C(colors_f[k_GREEN],tab_hk_f[hk_TR]," 1 test passed from %s \n\n",__func__);} \
else if(verb==VERB){\
char *str_var1 = type##_TO_STR(var1) , *str_var2 = type##_TO_STR(var2);\
PRINT_HK_C(colors_f[k_GREEN],tab_hk_f[hk_TR]," 1 test passed from %s \n\n",__func__); \
PRINT_LOC(" test passed : (%s) %s (%s) :\n Value of %s: %s \n Value of %s: %s\n\n"\
,#var1,STRFY(OP),#var2,#var1, type##_TO_STR(var1), #var2, type##_TO_STR(var2)); \
,#var1,STRFY(OP),#var2,#var1, str_var1, #var2, str_var2 ); \
free(str_var1); free(str_var2);\
}\
} \
else{ \
/*IFTESTFAIL_(var1,var2) ; */ \
char *str_var1 = type##_TO_STR(var1) , *str_var2 = type##_TO_STR(var2);\
PRINT_LOC("Failure\nExpected: (%s) %s (%s) :\n Value of %s: %s \n Value of %s: %s\n\n"\
,#var1,STRFY(OP),#var2,#var1, type##_TO_STR(var1), #var2, type##_TO_STR(var2)); \
,#var1,STRFY(OP),#var2,#var1, str_var1, #var2, str_var2 ); \
free(str_var1); free(str_var2);\
PRINT_HK_C(colors_f[k_RED],tab_hk_f[hk_TR]," 1 test failed from %s \n",__func__); \
if(is_assert) return; \
} \
@@ -448,15 +472,19 @@ do{ \
/*IFTESTPASS_ ;*/ \
if(verb==NORMAL){ PRINT_HK_C(colors_f[k_GREEN],tab_hk_f[hk_TR]," 1 test passed from %s \n\n",__func__);} \
else if(verb==VERB){\
char *str_var1 = type##_TO_STR(var1) , *str_var2 = type##_TO_STR(var2);\
PRINT_HK_C(colors_f[k_GREEN],tab_hk_f[hk_TR]," 1 test passed from %s \n\n",__func__); \
PRINT_LOC(" test passed : (%s) %s (%s) :\n Value of %s: %s \n Value of %s: %s\n\n"\
,#var1,STRFY(OP),#var2,#var1, type##_TO_STR(var1), #var2, type##_TO_STR(var2)); \
,#var1,STRFY(OP),#var2,#var1, str_var1, #var2, str_var2 ); \
free(str_var1); free(str_var2);\
}\
} \
else{ \
/*IFTESTFAIL_ ;*/ \
char *str_var1 = type##_TO_STR(var1) , *str_var2 = type##_TO_STR(var2);\
PRINT_LOC("Failure\nExpected: (%s) %s (%s) :\n Value of %s: %s \n Value of %s: %s\n\n"\
,#var1,STRFY(OP),#var2,#var1, type##_TO_STR(var1), #var2, type##_TO_STR(var2)); \
,#var1,STRFY(OP),#var2,#var1, str_var1, #var2, str_var2 ); \
free(str_var1); free(str_var2);\
PRINT_HK_C(colors_f[k_RED],tab_hk_f[hk_TR]," 1 test failed from %s \n",__func__); \
} \
}else { \
@@ -464,15 +492,19 @@ do{ \
/*IFTESTPASS_(var1,var2) ; */ \
if(verb==NORMAL){ PRINT_HK_C(colors_f[k_GREEN],tab_hk_f[hk_TR]," 1 test passed from %s \n\n",__func__);} \
else if(verb==VERB){\
char *str_var1 = type##_TO_STR(var1) , *str_var2 = type##_TO_STR(var2);\
PRINT_HK_C(colors_f[k_GREEN],tab_hk_f[hk_TR]," 1 test passed from %s \n\n",__func__); \
PRINT_LOC(" test passed : (%s) %s (%s) :\n Value of %s: %s \n Value of %s: %s\n\n"\
,#var1,STRFY(OP),#var2,#var1, type##_TO_STR(var1), #var2, type##_TO_STR(var2)); \
,#var1,STRFY(OP),#var2,#var1, str_var1, #var2, str_var2 ); \
free(str_var1); free(str_var2);\
}\
} \
else{ \
/*IFTESTFAIL_(var1,var2) ; */ \
char *str_var1 = type##_TO_STR(var1) , *str_var2 = type##_TO_STR(var2);\
PRINT_LOC("Failure\nExpected: (%s) %s (%s) :\n Value of %s: %s \n Value of %s: %s\n\n"\
,#var1,STRFY(OP),#var2,#var1, type##_TO_STR(var1), #var2, type##_TO_STR(var2)); \
,#var1,STRFY(OP),#var2,#var1, str_var1, #var2, str_var2 ); \
free(str_var1); free(str_var2);\
PRINT_HK_C(colors_f[k_RED],tab_hk_f[hk_TR]," 1 test failed from %s \n",__func__); \
} \
}\
@@ -485,15 +517,19 @@ do{ \
/*IFTESTPASS_(var1,var2) ; */ \
if(verb==NORMAL){ PRINT_HK_C(colors_f[k_GREEN],tab_hk_f[hk_TR]," 1 test passed from %s \n\n",__func__);} \
else if(verb==VERB){\
char *str_var1 = type##_TO_STR(var1) , *str_var2 = type##_TO_STR(var2);\
PRINT_HK_C(colors_f[k_GREEN],tab_hk_f[hk_TR]," 1 test passed from %s \n\n",__func__); \
PRINT_LOC(" test passed : (%s) %s (%s) :\n Value of %s: %s \n Value of %s: %s\n\n"\
,#var1,STRFY(OP),#var2,#var1, type##_TO_STR(var1), #var2, type##_TO_STR(var2)); \
,#var1,STRFY(OP),#var2,#var1, str_var1, #var2, str_var2 ); \
free(str_var1); free(str_var2);\
}\
} \
else{ \
/*IFTESTFAIL_(var1,var2) ; */ \
char *str_var1 = type##_TO_STR(var1) , *str_var2 = type##_TO_STR(var2);\
PRINT_LOC("Failure\nExpected: (%s) %s (%s) :\n Value of %s: %s \n Value of %s: %s\n\n"\
,#var1,STRFY(OP),#var2,#var1, type##_TO_STR(var1), #var2, type##_TO_STR(var2)); \
,#var1,STRFY(OP),#var2,#var1, str_var1, #var2, str_var2 ); \
free(str_var1); free(str_var2);\
PRINT_HK_C(colors_f[k_RED],tab_hk_f[hk_TR]," 1 test failed from %s \n",__func__); \
return; \
} \
@@ -502,15 +538,19 @@ do{ \
/*IFTESTPASS_(var1,var2) ; */ \
if(verb==NORMAL){ PRINT_HK_C(colors_f[k_GREEN],tab_hk_f[hk_TR]," 1 test passed from %s \n\n",__func__);} \
else if(verb==VERB){\
char *str_var1 = type##_TO_STR(var1) , *str_var2 = type##_TO_STR(var2);\
PRINT_HK_C(colors_f[k_GREEN],tab_hk_f[hk_TR]," 1 test passed from %s \n\n",__func__); \
PRINT_LOC(" test passed : (%s) %s (%s) :\n Value of %s: %s \n Value of %s: %s\n\n"\
,#var1,STRFY(OP),#var2,#var1, type##_TO_STR(var1), #var2, type##_TO_STR(var2)); \
,#var1,STRFY(OP),#var2,#var1, str_var1, #var2, str_var2 ); \
free(str_var1); free(str_var2);\
}\
} \
else{ \
/*IFTESTFAIL_(var1,var2) ; */ \
char *str_var1 = type##_TO_STR(var1) , *str_var2 = type##_TO_STR(var2);\
PRINT_LOC("Failure\nExpected: (%s) %s (%s) :\n Value of %s: %s \n Value of %s: %s\n\n"\
,#var1,STRFY(OP),#var2,#var1, type##_TO_STR(var1), #var2, type##_TO_STR(var2)); \
,#var1,STRFY(OP),#var2,#var1, str_var1, #var2, str_var2 ); \
free(str_var1); free(str_var2);\
PRINT_HK_C(colors_f[k_RED],tab_hk_f[hk_TR]," 1 test failed from %s \n",__func__); \
return; \
} \
ytest_t/yftest/include/ftest/ftest_array.h
+72 -30
View File
@@ -17,17 +17,24 @@ do{ \
else if(verb==VERB){\
PRINT_HK_C(colors_f[k_GREEN],tab_hk_f[hk_TR]," 1 %s passed %s \n\n",name_f,msg_call);\
PRINT_LOC("test passed: (%s) %s (%s) \n\n",#var1,STRFY(OP),#var2); \
for(size_t i=0; i < min(sz1,sz2);++i) \
PRINTF(" Value of %s[%ld]: %s \n Value of %s[%ld]: %s\n\n"\
,#var1,i, type##_TO_STR(var1[i]), #var2,i, type##_TO_STR(var2[i])); \
for(size_t i=0; i < min(sz1,sz2);++i) {\
char *str_var1 = type##_TO_STR(var1[i]), *str_var2 = type##_TO_STR(var2[i]);\
PRINTF(" Value of %s[%ld]: %s \n Value of %s[%ld]: %s\n\n"\
,#var1,i, str_var1, #var2,i, str_var2); \
free(str_var1); free(str_var2);\
}\
}\
\
} \
else{ \
PRINT_LOC("Failure\nExpected: (%s) %s (%s) \n\n",#var1,STRFY(OP),#var2); \
for(size_t i=0; i < min(sz1,sz2);++i)\
if (!(var1[i] OP var2[i])) PRINTF(" Value of %s[%ld]: %s \n Value of %s[%ld]: %s\n\n"\
,#var1,i, type##_TO_STR(var1[i]), #var2,i, type##_TO_STR(var2[i])); \
if (!(COMPARE_N_##type((void*)(var1 + i),(void*)(var2 + i)) OP 0)) {\
char *str_var1 = type##_TO_STR(var1[i]), *str_var2 = type##_TO_STR(var2[i]);\
PRINTF(" Value of %s[%ld]: %s \n Value of %s[%ld]: %s\n\n"\
,#var1,i, str_var1, #var2,i, str_var2); \
free(str_var1); free(str_var2);\
}\
PRINT_HK_C(colors_f[k_RED],tab_hk_f[hk_TR]," 1 test failed from %s \n",__func__); \
\
}else { \
@@ -36,16 +43,23 @@ do{ \
else if(verb==VERB){\
PRINT_HK_C(colors_f[k_GREEN],tab_hk_f[hk_TR]," 1 %s passed %s \n\n",name_f,msg_call);\
PRINT_LOC("test passed: (%s) %s (%s) \n\n",#var1,STRFY(OP),#var2); \
for(size_t i=0; i < min(sz1,sz2);++i) \
PRINTF(" Value of %s[%ld]: %s \n Value of %s[%ld]: %s\n\n"\
,#var1,i, type##_TO_STR(var1[i]), #var2,i, type##_TO_STR(var2[i])); \
for(size_t i=0; i < min(sz1,sz2);++i) {\
char *str_var1 = type##_TO_STR(var1[i]), *str_var2 = type##_TO_STR(var2[i]);\
PRINTF(" Value of %s[%ld]: %s \n Value of %s[%ld]: %s\n\n"\
,#var1,i, str_var1, #var2,i, str_var2); \
free(str_var1); free(str_var2);\
}\
}\
} \
else{ \
PRINT_LOC("Failure\nExpected: (%s) %s (%s) \n\n",#var1,STRFY(OP),#var2); \
for(size_t i=0; i < min(sz1,sz2);++i)\
if (!(var1[i] OP var2[i])) PRINTF(" Value of %s[%ld]: %s \n Value of %s[%ld]: %s\n\n"\
,#var1,i, type##_TO_STR(var1[i]), #var2,i, type##_TO_STR(var2[i])); \
if (!(COMPARE_N_##type((void*)(var1 + i),(void*)(var2 + i)) OP 0)) {\
char *str_var1 = type##_TO_STR(var1[i]), *str_var2 = type##_TO_STR(var2[i]);\
PRINTF(" Value of %s[%ld]: %s \n Value of %s[%ld]: %s\n\n"\
,#var1,i, str_var1, #var2,i, str_var2); \
free(str_var1); free(str_var2);\
}\
PRINT_HK_C(colors_f[k_RED],tab_hk_f[hk_TR]," 1 test failed from %s \n",__func__); \
} \
}\
@@ -66,16 +80,23 @@ do{ \
else if(verb==VERB){\
PRINT_HK_C(colors_f[k_GREEN],tab_hk_f[hk_TR]," 1 test passed from %s \n\n",__func__); \
PRINT_LOC("test passed: (%s) %s (%s) \n\n",#var1,STRFY(OP),#var2); \
for(size_t i=0; i < min(sz1,sz2);++i) \
PRINTF(" Value of %s[%ld]: %s \n Value of %s[%ld]: %s\n\n"\
,#var1,i, type##_TO_STR(var1[i]), #var2,i, type##_TO_STR(var2[i])); \
for(size_t i=0; i < min(sz1,sz2);++i) {\
char *str_var1 = type##_TO_STR(var1[i]), *str_var2 = type##_TO_STR(var2[i]);\
PRINTF(" Value of %s[%ld]: %s \n Value of %s[%ld]: %s\n\n"\
,#var1,i, str_var1, #var2,i, str_var2); \
free(str_var1); free(str_var2);\
}\
}\
} \
else{ \
PRINT_LOC("Failure\nExpected: (%s) %s (%s) \n\n",#var1,STRFY(OP),#var2); \
for(size_t i=0; i < min(sz1,sz2);++i)\
if (!(var1[i] OP var2[i])) PRINTF(" Value of %s[%ld]: %s \n Value of %s[%ld]: %s\n\n"\
,#var1,i, type##_TO_STR(var1[i]), #var2,i, type##_TO_STR(var2[i])); \
if (!(COMPARE_N_##type((void*)(var1 + i),(void*)(var2 + i)) OP 0)) {\
char *str_var1 = type##_TO_STR(var1[i]), *str_var2 = type##_TO_STR(var2[i]);\
PRINTF(" Value of %s[%ld]: %s \n Value of %s[%ld]: %s\n\n"\
,#var1,i, str_var1, #var2,i, str_var2); \
free(str_var1); free(str_var2);\
}\
PRINT_HK_C(colors_f[k_RED],tab_hk_f[hk_TR]," 1 test failed from %s \n",__func__); \
} \
}else { \
@@ -84,16 +105,23 @@ do{ \
else if(verb==VERB){\
PRINT_HK_C(colors_f[k_GREEN],tab_hk_f[hk_TR]," 1 test passed from %s \n\n",__func__); \
PRINT_LOC("test passed: (%s) %s (%s) \n\n",#var1,STRFY(OP),#var2); \
for(size_t i=0; i < min(sz1,sz2);++i) \
PRINTF(" Value of %s[%ld]: %s \n Value of %s[%ld]: %s\n\n"\
,#var1,i, type##_TO_STR(var1[i]), #var2,i, type##_TO_STR(var2[i])); \
for(size_t i=0; i < min(sz1,sz2);++i) {\
char *str_var1 = type##_TO_STR(var1[i]), *str_var2 = type##_TO_STR(var2[i]);\
PRINTF(" Value of %s[%ld]: %s \n Value of %s[%ld]: %s\n\n"\
,#var1,i, str_var1, #var2,i, str_var2); \
free(str_var1); free(str_var2);\
}\
}\
} \
else{ \
PRINT_LOC("Failure\nExpected: (%s) %s (%s) \n\n",#var1,STRFY(OP),#var2); \
for(size_t i=0; i < min(sz1,sz2);++i)\
if (!(var1[i] OP var2[i])) PRINTF(" Value of %s[%ld]: %s \n Value of %s[%ld]: %s\n\n"\
,#var1,i, type##_TO_STR(var1[i]), #var2,i, type##_TO_STR(var2[i])); \
if (!(COMPARE_N_##type((void*)(var1 + i),(void*)(var2 + i)) OP 0)) {\
char *str_var1 = type##_TO_STR(var1[i]), *str_var2 = type##_TO_STR(var2[i]);\
PRINTF(" Value of %s[%ld]: %s \n Value of %s[%ld]: %s\n\n"\
,#var1,i, str_var1, #var2,i, str_var2); \
free(str_var1); free(str_var2);\
}\
PRINT_HK_C(colors_f[k_RED],tab_hk_f[hk_TR]," 1 test failed from %s \n",__func__); \
} \
}\
@@ -107,16 +135,23 @@ do{ \
else if(verb==VERB){\
PRINT_HK_C(colors_f[k_GREEN],tab_hk_f[hk_TR]," 1 test passed from %s \n\n",__func__); \
PRINT_LOC("test passed: (%s) %s (%s) \n\n",#var1,STRFY(OP),#var2); \
for(size_t i=0; i < min(sz1,sz2);++i) \
PRINTF(" Value of %s[%ld]: %s \n Value of %s[%ld]: %s\n\n"\
,#var1,i, type##_TO_STR(var1[i]), #var2,i, type##_TO_STR(var2[i])); \
for(size_t i=0; i < min(sz1,sz2);++i) {\
char *str_var1 = type##_TO_STR(var1[i]), *str_var2 = type##_TO_STR(var2[i]);\
PRINTF(" Value of %s[%ld]: %s \n Value of %s[%ld]: %s\n\n"\
,#var1,i, str_var1, #var2,i, str_var2); \
free(str_var1); free(str_var2);\
}\
}\
} \
else{ \
PRINT_LOC("Failure\nExpected: (%s) %s (%s) \n\n",#var1,STRFY(OP),#var2); \
for(size_t i=0; i < min(sz1,sz2);++i)\
if (!(var1[i] OP var2[i])) PRINTF(" Value of %s[%ld]: %s \n Value of %s[%ld]: %s\n\n"\
,#var1,i, type##_TO_STR(var1[i]), #var2,i, type##_TO_STR(var2[i])); \
if (!(COMPARE_N_##type((void*)(var1 + i),(void*)(var2 + i)) OP 0)) {\
char *str_var1 = type##_TO_STR(var1[i]), *str_var2 = type##_TO_STR(var2[i]);\
PRINTF(" Value of %s[%ld]: %s \n Value of %s[%ld]: %s\n\n"\
,#var1,i, str_var1, #var2,i, str_var2); \
free(str_var1); free(str_var2);\
}\
PRINT_HK_C(colors_f[k_RED],tab_hk_f[hk_TR]," 1 test failed from %s \n",__func__); \
return; \
} \
@@ -126,16 +161,23 @@ do{ \
else if(verb==VERB){\
PRINT_HK_C(colors_f[k_GREEN],tab_hk_f[hk_TR]," 1 test passed from %s \n\n",__func__); \
PRINT_LOC("test passed: (%s) %s (%s) \n\n",#var1,STRFY(OP),#var2); \
for(size_t i=0; i < min(sz1,sz2);++i) \
PRINTF("Value of %s[%ld]: %s \n Value of %s[%ld]: %s\n\n"\
,#var1,i, type##_TO_STR(var1[i]), #var2,i, type##_TO_STR(var2[i])); \
for(size_t i=0; i < min(sz1,sz2);++i) {\
char *str_var1 = type##_TO_STR(var1[i]), *str_var2 = type##_TO_STR(var2[i]);\
PRINTF("Value of %s[%ld]: %s \n Value of %s[%ld]: %s\n\n"\
,#var1,i, str_var1, #var2,i, str_var2); \
free(str_var1); free(str_var2);\
}\
}\
} \
else{ \
PRINT_LOC("Failure\nExpected: (%s) %s (%s) \n\n",#var1,STRFY(OP),#var2); \
for(size_t i=0; i < min(sz1,sz2);++i)\
if (!(var1[i] OP var2[i])) PRINTF(" Value of %s[%ld]: %s \n Value of %s[%ld]: %s\n\n"\
,#var1,i, type##_TO_STR(var1[i]), #var2,i, type##_TO_STR(var2[i])); \
if (!(COMPARE_N_##type((void*)(var1 + i),(void*)(var2 + i)) OP 0)) {\
char *str_var1 = type##_TO_STR(var1[i]), *str_var2 = type##_TO_STR(var2[i]);\
PRINTF(" Value of %s[%ld]: %s \n Value of %s[%ld]: %s\n\n"\
,#var1,i, str_var1, #var2,i, str_var2); \
free(str_var1); free(str_var2);\
}\
PRINT_HK_C(colors_f[k_RED],tab_hk_f[hk_TR]," 1 test failed from %s \n",__func__); \
return; \
} \