Skip to content
Permalink
Browse files

fixed Delphi 2007 compilation

  • Loading branch information...
Arnaud Bouchez
Arnaud Bouchez committed Oct 26, 2019
1 parent 6dcb5cf commit b219b316c0fe3f78a940a8aefd56890a10a86759
Showing with 6 additions and 5 deletions.
  1. +5 −4 SynTests.pas
  2. +1 −1 SynopseCommit.inc
@@ -481,6 +481,11 @@ TSynTestsLogged = class(TSynTests)
end;


const
EQUAL_MSG = '%<>% %';
NOTEQUAL_MSG = '%=% %';


implementation

{$ifdef FPC}
@@ -615,10 +620,6 @@ function TSynTestCase.CheckNot(condition: Boolean; const msg: string): Boolean;
result := CheckFailed(not condition, msg);
end;

const
EQUAL_MSG = '%<>% %';
NOTEQUAL_MSG = '%=% %';

function TSynTestCase.CheckEqual(a,b: Int64; const msg: RawUTF8): Boolean;
begin
result := a=b;
@@ -1 +1 @@
'1.18.5429'
'1.18.5430'

0 comments on commit b219b31

Please sign in to comment.
You can’t perform that action at this time.