From d7f0f07c54e4f4d0abaa727b191bdee66028adf9 Mon Sep 17 00:00:00 2001
From: inoussa <inoussa@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 10 Sep 2008 01:20:30 +0000
Subject: [PATCH] Part 3 runtime WSDL generation :   * class inheritance is
 handled correctly   * record type handling   * tests several warnings get
 fixed

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@543 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 wst/trunk/tests/test_suite/test_rtti_filter.pas   | 2 --
 wst/trunk/tests/test_suite/test_soap_specific.pas | 2 --
 wst/trunk/tests/test_suite/test_std_cursors.pas   | 6 +++---
 wst/trunk/tests/test_suite/test_suite_utils.pas   | 9 +++++++++
 wst/trunk/tests/test_suite/test_utilities.pas     | 3 +--
 5 files changed, 13 insertions(+), 9 deletions(-)

diff --git a/wst/trunk/tests/test_suite/test_rtti_filter.pas b/wst/trunk/tests/test_suite/test_rtti_filter.pas
index 5f9294480..2d517784a 100644
--- a/wst/trunk/tests/test_suite/test_rtti_filter.pas
+++ b/wst/trunk/tests/test_suite/test_rtti_filter.pas
@@ -1183,8 +1183,6 @@ const VAL_1 : Integer = 1210; VAL_2 : Integer = 1076; VAL_3 : Integer = 176;
       VAL_S = 'inoussa';
 var
   x, y : TRttiFilterCreator;
-  xin : TRttiExpIntegerNodeItem;
-  xn : TRttiExpNode;
   sfltr : string;
 begin
   y := nil;
diff --git a/wst/trunk/tests/test_suite/test_soap_specific.pas b/wst/trunk/tests/test_suite/test_soap_specific.pas
index 9b27d2176..ab8dae422 100644
--- a/wst/trunk/tests/test_suite/test_soap_specific.pas
+++ b/wst/trunk/tests/test_suite/test_soap_specific.pas
@@ -116,8 +116,6 @@ uses
   object_serializer, server_service_soap, test_suite_utils;
 
 function GetFileFullName(const AFileName: string): string;
-var
-  locFileName : string;
 begin
 {$IFDEF FPC}
   Result := Format('.%sfiles%s%s',[PathDelim,PathDelim,AFileName]);
diff --git a/wst/trunk/tests/test_suite/test_std_cursors.pas b/wst/trunk/tests/test_suite/test_std_cursors.pas
index 9a8cffa93..f7cc4a351 100644
--- a/wst/trunk/tests/test_suite/test_std_cursors.pas
+++ b/wst/trunk/tests/test_suite/test_std_cursors.pas
@@ -72,7 +72,7 @@ const O_COUNT = 100;
 var
   x : IObjectCursor;
   ls : TObjectList;
-  c, i : Integer;
+  i : Integer;
 begin
   ls := TObjectList.Create(True);
   try
@@ -133,7 +133,7 @@ const O_COUNT = 100;
 var
   x : IObjectCursor;
   ls : TObjectList;
-  c, i : Integer;
+  i : Integer;
 begin
   ls := TObjectList.Create(True);
   try
@@ -175,7 +175,7 @@ const O_COUNT = 100;
 var
   x : IFilterableObjectCursor;
   ls : TObjectList;
-  c, i : Integer;
+  i : Integer;
   f : IObjectFilter;
   fcr : TRttiFilterCreator;
 begin
diff --git a/wst/trunk/tests/test_suite/test_suite_utils.pas b/wst/trunk/tests/test_suite/test_suite_utils.pas
index aa551da87..dc407eed4 100644
--- a/wst/trunk/tests/test_suite/test_suite_utils.pas
+++ b/wst/trunk/tests/test_suite/test_suite_utils.pas
@@ -22,10 +22,19 @@ uses
 {$ENDIF}
   ,wst_types;
 
+const
+  TestFilesPath = {$IFDEF WST_DELPHI}'.' +{$ENDIF WST_DELPHI}'.' + PathDelim + 'files' + PathDelim;
+
   function CompareNodes(const A,B : TDOMNode) : Boolean;overload;
+  function wstExpandLocalFileName(const AFileName : string) : string;
 
 implementation
 
+function wstExpandLocalFileName(const AFileName : string) : string;
+begin
+  Result := AFileName;
+end;
+
 function CompareNodes(const A,B : TDOMNode) : Boolean;overload;
 var
   ca, cb : TDOMNode;
diff --git a/wst/trunk/tests/test_suite/test_utilities.pas b/wst/trunk/tests/test_suite/test_utilities.pas
index e78e05689..abeace286 100644
--- a/wst/trunk/tests/test_suite/test_utilities.pas
+++ b/wst/trunk/tests/test_suite/test_utilities.pas
@@ -40,7 +40,7 @@ type
     FPooled : Boolean;
   protected
     procedure SayHello();
-    function CanBePooled() : Boolean;
+    function CanBePooled() : Boolean;override;
     procedure DontPool();
   public
     constructor Create();override;
@@ -581,7 +581,6 @@ end;
 
 procedure TTest_TSimpleItemFactory.CreateProc();
 var
-  a : IItemFactory;
   b : TSimpleItemFactoryCrack;
   ok : Boolean;
 begin