* reduced hints

git-svn-id: branches/cleanroom@10376 -

rtl/tests/tccollection.pp

@@ -5,7 +5,7 @@ unit tccollection;
 interface
 
 uses
-  Classes, SysUtils, fpcunit, testutils, testregistry; 
+  Classes, SysUtils, fpcunit, testregistry;
 
 type
 
@@ -413,9 +413,6 @@ end;
 
 procedure TTestTCollection.TestNotifyDelete;
 
-Var
-  I : TMyItem;
-
 begin
   AddItems(3);
   FColl.ResetNotify;

rtl/tests/tccomponent.pp

@@ -5,7 +5,7 @@ unit tccomponent;
 interface
 
 uses
-  Classes, SysUtils, fpcunit, testutils, testregistry; 
+  Classes, SysUtils, fpcunit, testregistry;
 
 type
 
@@ -401,7 +401,6 @@ end;
 procedure TTestTComponentNotifies.TestInsertNotification;
 
 Var
-  C : TComponent;
   E : TNotification;
 
 begin

rtl/tests/tcfindnested.pp

@@ -5,7 +5,7 @@ unit tcfindnested;
 interface
 
 uses
-  Classes, SysUtils, fpcunit, testutils, testregistry; 
+  Classes, SysUtils, fpcunit, testregistry;
 
 type
 

rtl/tests/tclinkedlist.pp

@@ -5,7 +5,7 @@ unit tclinkedlist;
 interface
 
 uses
-  Classes, SysUtils, fpcunit, testutils, testregistry, fplists;
+  Classes, SysUtils, fpcunit, testregistry, fplists;
 
 type
 

rtl/tests/tcpersistent.pp

@@ -5,7 +5,7 @@ unit tcpersistent;
 interface
 
 uses
-  Classes, SysUtils, fpcunit, testutils, testregistry; 
+  Classes, SysUtils, fpcunit, testregistry;
 
 type
 
@@ -30,7 +30,7 @@ type
   protected
     function GetOwner: TPersistent; override;
   public
-    procedure Assign(Source: TPersistent); virtual;
+    procedure Assign(Source: TPersistent); override;
   published
     Property MyProp : Integer Read FMyProp Write FMyProp;
   end;

rtl/tests/testclasses.lpr

@@ -4,8 +4,9 @@ program testclasses;
 
 uses
   Classes, tcfindnested, tcstringlist, tccollection, tclist,
-  tcpersistent, tclinkedlist, tccomponent, tcstreaming, tccompstreaming,consoletestrunner,
-  tcresref;
+  tcpersistent, tclinkedlist, tccomponent, tcstreaming, tccompstreaming,
+  tcresref,
+  consoletestrunner;
 
 type