paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 09:19:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

DBG: Tests (fix freeing dbg)

Browse Source 
git-svn-id: trunk@32710 -
This commit is contained in:
martin 2011-10-06 00:02:16 +00:00
parent 95501e8f43
commit 40625a1fd1
3 changed files with 18 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
debugger/test/Gdbmi/testbreakpoint.pas
View File

@ -118,8 +118,9 @@ begin
//TestTrue('gone next line 4', i <> FCurLine);
finally
dbg.Free;
dbg.Done;
CleanGdb;
dbg.Free;
end;
AssertTestErrors;

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

@ -79,8 +79,9 @@ begin
TestEquals(TstName+' Got msg', 'abc', FGotExceptMsg, 050300);
dbg.Stop;
finally
dbg.Free;
dbg.Done;
CleanGdb;
dbg.Free;
end;
TestCompile(AppDir + 'ExceptPrg.pas', TestExeName, 'no_etype',
@ -98,8 +99,9 @@ begin
TestEquals(TstName+' Got no more exception', 1, FGotExceptCount);
dbg.Stop;
finally
dbg.Free;
dbg.Done;
CleanGdb;
dbg.Free;
end;
TestCompile(AppDir + 'ExceptPrg.pas', TestExeName, 'no_etype_ptr',
@ -117,8 +119,9 @@ begin
TestEquals(TstName+' Got no more exception', 1, FGotExceptCount);
dbg.Stop;
finally
dbg.Free;
dbg.Done;
CleanGdb;
dbg.Free;
end;
TestCompile(AppDir + 'ExceptPrg.pas', TestExeName, 'no_etype_str',
@ -136,8 +139,9 @@ begin
TestEquals(TstName+' Got no more exception', 1, FGotExceptCount);
dbg.Stop;
finally
dbg.Free;
dbg.Done;
CleanGdb;
dbg.Free;
end;
TestCompile(AppDir + 'ExceptPrg.pas', TestExeName, 'no_etype_ptr_str',
@ -155,8 +159,9 @@ begin
TestEquals(TstName+' Got no more exception', 1, FGotExceptCount);
dbg.Stop;
finally
dbg.Free;
dbg.Done;
CleanGdb;
dbg.Free;
end;
TestCompile(AppDir + 'ExceptPrg.pas', TestExeName, 'no_etype_ptr_str_var',
@ -174,8 +179,9 @@ begin
TestEquals(TstName+' Got no more exception', 1, FGotExceptCount);
dbg.Stop;
finally
dbg.Free;
dbg.Done;
CleanGdb;
dbg.Free;
end;
@ -198,8 +204,9 @@ begin
TestEquals(TstName+' Got msg', 'abc', FGotExceptMsg, 050300);
dbg.Stop;
finally
dbg.Free;
dbg.Done;
CleanGdb;
dbg.Free;
end;

3
debugger/test/Gdbmi/testwatches.pas
View File

@ -1046,8 +1046,9 @@ begin
exit;
end;
end;
dbg.Free;
dbg.Done;
CleanGdb;
dbg.Free;
end;
procedure TTestWatches.TestWatches;