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;
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_S : AnsiString = 'inoussa';
var

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

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

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

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