paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-06 23:46:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit test: fix compilation in AssertEquals() parameters. Use PtrInt instead of PtrUInt.

Browse Source 
git-svn-id: trunk@52587 -
This commit is contained in:
juha 2016-06-30 09:46:20 +00:00
parent 5ed0714686
commit 20639a9df7
3 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/synedit/synedittextbuffer.pp
View File

@ -1092,7 +1092,7 @@ begin
// UTF8 handing of chars // UTF8 handing of chars
Result := ALogicalPos; Result := ALogicalPos;
l := length(ALine); l := length(ALine);
if ACount > 0 then begin; if ACount > 0 then begin
while (Result < l) and (ACount > 0) do begin while (Result < l) and (ACount > 0) do begin
inc(Result); inc(Result);
if (ALine[Result] in [#0..#127, #192..#255]) and if (ALine[Result] in [#0..#127, #192..#255]) and

5
components/synedit/test/testbase.pas
View File

@ -6,8 +6,9 @@ unit TestBase;
interface interface
uses uses
Classes, SysUtils, Forms, fpcunit, SynEdit, LCLType, LCLProc, math, Classes, SysUtils, math, fpcunit,
SynEditTypes, SynEditPointClasses, SynEditKeyCmds, LazSynTextArea, SynEditMarkup, Clipbrd; Forms, LCLType, LCLProc, Clipbrd, LazUTF8,
SynEdit, SynEditTypes, SynEditPointClasses, SynEditKeyCmds, LazSynTextArea, SynEditMarkup;
type type

5
components/synedit/test/testhighlightpas.pas
View File

@ -174,8 +174,9 @@ begin
AssertEquals(Format('%s (%d/%d) FoldLvlEnd', [AName, ALine, AColumn]), FoldLvlEnd, nd.FoldLvlEnd); AssertEquals(Format('%s (%d/%d) FoldLvlEnd', [AName, ALine, AColumn]), FoldLvlEnd, nd.FoldLvlEnd);
AssertEquals(Format('%s (%d/%d) NestLvlStart', [AName, ALine, AColumn]), NestLvlStart, nd.NestLvlStart); AssertEquals(Format('%s (%d/%d) NestLvlStart', [AName, ALine, AColumn]), NestLvlStart, nd.NestLvlStart);
AssertEquals(Format('%s (%d/%d) NestLvlEnd', [AName, ALine, AColumn]), NestLvlEnd, nd.NestLvlEnd); AssertEquals(Format('%s (%d/%d) NestLvlEnd', [AName, ALine, AColumn]), NestLvlEnd, nd.NestLvlEnd);
AssertEquals(Format('%s (%d/%d) FoldType', [AName, ALine, AColumn]), PtrUInt(FoldType), PtrUInt(nd.FoldType)); AssertEquals(Format('%s (%d/%d) FoldType', [AName, ALine, AColumn]), PtrInt(FoldType), PtrInt(nd.FoldType));
AssertEquals(Format('%s (%d/%d) FoldTypeCompatible', [AName, ALine, AColumn]), PtrUInt(FoldTypeCompatible), PtrUInt(nd.FoldTypeCompatible)); AssertEquals(Format('%s (%d/%d) FoldTypeCompatible', [AName, ALine, AColumn]),
PtrInt(FoldTypeCompatible), PtrInt(nd.FoldTypeCompatible));
AssertEquals(Format('%s (%d/%d) FoldGroup:', [AName, ALine, AColumn]), FoldGroup, nd.FoldGroup); AssertEquals(Format('%s (%d/%d) FoldGroup:', [AName, ALine, AColumn]), FoldGroup, nd.FoldGroup);
end; end;
AssertEquals(Format('%s (%d/%d) FoldAction', [AName, ALine, AColumn]), AssertEquals(Format('%s (%d/%d) FoldAction', [AName, ALine, AColumn]),