pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

suppress warnings and hints

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@874 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2009-06-27 22:45:40 +00:00
parent 98fe8435d1
commit 20eecc5ecc
3 changed files with 9 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
wst/trunk/tests/test_suite/test_rtti_filter.pas
View File

@ -1275,7 +1275,7 @@ begin
end; end;
procedure TRttiParser_Test.BeginEnd_Group(); procedure TRttiParser_Test.BeginEnd_Group();
const VAL_1 : Integer = 1210; VAL_2 : Integer = 1076; VAL_3 : Integer = 176; const VAL_1 : Integer = 1210; VAL_2 : Integer = 1076;
VAL_4 : Integer = -176; VAL_4 : Integer = -176;
VAL_S : AnsiString = 'inoussa'; VAL_S : AnsiString = 'inoussa';
var var

2
wst/trunk/tests/test_suite/test_support_client.pas
View File

@ -65,11 +65,9 @@ end;
procedure TTest_TBaseProxy.test_CreateWithInvalidParameters_AProtocolData(); procedure TTest_TBaseProxy.test_CreateWithInvalidParameters_AProtocolData();
var var
ok : Boolean; ok : Boolean;
sp : IServiceProtocol;
begin begin
ok := False; ok := False;
try try
sp := nil;
TBaseProxy.Create(s_target_service,'NILPROTOCOL:nil_prop=nilvalue','SAME_PROCESS:'); TBaseProxy.Create(s_target_service,'NILPROTOCOL:nil_prop=nilvalue','SAME_PROCESS:');
except except
ok := True; ok := True;

17
wst/trunk/tests/test_suite/test_utilities.pas
View File

@ -119,10 +119,10 @@ type
TTest_TwstModuleManager = class(TTestCase) TTest_TwstModuleManager = class(TTestCase)
published published
function Get(const AFileName : string):IwstModule; procedure Get(const AFileName : string);
procedure Clear(); procedure Clear();
function GetCount() : PtrInt; procedure GetCount();
function GetItem(const AIndex : PtrInt) : IwstModule; procedure GetItem(const AIndex : PtrInt);
end; end;
implementation implementation
@ -211,7 +211,7 @@ end;
{$IFDEF WST_SEMAPHORE_TIMEOUT} {$IFDEF WST_SEMAPHORE_TIMEOUT}
procedure TTest_TIntfPool.Release_NON(); procedure TTest_TIntfPool.Release_NON();
const MIN_A = Integer(1); MAX_A = Integer(5); MIN_B = Integer(0); const MIN_A = Integer(1); MAX_A = Integer(5);
var var
obj : TIntfPool; obj : TIntfPool;
elt : ITest; elt : ITest;
@ -302,7 +302,6 @@ end;
{ TTest_TSimpleItemFactoryEx } { TTest_TSimpleItemFactoryEx }
procedure TTest_TSimpleItemFactoryEx.NOT_Pooled(); procedure TTest_TSimpleItemFactoryEx.NOT_Pooled();
const MIN_A = Integer(1); MAX_A = Integer(5); MIN_B = Integer(0);
var var
obj : IItemFactoryEx; obj : IItemFactoryEx;
elt : ITest; elt : ITest;
@ -366,7 +365,7 @@ end;
{$IFDEF WST_SEMAPHORE_TIMEOUT} {$IFDEF WST_SEMAPHORE_TIMEOUT}
procedure TTest_TSimpleItemFactoryEx.POOLED_Release_NON(); procedure TTest_TSimpleItemFactoryEx.POOLED_Release_NON();
const MIN_A = Integer(1); MAX_A = Integer(5); MIN_B = Integer(0); const MIN_A = Integer(1); MAX_A = Integer(5);
var var
obj : IItemFactoryEx; obj : IItemFactoryEx;
elt : ITest; elt : ITest;
@ -619,7 +618,7 @@ end;
{ TTest_TwstModuleManager } { TTest_TwstModuleManager }
function TTest_TwstModuleManager.Get(const AFileName: string): IwstModule; procedure TTest_TwstModuleManager.Get(const AFileName: string);
const C = 10; const C = 10;
var var
locObj : IwstModuleManager; locObj : IwstModuleManager;
@ -672,7 +671,7 @@ begin
CheckEquals(0,locObj.GetCount()); CheckEquals(0,locObj.GetCount());
end; end;
function TTest_TwstModuleManager.GetCount(): PtrInt; procedure TTest_TwstModuleManager.GetCount();
const C = 10; const C = 10;
var var
locObj : IwstModuleManager; locObj : IwstModuleManager;
@ -689,7 +688,7 @@ begin
CheckEquals(C,locObj.GetCount()); CheckEquals(C,locObj.GetCount());
end; end;
function TTest_TwstModuleManager.GetItem(const AIndex: PtrInt): IwstModule; procedure TTest_TwstModuleManager.GetItem(const AIndex: PtrInt);
const C = 10; const C = 10;
var var
locObj : IwstModuleManager; locObj : IwstModuleManager;