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

DBG: Testcases

Browse Source 
git-svn-id: trunk@31908 -
This commit is contained in:
martin 2011-08-07 13:01:30 +00:00
parent 58bf82aaf0
commit c2f34d7dc4
5 changed files with 13 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
debugger/test/Gdbmi/testbase.pas
View File

@ -418,7 +418,7 @@ begin
FDisassembler.Master := nil;
FExceptions.Master := nil;
FSignals.Master := nil;
FRegisters.Master := nil;
// FRegisters.Master := nil;
FreeAndNil(FWatches);
FreeAndNil(FThreads);
@ -955,7 +955,7 @@ initialization
EnvironmentOptions := TEnvironmentOptions.Create;
with EnvironmentOptions do
begin
SetLazarusDefaultFilename;
CreateConfig;
Load(false);
end;

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

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

1
debugger/test/Gdbmi/testdisass.pas
View File

@ -361,6 +361,7 @@ var
end;
procedure CleanGdb;
begin
FreeAndNil(Gdb);
FWatches.Supplier := nil;
FThreads.Supplier := nil;
//FLocals.Master := nil;

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

@ -73,8 +73,8 @@ begin
TestEquals(TstName+' Got msg', 'abc', FGotExceptMsg, 050300);
dbg.Stop;
finally
CleanGdb;
dbg.Free;
CleanGdb;
end;
TestCompile(AppDir + 'ExceptPrg.pas', TestExeName, 'no_etype',
@ -92,8 +92,8 @@ begin
TestEquals(TstName+' Got no more exception', 1, FGotExceptCount);
dbg.Stop;
finally
CleanGdb;
dbg.Free;
CleanGdb;
end;
TestCompile(AppDir + 'ExceptPrg.pas', TestExeName, 'no_etype_ptr',
@ -111,8 +111,8 @@ begin
TestEquals(TstName+' Got no more exception', 1, FGotExceptCount);
dbg.Stop;
finally
CleanGdb;
dbg.Free;
CleanGdb;
end;
TestCompile(AppDir + 'ExceptPrg.pas', TestExeName, 'no_etype_str',
@ -130,8 +130,8 @@ begin
TestEquals(TstName+' Got no more exception', 1, FGotExceptCount);
dbg.Stop;
finally
CleanGdb;
dbg.Free;
CleanGdb;
end;
TestCompile(AppDir + 'ExceptPrg.pas', TestExeName, 'no_etype_ptr_str',
@ -149,8 +149,8 @@ begin
TestEquals(TstName+' Got no more exception', 1, FGotExceptCount);
dbg.Stop;
finally
CleanGdb;
dbg.Free;
CleanGdb;
end;
TestCompile(AppDir + 'ExceptPrg.pas', TestExeName, 'no_etype_ptr_str_var',
@ -168,8 +168,8 @@ begin
TestEquals(TstName+' Got no more exception', 1, FGotExceptCount);
dbg.Stop;
finally
CleanGdb;
dbg.Free;
CleanGdb;
end;
@ -192,8 +192,8 @@ begin
TestEquals(TstName+' Got msg', 'abc', FGotExceptMsg, 050300);
dbg.Stop;
finally
CleanGdb;
dbg.Free;
CleanGdb;
end;

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

@ -502,9 +502,9 @@ procedure TTestWatches.TestWatches;
flag := AWatch <> nil;
if flag then begin;
WV := AWatch.Values[1, 0];// trigger read
s := WV.Value;
flag := flag and TestTrue (Name+ ' (HasValue)', WV.Validity = ddsValid);
//flag := flag and TestFalse (Name+ ' (One Value)', AWatch.HasMultiValue);
s := WV.Value;
end
else
s := WatchValue;
@ -644,8 +644,8 @@ begin
dbg.Stop;
finally
CleanGdb;
dbg.Free;
CleanGdb;
if (DbgMemo <> nil) and (TestErrors <> '') then DbgMemo.Lines.Add(TestErrors);
//debugln(FailText)