add: test to strlen

This commit is contained in:
Camille Chauvet
2023-06-13 11:15:20 +00:00
parent 8af591f1db
commit 59be7cdd0d
2 changed files with 13 additions and 2 deletions

View File

@ -1,3 +1,5 @@
global name;
putstr(str){
local i;
i = 0;
@ -9,14 +11,14 @@ putstr(str){
}
}
test(value, reach_value, error_message)
test(value, reach_value, description)
{
putstr(name);
if (value != reach_value)
{
putstr(": ERROR: ");
putstr(", ");
putstr(error_message);
putstr(description);
putstr(" [");
putstr(reach_value);
putstr(" != ");
@ -26,6 +28,7 @@ test(value, reach_value, error_message)
else
{
putstr(": OK: ");
putstr(description);
}
wrt '\n';
}