paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 15:58:37 +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"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<PathDelim Value="\"/>
<Version Value="7"/>
<General>
<Flags>
<AlwaysBuild Value="False"/>
@ -10,9 +10,11 @@
</Flags>
<SessionStorage Value="InIDEConfig"/>
<MainUnit Value="0"/>
<TargetFileExt Value=".exe"/>
<Title Value="Run Lazarus tests"/>
</General>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
@ -87,14 +89,15 @@
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="8"/>
<Version Value="9"/>
<PathDelim Value="\"/>
<SearchPaths>
<OtherUnitFiles Value="bugs\;lcltests\"/>
<OtherUnitFiles Value="bugs;lcltests"/>
</SearchPaths>
<Parsing>
<SyntaxOptions>
<CStyleOperator Value="False"/>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<Linking>

2
test/testlpi.pas
View File

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