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

* Correct name

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-06-05 14:55:05 +02:00 committed by Pierre Muller
parent 086da71533
commit 453206b05e
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-fpcunit/src/fpcunit.pp
View File

@ -229,7 +229,7 @@ type
function CreateResultAndRun: TTestResult; virtual;
procedure Run(AResult: TTestResult); override;
function AsString: string;
class function AsSuite : TTestSuite;
class function Suite : TTestSuite;
property TestSuiteName: string read GetTestSuiteName write SetTestSuiteName;
Property ExpectedExceptionFailMessage : String Read FExpectedExceptionFailMessage;
Property ExpectedException : TClass Read FExpectedException;
@ -1013,7 +1013,7 @@ begin
Result := TestName + '(' + ClassName + ')';
end;
class function TTestCase.AsSuite: TTestSuite;
class function TTestCase.Suite: TTestSuite;
begin
Result:=TTestSuite.Create(Self.ClassType);
end;

2
packages/fcl-fpcunit/src/tests/suitetest.pp
View File

@ -224,7 +224,7 @@ procedure TSuiteTest.testTestCaseAsSuite;
var
ts: TTestSuite;
begin
ts := TOneTestCase.AsSuite;
ts := TOneTestCase.Suite;
try
AssertEquals(1, ts.CountTestCases);
AssertEquals(1, ts.Tests.Count);