paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 05:56:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

lazarus test runner: add compiler output to failure message, if compilation fails.

Browse Source 
git-svn-id: trunk@27808 -
This commit is contained in:
vincents 2010-10-22 10:37:57 +00:00
parent ad33a9072d
commit 17872bab97
2 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
test/runtestsgui.lpi
View File

@ -1,8 +1,8 @@
<?xml version="1.0"?> <?xml version="1.0"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="9"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Version Value="7"/>
<General> <General>
<Flags> <Flags>
<AlwaysBuild Value="False"/> <AlwaysBuild Value="False"/>
@ -10,9 +10,11 @@
</Flags> </Flags>
<SessionStorage Value="InIDEConfig"/> <SessionStorage Value="InIDEConfig"/>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<TargetFileExt Value=".exe"/>
<Title Value="Run Lazarus tests"/> <Title Value="Run Lazarus tests"/>
</General> </General>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/> <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
@ -87,14 +89,15 @@
</Units> </Units>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="8"/> <Version Value="9"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<SearchPaths> <SearchPaths>
<OtherUnitFiles Value="bugs\;lcltests\"/> <OtherUnitFiles Value="bugs;lcltests"/>
</SearchPaths> </SearchPaths>
<Parsing> <Parsing>
<SyntaxOptions> <SyntaxOptions>
<CStyleOperator Value="False"/> <CStyleOperator Value="False"/>
<UseAnsiStrings Value="False"/>
</SyntaxOptions> </SyntaxOptions>
</Parsing> </Parsing>
<Linking> <Linking>

2
test/testlpi.pas
View File

@ -163,7 +163,7 @@ begin
end; end;
if LazBuild.ExitStatus<>0 then if LazBuild.ExitStatus<>0 then
Fail(format('Compilation failed: ExitCode=%d%s%s', Fail(format('Compilation failed: ExitCode=%d%s%s',
[LazBuild.ExitStatus, LineEnding, {OutputLines.Text}''])); [LazBuild.ExitStatus, LineEnding, AnsiToUtf8(OutputLines.Text)]));
finally finally
LazBuild.Free; LazBuild.Free;
OutputLines.Free; OutputLines.Free;