paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-05 03:40:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

DBG: Starting testcase for exception handling

Browse Source 
git-svn-id: trunk@28642 -
This commit is contained in:
martin 2010-12-07 03:23:47 +00:00
parent a032b2d37f
commit 4ffb60a9e7
2 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
debugger/test/Gdbmi/TestGdbmi.lpi
View File

@ -7,8 +7,7 @@
<MainUnit Value="0"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
<Icon Value="0"/>
<ActiveWindowIndexAtStart Value="0"/>
<ActiveWindowIndexAtStart Value="1"/>
</General>
<i18n>
<EnableI18N LFM="False"/>
@ -57,10 +56,11 @@
<IsVisibleTab Value="True"/>
<EditorIndex Value="0"/>
<WindowIndex Value="1"/>
<TopLine Value="1"/>
<CursorPos X="55" Y="34"/>
<TopLine Value="59"/>
<CursorPos X="27" Y="102"/>
<ExtraEditorCount Value="1"/>
<ExtraEditor1>
<IsVisibleTab Value="True"/>
<EditorIndex Value="0"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
@ -70,12 +70,17 @@
<Loaded Value="True"/>
</Unit1>
</Units>
<JumpHistory Count="0" HistoryIndex="-1"/>
</ProjectOptions>
<CompilerOptions>
<Version Value="9"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="TestGdbmi.exe"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib"/>
</SearchPaths>
<Other>
<CompilerMessages>

2
debugger/test/Gdbmi/testexception.pas
View File

@ -105,7 +105,7 @@ begin
AssertTrue('Has Debuggers', GdbList.Count > 0);
for i := 0 to FpcList.Count - 1 do begin
TestExeName := AppDir + 'lib/ExceptPrg.exe';
TestExeName := AppDir + 'lib' + DirectorySeparator + 'ExceptPrg.exe';
AssertFalse('exe doesn''t exist yet', FileExists(TestExeName));
try
TestCompileWith('-gw', TestExeName, FpcList[i], '-gw');