diff options
author | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2019-06-20 17:21:34 +0000 |
---|---|---|
committer | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2019-06-20 17:21:34 +0000 |
commit | dd321341472d48dec57e23cbae7fc77450a58e61 (patch) | |
tree | fbfe34d0e973329c8dcf3d2985a92852831e9edf /packages/fcl-fpcunit | |
parent | bdec57935fdb7f20eb519f9d99d12d2d07e9cb15 (diff) | |
parent | 754a9168ff60fc59322032d21d4ca127ec4b27cd (diff) | |
download | fpc-dd321341472d48dec57e23cbae7fc77450a58e61.tar.gz |
* synchronised with trunk till r42256
git-svn-id: https://svn.freepascal.org/svn/fpc/branches/debug_eh@42257 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/fcl-fpcunit')
-rw-r--r-- | packages/fcl-fpcunit/src/fpcunit.pp | 27 |
1 files changed, 11 insertions, 16 deletions
diff --git a/packages/fcl-fpcunit/src/fpcunit.pp b/packages/fcl-fpcunit/src/fpcunit.pp index 7392a9f2a7..404396756c 100644 --- a/packages/fcl-fpcunit/src/fpcunit.pp +++ b/packages/fcl-fpcunit/src/fpcunit.pp @@ -100,10 +100,8 @@ type class procedure AssertFalse(ACondition: boolean); overload; class procedure AssertEquals(const AMessage: string; Expected, Actual: string); overload; class procedure AssertEquals(Expected, Actual: string); overload; - {$IFDEF UNICODE} class procedure AssertEquals(const AMessage: string; Expected, Actual: UnicodeString); overload; class procedure AssertEquals(Expected, Actual: UnicodeString); overload; - {$ENDIF} class procedure AssertEquals(const AMessage: string; Expected, Actual: integer); overload; class procedure AssertEquals(Expected, Actual: integer); overload; class procedure AssertEquals(const AMessage: string; Expected, Actual: int64); overload; @@ -334,9 +332,7 @@ type end; function ComparisonMsg(const aExpected: string; const aActual: string; const aCheckEqual: boolean=true): string; overload; - {$IFDEF UNICODE} - function ComparisonMsg(const aExpected: UnicodeString; const aActual: UnicodeString; const aCheckEqual: boolean=true): string; overload; - {$ENDIF} + function ComparisonMsg(const aExpected: UnicodeString; const aActual: UnicodeString; const aCheckEqual: boolean=true): Unicodestring; overload; function ComparisonMsg(const aMsg: string; const aExpected: string; const aActual: string; const aCheckEqual: boolean=true): string; overload; // Made public for 3rd party developers extending TTestCase with new AssertXXX methods @@ -438,16 +434,15 @@ begin Result := format(SCompareNotEqual, [aExpected, aActual]); end; -{$IFDEF UNICODE} -function ComparisonMsg(const aExpected: UnicodeString; const aActual: UnicodeString; const aCheckEqual: boolean=true): string; +function ComparisonMsg(const aExpected: Unicodestring; const aActual: Unicodestring; const aCheckEqual: boolean=true): Unicodestring; // aCheckEqual=false gives the error message if the test does *not* expect the results to be the same. begin if aCheckEqual then - Result := format(UnicodeString(SCompare), [aExpected, aActual]) + Result := unicodeformat(SCompare, [aExpected, aActual]) else {check unequal requires opposite error message} - Result := format(UnicodeString(SCompareNotEqual), [aExpected, aActual]); + Result := unicodeformat(SCompareNotEqual, [aExpected, aActual]); end; -{$ENDIF} + function ComparisonMsg(const aMsg: string; const aExpected: string; const aActual: string; const aCheckEqual: boolean): string; begin @@ -698,18 +693,18 @@ begin AssertTrue(ComparisonMsg(Expected, Actual), Expected=Actual,CallerAddr); end; -{$IFDEF UNICODE} -class procedure TAssert.AssertEquals(const AMessage: string; Expected, Actual: UnicodeString); +class procedure TAssert.AssertEquals(const AMessage: string; Expected, Actual: Unicodestring); begin - AssertTrue(ComparisonMsg(AMessage,Expected, Actual), (Expected=Actual),CallerAddr); + AssertTrue(ComparisonMsg(AMessage ,Expected, Actual), Expected=Actual,CallerAddr); end; -class procedure TAssert.AssertEquals(Expected, Actual: UnicodeString); +class procedure TAssert.AssertEquals(Expected, Actual: Unicodestring); begin - AssertTrue(ComparisonMsg(Expected, Actual), (Expected=Actual),CallerAddr); + AssertTrue(ComparisonMsg(Expected, Actual), Expected=Actual,CallerAddr); end; -{$ENDIF} + + class procedure TAssert.AssertNotNull(const AString: string); begin |