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';
}