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

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@873 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 wst/trunk/tests/test_suite/test_generators.pas |  2 --
 wst/trunk/tests/test_suite/test_parsers.pas    | 16 ----------------
 2 files changed, 18 deletions(-)

diff --git a/wst/trunk/tests/test_suite/test_generators.pas b/wst/trunk/tests/test_suite/test_generators.pas
index 0a47386bf..18ba7d861 100644
--- a/wst/trunk/tests/test_suite/test_generators.pas
+++ b/wst/trunk/tests/test_suite/test_generators.pas
@@ -864,7 +864,6 @@ var
   aliasType : TPasAliasType;
   g : IGenerator;
   locDoc, locExistDoc : TXMLDocument;
-  arrayTyp : TPasArrayType;
 begin
   locDoc := nil;
   locExistDoc := nil;
@@ -901,7 +900,6 @@ var
   aliasType : TPasArrayType;
   g : IGenerator;
   locDoc, locExistDoc : TXMLDocument;
-  arrayTyp : TPasArrayType;
 begin
   locDoc := nil;
   locExistDoc := nil;
diff --git a/wst/trunk/tests/test_suite/test_parsers.pas b/wst/trunk/tests/test_suite/test_parsers.pas
index a944653da..cdb8f0193 100644
--- a/wst/trunk/tests/test_suite/test_parsers.pas
+++ b/wst/trunk/tests/test_suite/test_parsers.pas
@@ -1204,22 +1204,6 @@ end;
 procedure TTest_CustomXsdParser.ComplexType_ArraySequence_ItemName_Schema();
 var
   tr : TwstPasTreeContainer;
-  clsType : TPasClassType;
-
-  procedure CheckProperty(const AName,ATypeName : string; const AFieldType : TPropertyType);
-  var
-    prp : TPasProperty;
-  begin
-    prp := FindMember(clsType,AName) as TPasProperty;
-      CheckNotNull(prp);
-      CheckEquals(AName,prp.Name);
-      CheckEquals(AName,tr.GetExternalName(prp));
-      CheckNotNull(prp.VarType);
-      CheckEquals(ATypeName,tr.GetExternalName(prp.VarType));
-      CheckEquals(PropertyType_Att[AFieldType],tr.IsAttributeProperty(prp));
-  end;
-
-var
   mdl : TPasModule;
   ls : TList;
   elt : TPasElement;