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