paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-30 21:00:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* patch from Graeme Geldenhuys so it compiles again

Browse Source 
git-svn-id: trunk@11368 -
This commit is contained in:
michael 2008-07-12 12:25:24 +00:00
parent 5d87a1c6e7
commit 0eb08af40e
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
packages/fcl-fpcunit/src/exampletests/fpcunittests.pp
View File

@ -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);