35 lines
423 B
Plaintext
35 lines
423 B
Plaintext
global name;
|
|
|
|
putstr(str){
|
|
local i;
|
|
i = 0;
|
|
loop {
|
|
if ([str + i] == 0)
|
|
return;
|
|
wrt [str + i];
|
|
i++;
|
|
}
|
|
}
|
|
|
|
test(value, reach_value, description)
|
|
{
|
|
putstr(name);
|
|
if (value != reach_value)
|
|
{
|
|
putstr(": ERROR: ");
|
|
putstr(", ");
|
|
putstr(description);
|
|
putstr(" [");
|
|
putstr(reach_value);
|
|
putstr(" != ");
|
|
putstr(value);
|
|
putstr("]");
|
|
}
|
|
else
|
|
{
|
|
putstr(": OK: ");
|
|
putstr(description);
|
|
}
|
|
wrt '\n';
|
|
}
|