From 20eecc5ecca4681dd313f60a56d2847413ea5295 Mon Sep 17 00:00:00 2001
From: inoussa <inoussa@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sat, 27 Jun 2009 22:45:40 +0000
Subject: [PATCH] suppress warnings and hints

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@874 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 wst/trunk/tests/test_suite/test_rtti_filter.pas |  2 +-
 .../tests/test_suite/test_support_client.pas    |  2 --
 wst/trunk/tests/test_suite/test_utilities.pas   | 17 ++++++++---------
 3 files changed, 9 insertions(+), 12 deletions(-)

diff --git a/wst/trunk/tests/test_suite/test_rtti_filter.pas b/wst/trunk/tests/test_suite/test_rtti_filter.pas
index 908470664..3300cb0ab 100644
--- a/wst/trunk/tests/test_suite/test_rtti_filter.pas
+++ b/wst/trunk/tests/test_suite/test_rtti_filter.pas
@@ -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
diff --git a/wst/trunk/tests/test_suite/test_support_client.pas b/wst/trunk/tests/test_suite/test_support_client.pas
index fffa0334d..3b11aaa16 100644
--- a/wst/trunk/tests/test_suite/test_support_client.pas
+++ b/wst/trunk/tests/test_suite/test_support_client.pas
@@ -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;
diff --git a/wst/trunk/tests/test_suite/test_utilities.pas b/wst/trunk/tests/test_suite/test_utilities.pas
index 41a7a2d94..f53301d25 100644
--- a/wst/trunk/tests/test_suite/test_utilities.pas
+++ b/wst/trunk/tests/test_suite/test_utilities.pas
@@ -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;