paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-18 15:49:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazDebugger Tests: Improve error feedback

Browse Source 
git-svn-id: trunk@61149 -
This commit is contained in:
martin 2019-05-05 15:29:58 +00:00
parent 1b35c31849
commit dec42c1e4d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazdebuggers/lazdebugtestbase/testdbgtestsuites.pas
View File

@ -641,7 +641,7 @@ begin
LogText(Compiler.LastCompileCommandLine+LineEnding + '*******************' +LineEnding+LineEnding );
except
On E: Exception do begin
TestTrue('Compile '+PrgName + ' GOT: '+ Compiler.LastCompileOutput, False);
TestTrue('Compile '+PrgName + ' GOT: '+ E.Message+ LineEnding + Compiler.LastCompileOutput, False);
AssertTestErrors;
end;
end;