paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-24 09:19:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

fpcunit gui: use TXMLResultWriter to support time results from Graeme

Browse Source 
git-svn-id: trunk@9944 -
This commit is contained in:
vincents 2006-09-20 11:56:39 +00:00
parent 2cdabd7f91
commit 3564d63adb
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/fpcunit/guitestrunner.pas
View File

@ -181,22 +181,27 @@ begin
testResult := TTestResult.Create;
try
testResult.AddListener(self);
{$IFNDEF UseOldXML}
w := TXMLResultsWriter.Create;
TestResult.AddListener(w);
{$ENDIF}
MemoLog('Running ' + TestTree.Selected.Text);
FStartCrono := Now;
testSuite.Run(testResult);
FStopCrono := Now;
MemoLog('Number of executed tests: ' + IntToStr(testResult.RunTests) + ' Time elapsed: ' +
FormatDateTime('hh:nn:ss.zzz', FStopCrono - FStartCrono));
// In the next fpc (post 2.0.4) we can pull the time from the TestResult
MemoLog('Number of executed tests: ' + IntToStr(testResult.RunTests)
+ ' Time elapsed: '
+ FormatDateTime('hh:nn:ss.zzz', FStopCrono - FStartCrono));
{$IFNDEF UseOldXML}
w := TXMLResultsWriter.Create;
w.WriteResult(testResult);
m := TMemoryStream.Create;
WriteXMLFile(w.Document, m);
m.Position := 0;
XMLSynEdit.Lines.LoadFromStream(m);
{$ELSE}
XMLSynEdit.lines.text:= '<TestResults>' + system.sLineBreak +
XMLSynEdit.lines.text := '<TestResults>' + system.sLineBreak +
TestResultAsXML(testResult) + system.sLineBreak + '</TestResults>';
{$ENDIF}