Hi,
The attached patch fixes the FPCUnit's unit tests so they can compile
again. Minor changes.
Regards,
- Graeme -
_______________________________________________
fpGUI - a cross-platform Free Pascal GUI toolkit
http://opensoft.homeip.net/fpgui/
Index: packages/fcl-fpcunit/src/exampletests/fpcunittests.pp
===================================================================
--- packages/fcl-fpcunit/src/exampletests/fpcunittests.pp (revision 11367)
+++ packages/fcl-fpcunit/src/exampletests/fpcunittests.pp (working copy)
@@ -798,11 +798,11 @@
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 @@
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);
_______________________________________________
fpc-devel maillist - fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel
