48 lines
687 B
Plaintext
48 lines
687 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)
|
|
{
|
|
putstr(name);
|
|
if (value != reach_value)
|
|
{
|
|
putstr(": ERROR: ");
|
|
putstr(", ");
|
|
putstr(description);
|
|
putstr(" [");
|
|
putnum(reach_value);
|
|
putstr(" != ");
|
|
putnum(value);
|
|
putstr("]");
|
|
free(value_str);
|
|
free(reach_value_str);
|
|
}
|
|
else
|
|
{
|
|
putstr(": OK: ");
|
|
putstr(description);
|
|
}
|
|
wrt '\n';
|
|
}
|