paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 02:32:51 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Removed helper function. Indentation should not be a global variable

Browse Source 
git-svn-id: trunk@5025 -
This commit is contained in:
michael 2006-10-26 13:26:44 +00:00
parent afbd50967c
commit 4625cb9c16
1 changed files with 14 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
fcl/fpcunit/testreport.pp
View File

@ -53,6 +53,7 @@ type
procedure EndTest(ATest: TTest);
end;}
function TestSuiteAsXML(aSuite:TTestSuite; Indent : Integer): string;
function TestSuiteAsXML(aSuite: TTestSuite): string;
function TestSuiteAsLatex(aSuite:TTestSuite): string;
function TestSuiteAsPlain(aSuite:TTestSuite): string;
@ -64,23 +65,6 @@ function TestResultAsPlain(aTestResult: TTestResult): string;
implementation
var
uLevel: integer; // indentation counter
// Helper function: Return a string of spaces pIntLen long
function trSpace(pIntLen: integer): string;
var
i: integer;
sString: string;
begin
sString := '';
for i := 1 to pIntLen do
sString := sString + ' ';
Result := sString;
end;
{TXMLResultsWriter}
procedure TXMLResultsWriter.WriteHeader;
begin
@ -156,21 +140,27 @@ begin
writeln;
end;
function TestSuiteAsXML(aSuite:TTestSuite): string;
begin
Result:=TestSuiteAsXML(ASuite,0);
end;
function TestSuiteAsXML(aSuite:TTestSuite; Indent : Integer): string;
var
i: integer;
begin
Result := trSpace(uLevel) + '<TestSuite name="' + ASuite.TestName + '">' + System.sLineBreak;
Inc(uLevel, 2);
Result := StringOfChar(' ',Indent) + '<TestSuite name="' + ASuite.TestName + '">' + System.sLineBreak;
Inc(Indent, 2);
for i := 0 to aSuite.Tests.Count - 1 do
if TTest(aSuite.Tests.Items[i]) is TTestSuite then
Result := Result + TestSuiteAsXML(TTestSuite(aSuite.Tests.Items[i]))
Result := Result + TestSuiteAsXML(TTestSuite(aSuite.Tests.Items[i]),Indent)
else
if TTest(aSuite.Tests.Items[i]) is TTestCase then
Result := Result + trSpace(uLevel) + '<test>' + TTestcase(aSuite.Tests.Items[i]).TestName + '</test>' + System.sLineBreak;
Dec(uLevel, 2);
Result := Result + trSpace(uLevel) + '</TestSuite>' + System.sLineBreak;
Result := Result + StringOfChar(' ',Indent) + '<test>' + TTestcase(aSuite.Tests.Items[i]).TestName + '</test>' + System.sLineBreak;
Dec(Indent, 2);
Result := Result + StringOfChar(' ',Indent) + '</TestSuite>' + System.sLineBreak;
end;
@ -336,7 +326,4 @@ begin
end;
initialization
uLevel := 0;
end.