* patch from Graeme Geldenhuys so it compiles again

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@11368 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 6 insertions, 6 deletions

diff --git a/packages/fcl-fpcunit/src/exampletests/fpcunittests.pp b/packages/fcl-fpcunit/src/exampletests/fpcunittests.pp
index db0376a257..b60b521c2a 100644
--- a/packages/fcl-fpcunit/src/exampletests/fpcunittests.pp
+++ b/packages/fcl-fpcunit/src/exampletests/fpcunittests.pp
@@ -798,11 +798,11 @@ end;
 
 procedure TTestDecoratorTest.TestRun;
 var
-  suite: TTestSuite;
+  lsuite: TTestSuite;
   decorator: TTestDecorator;
 begin
-  suite := TTestSuite.Create(TEncapsulatedTestCase);
-  decorator := TTestDecorator.Create(suite);
+  lsuite := TTestSuite.Create(TEncapsulatedTestCase);
+  decorator := TTestDecorator.Create(lsuite);
   decorator.Run(res);
   AssertEquals('wrong number of executed tests', 2, res.RunTests);
   AssertEquals('wrong number of failures', 1, res.Failures.Count);
@@ -811,12 +811,12 @@ end;
 
 procedure TTestDecoratorTest.TestOneTimeSetup;
 var
-  suite: TTestSuite;
+  lsuite: TTestSuite;
   setupDecorator: TTestSetup;
 begin
   CountSetup := 0;
-  suite := TTestSuite.Create(TEncapsulatedTestCase);
-  setupDecorator := TMyTestSetup.Create(suite);
+  lsuite := TTestSuite.Create(TEncapsulatedTestCase);
+  setupDecorator := TMyTestSetup.Create(lsuite);
   setupDecorator.Run(res);
   AssertEquals('wrong number of executed tests', 2, res.RunTests);
   AssertEquals('wrong number of failures', 1, res.Failures.Count);