forked from starnakin/IronGOLEM
60 lines
912 B
Plaintext
60 lines
912 B
Plaintext
global name;
|
|
|
|
test_str(value, reach_value, description)
|
|
{
|
|
putstr(name);
|
|
if (strcmp(value, reach_value))
|
|
{
|
|
putstr(": ERROR: ");
|
|
putstr(", ");
|
|
putstr(description);
|
|
putstr(" [");
|
|
putstr(reach_value);
|
|
putstr(" != ");
|
|
putstr(value);
|
|
putstr("]");
|
|
}
|
|
else
|
|
{
|
|
putstr(": OK: ");
|
|
putstr(description);
|
|
}
|
|
wrt '\n';
|
|
}
|
|
|
|
test_int(value, reach_value, description)
|
|
{
|
|
local value_str;
|
|
local reach_value_str;
|
|
|
|
putstr(name);
|
|
if (value != reach_value)
|
|
{
|
|
value_str = itoa(value);
|
|
if (value_str == 0)
|
|
return (0);
|
|
reach_value_str = itoa(reach_value);
|
|
if (reach_value_str == 0)
|
|
{
|
|
free(value_str);
|
|
return (0);
|
|
}
|
|
putstr(": ERROR: ");
|
|
putstr(", ");
|
|
putstr(description);
|
|
putstr(" [");
|
|
putstr(reach_value_str);
|
|
putstr(" != ");
|
|
putstr(value_str);
|
|
putstr("]");
|
|
free(value_str);
|
|
free(reach_value_str);
|
|
}
|
|
else
|
|
{
|
|
putstr(": OK: ");
|
|
putstr(description);
|
|
}
|
|
wrt '\n';
|
|
}
|