Rebase: Fixed console -> syslog interface
This commit is contained in:
1 parent
beb4b253ab
commit
2239d9c848
1 file changed
+6
-3
@@ -48,6 +48,9 @@ procedure UnitTest;
|
|||||||
|
|
||||||
implementation
|
implementation
|
||||||
|
|
||||||
|
uses
|
||||||
|
syslog;
|
||||||
|
|
||||||
function hexStringToInt(str : pchar) : uint32;
|
function hexStringToInt(str : pchar) : uint32;
|
||||||
var
|
var
|
||||||
result : uint32;
|
result : uint32;
|
||||||
@@ -382,7 +385,7 @@ var
|
|||||||
end else begin
|
end else begin
|
||||||
inc(failed);
|
inc(failed);
|
||||||
msg:= stringConcat('FAIL: ', testName);
|
msg:= stringConcat('FAIL: ', testName);
|
||||||
console.Outputln('STRINGS', msg);
|
syslog.logln('STRINGS', msg);
|
||||||
kfree(void(msg));
|
kfree(void(msg));
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
@@ -398,7 +401,7 @@ var
|
|||||||
kfree(void(msg));
|
kfree(void(msg));
|
||||||
msg:= stringConcat(tmp, ' failed.');
|
msg:= stringConcat(tmp, ' failed.');
|
||||||
kfree(void(tmp));
|
kfree(void(tmp));
|
||||||
console.Outputln('STRINGS', msg);
|
syslog.logln('STRINGS', msg);
|
||||||
kfree(void(msg));
|
kfree(void(msg));
|
||||||
kfree(void(pStr));
|
kfree(void(pStr));
|
||||||
kfree(void(fStr));
|
kfree(void(fStr));
|
||||||
@@ -407,7 +410,7 @@ var
|
|||||||
begin
|
begin
|
||||||
passed:= 0;
|
passed:= 0;
|
||||||
failed:= 0;
|
failed:= 0;
|
||||||
console.Outputln('STRINGS', 'Unit tests starting...');
|
syslog.logln('STRINGS', 'Unit tests starting...');
|
||||||
|
|
||||||
{ === stringSize === }
|
{ === stringSize === }
|
||||||
Assert(stringSize('HELLO') = 5, 'stringSize(HELLO)=5');
|
Assert(stringSize('HELLO') = 5, 'stringSize(HELLO)=5');
|
||||||
|
|||||||
Reference in new issue
Block a user