paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-21 02:59:56 +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"?> <?xml version="1.0"?>
<CONFIG> <CONFIG>
<Package Version="2"> <Package Version="2">
<PathDelim Value="\"/>
<Name Value="fpcunitide"/> <Name Value="fpcunitide"/>
<Author Value="Vincent Snijders"/> <Author Value="Vincent Snijders"/>
<CompilerOptions> <CompilerOptions>
<Version Value="5"/> <Version Value="5"/>
<PathDelim Value="\"/>
<SearchPaths> <SearchPaths>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)/"/> <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths> </SearchPaths>
<CodeGeneration> <CodeGeneration>
<Generate Value="Faster"/> <Generate Value="Faster"/>
@ -17,12 +19,16 @@
</Other> </Other>
</CompilerOptions> </CompilerOptions>
<Version Minor="1"/> <Version Minor="1"/>
<Files Count="1"> <Files Count="2">
<Item1> <Item1>
<Filename Value="fpcunitlazideintf.pas"/> <Filename Value="fpcunitlazideintf.pas"/>
<HasRegisterProc Value="True"/> <HasRegisterProc Value="True"/>
<UnitName Value="FPCUnitLazIDEIntf"/> <UnitName Value="FPCUnitLazIDEIntf"/>
</Item1> </Item1>
<Item2>
<Filename Value="fpcunitproject1.inc"/>
<Type Value="Include"/>
</Item2>
</Files> </Files>
<Type Value="DesignTime"/> <Type Value="DesignTime"/>
<RequiredPkgs Count="2"> <RequiredPkgs Count="2">
@ -34,10 +40,11 @@
</Item2> </Item2>
</RequiredPkgs> </RequiredPkgs>
<UsageOptions> <UsageOptions>
<UnitPath Value="$(PkgOutDir)/"/> <UnitPath Value="$(PkgOutDir)\"/>
</UsageOptions> </UsageOptions>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
<DestinationDirectory Value="$(TestDir)\publishedpackage\"/>
<IgnoreBinaries Value="False"/> <IgnoreBinaries Value="False"/>
</PublishOptions> </PublishOptions>
</Package> </Package>

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

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