paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 14:38:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

fpcunit: use xmlreporter in console runner

Browse Source 
git-svn-id: trunk@9829 -
This commit is contained in:
vincents 2006-09-07 13:15:51 +00:00
parent 3445892be1
commit 558b36aa82
2 changed files with 15 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/fpcunit/ide/fpcunitide.lpk
View File

@ -1,12 +1,14 @@
<?xml version="1.0"?>
<CONFIG>
<Package Version="2">
<PathDelim Value="\"/>
<Name Value="fpcunitide"/>
<Author Value="Vincent Snijders"/>
<CompilerOptions>
<Version Value="5"/>
<PathDelim Value="\"/>
<SearchPaths>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)/"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<CodeGeneration>
<Generate Value="Faster"/>
@ -17,12 +19,16 @@
</Other>
</CompilerOptions>
<Version Minor="1"/>
<Files Count="1">
<Files Count="2">
<Item1>
<Filename Value="fpcunitlazideintf.pas"/>
<HasRegisterProc Value="True"/>
<UnitName Value="FPCUnitLazIDEIntf"/>
</Item1>
<Item2>
<Filename Value="fpcunitproject1.inc"/>
<Type Value="Include"/>
</Item2>
</Files>
<Type Value="DesignTime"/>
<RequiredPkgs Count="2">
@ -34,10 +40,11 @@
</Item2>
</RequiredPkgs>
<UsageOptions>
<UnitPath Value="$(PkgOutDir)/"/>
<UnitPath Value="$(PkgOutDir)\"/>
</UsageOptions>
<PublishOptions>
<Version Value="2"/>
<DestinationDirectory Value="$(TestDir)\publishedpackage\"/>
<IgnoreBinaries Value="False"/>
</PublishOptions>
</Package>

9
components/fpcunit/ide/fpcunitproject1.inc
View File

@ -4,7 +4,8 @@ NewSource :=
+ '{$mode objfpc}{$H+}' + #13
+ #13
+ 'uses' + #13
+ ' custapp, Classes, SysUtils, fpcunit, testreport, testregistry;' + #13
+ ' custapp, Classes, SysUtils, fpcunit, testregistry,'#13
+ ' dom, testreport, xmlreporter, xmlwrite;'#13
+ #13
+ 'const' + #13
+ ' ShortOpts = ''alh'';' + #13
@ -29,16 +30,16 @@ NewSource :=
+ ' var' + #13
+ ' testResult: TTestResult;' + #13
+ #13
+ ' procedure doXMLTestRun(aText: TTest);' + #13
+ ' procedure doXMLTestRun(aTest: TTest);' + #13
+ ' var' + #13
+ ' XMLResultsWriter: TXMLResultsWriter;' + #13
+ ' begin' + #13
+ ' try' + #13
+ ' XMLResultsWriter := TXMLResultsWriter.Create;' + #13
+ ' testResult.AddListener(XMLResultsWriter);' + #13
+ ' XMLResultsWriter.WriteHeader;' + #13
+ ' aTest.Run(testResult);' + #13
+ ' XMLResultsWriter.WriteResult(testResult);' + #13
+ ' WriteXMLFile(XMLResultsWriter.Document, output);'#13
+ ' finally' + #13
+ ' XMLResultsWriter.Free;' + #13
+ ' testResult.Free;' + #13
@ -46,7 +47,7 @@ NewSource :=
+ ' end;' + #13
+ #13
+ ' {$IFNDEF VER2_0}' + #13
+ ' procedure doPlainTestRun(aText: TTest);' + #13
+ ' procedure doPlainTestRun(aTest: TTest);' + #13
+ ' var' + #13
+ ' PlainResultsWriter: TPlainResultsWriter;' + #13
+ ' begin' + #13