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

SynEdit: test for fix assert/range-check in multi caret. Issue #0030731

Browse Source 
git-svn-id: trunk@60034 -
This commit is contained in:
martin 2019-01-08 12:19:32 +00:00
parent dc9a5e764e
commit 9b52f8ccf1
4 changed files with 265 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -4901,6 +4901,7 @@ components/synedit/test/testpaintcolormerging.pas svneol=native#text/pascal
components/synedit/test/testsearch.pas svneol=native#text/pascal
components/synedit/test/testsynbeautifier.pas svneol=native#text/pascal
components/synedit/test/testsyncroedit.pas svneol=native#text/pascal
components/synedit/test/testsynmulticaret.pas svneol=native#text/pascal
components/synedit/test/testsynselection.pas svneol=native#text/pascal
components/synedit/test/testsynsharededits.pas svneol=native#text/pascal
components/synedit/test/testsyntextarea.pas svneol=native#text/pascal

10
components/synedit/test/SynTest.lpi
View File

@ -17,9 +17,6 @@
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
@ -51,7 +48,7 @@
<PackageName Value="FCL"/>
</Item5>
</RequiredPackages>
<Units Count="22">
<Units Count="23">
<Unit0>
<Filename Value="SynTest.lpr"/>
<IsPartOfProject Value="True"/>
@ -161,6 +158,11 @@
<IsPartOfProject Value="True"/>
<UnitName Value="TestMarkupFoldColoring"/>
</Unit21>
<Unit22>
<Filename Value="testsynmulticaret.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="TestSynMultiCaret"/>
</Unit22>
</Units>
</ProjectOptions>
<CompilerOptions>

2
components/synedit/test/SynTest.lpr
View File

@ -4,7 +4,7 @@ program SynTest;
uses
Interfaces, Forms, GuiTestRunner, TestBase, TestBasicSynEdit, TestNavigation,
TestSynSelection, TestBlockIndent, TestBookMarks, TestSearch,
TestSynSelection, TestSynMultiCaret, TestBlockIndent, TestBookMarks, TestSearch,
TestSynBeautifier, TestTrimSpace, TestSyncroEdit, TestSynTextArea,
TestHighlightPas, TestHighlightXml, TestHighlightMulti, TestMarkupwordGroup,
TestMarkupHighAll, TestFoldedView, TestSynSharedEdits, TestHighlighterLfm,

257
components/synedit/test/testsynmulticaret.pas Normal file
View File

@ -0,0 +1,257 @@
unit TestSynMultiCaret;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, fpcunit, testutils, testregistry, SynPluginMultiCaret,
SynEditTypes, LazLoggerBase;
type
{ TTestSynMultCaret }
TTestSynMultCaret = class(TTestCase)
published
procedure TestAdjustAfterChange;
end;
implementation
procedure TTestSynMultCaret.TestAdjustAfterChange;
procedure CreateList(var AList: TSynPluginMultiCaretList; ACount: Integer; AMergeLock: Boolean);
var
i: Integer;
begin
FreeAndNil(AList);
AList := TSynPluginMultiCaretList.Create;
if AMergeLock then
AList.IncMergeLock;
for i := 1 to ACount do
AList.AddCaret(i * 10, 1, 0);
end;
procedure AssertSorted(AName: String; AList: TSynPluginMultiCaretList; ACount: Integer; ADupValue: Integer = -1);
var
i: Integer;
begin
//for i := 0 to AList.Count-1 do DbgOut([AList.CaretFull[i].x, ' ']); debugln('');
AssertEquals(AName + ' Count ', ACount, AList.Count);
for i := 1 to ACount-1 do
AssertTrue(AName + ' Ordered '+IntToStr(i),
(AList.CaretFull[i].x > AList.CaretFull[i-1].x) or
( (ADupValue <> -1) and
(AList.CaretFull[i].x = AList.CaretFull[i-1].x) and (AList.CaretFull[i].x = ADupValue) )
);
end;
var
TestList: TSynPluginMultiCaretList;
p: TLogCaretPoint;
Len, MoveIdx, MoveTo, i, L2: Integer;
s: String;
begin
for Len := 1 to 10 do
for MoveIdx := 0 to Len - 1 do
for MoveTo := 0 to Len + 1 do
try
TestList := nil;
s := Format('L: %d, From: %d, To: %d ', [Len, MoveIdx, MoveTo]);
//DebugLn('TestAdjustAfterChange '+s);
L2 := Len;
If not( (MoveTo = MoveIdx+1) or (MoveTo = 0) or (MoveTo = Len + 1) ) then
dec(L2);
// Modify, no dups
CreateList(TestList, Len, True);
p := TestList.CaretFull[MoveIdx];
p.X := MoveTo * 10 + 1;
TestList.CaretFull[MoveIdx] := p;
AssertSorted('Modify, no dup '+s, TestList, Len);
// Modify, with dups
CreateList(TestList, Len, True);
p := TestList.CaretFull[MoveIdx];
p.X := MoveTo * 10;
TestList.CaretFull[MoveIdx] := p;
AssertSorted('Modify, with dup '+s, TestList, Len, MoveTo * 10);
// Modify, with dups remove
CreateList(TestList, Len, False);
p := TestList.CaretFull[MoveIdx];
p.X := MoveTo * 10;
TestList.CaretFull[MoveIdx] := p;
AssertSorted('Modify, with dup '+s, TestList, L2);
// Iterator Up, no dups
CreateList(TestList, Len, True);
TestList.StartIteratorAtFirst;
for i := 1 to Len do begin
AssertTrue('Iterator Up Continues '+s, TestList.IterateNextUp);
p := TestList.CurrentCaretFull;
AssertEquals('Iterator Ordered '+s+IntToStr(i), i * 10, TestList.CurrentCaretFull.x);
if i-1 = MoveIdx then begin
p.X := MoveTo * 10 + 1;
TestList.CurrentCaretFull := p;
end;
end;
AssertTrue('Iterator Up Finished '+s, not TestList.IterateNextUp);
AssertSorted('Iterate up, no dup '+s, TestList, Len);
TestList.StartIteratorAtFirst; // Iterate again / must get all entries
for i := 1 to Len do
AssertTrue('Iterator 2 Up Continues '+s, TestList.IterateNextUp);
AssertTrue('Iterator 2 Up Finished '+s, not TestList.IterateNextUp);
// Iterator Up, with dups
CreateList(TestList, Len, True);
TestList.StartIteratorAtFirst;
for i := 1 to Len do begin
AssertTrue('Iterator Up (dups) Continues '+s, TestList.IterateNextUp);
p := TestList.CurrentCaretFull;
AssertEquals('Iterator Ordered '+s+IntToStr(i), i * 10, TestList.CurrentCaretFull.x);
if i-1 = MoveIdx then begin
p.X := MoveTo * 10;
TestList.CurrentCaretFull := p;
end;
end;
AssertTrue('Iterator Up (dups) Finished '+s, not TestList.IterateNextUp);
AssertSorted('Iterate up (dups) '+s, TestList, Len, MoveTo * 10);
TestList.StartIteratorAtFirst; // Iterate again / must get all entries
for i := 1 to Len do
AssertTrue('Iterator 2 Up (dups) Continues '+s, TestList.IterateNextUp);
AssertTrue('Iterator 2 Up (dups) Finished '+s, not TestList.IterateNextUp);
(* Not implemented
// Iterator Up, with dups remove
CreateList(TestList, Len, False);
TestList.StartIteratorAtFirst;
for i := 1 to Len do begin
AssertTrue('Iterator Up (dups) Continues '+s, TestList.IterateNextUp);
p := TestList.CurrentCaretFull;
AssertEquals('Iterator Ordered '+s+IntToStr(i), i * 10, TestList.CurrentCaretFull.x);
if i-1 = MoveIdx then begin
p.X := MoveTo * 10;
TestList.CurrentCaretFull := p;
end;
end;
AssertTrue('Iterator Up (dups) Finished '+s, not TestList.IterateNextUp);
AssertSorted('Iterate up (dups) '+s, TestList, L2);
TestList.StartIteratorAtFirst; // Iterate again / must get all entries
for i := 1 to L2 do
AssertTrue('Iterator 2 Up (dups) Continues '+s, TestList.IterateNextUp);
AssertTrue('Iterator 2 Up (dups) Finished '+s, not TestList.IterateNextUp);
*)
// Iterator Down, no dups
CreateList(TestList, Len, True);
TestList.StartIteratorAtLast;
for i := Len downto 1 do begin
AssertTrue('Iterator Down Continues '+s, TestList.IterateNextDown);
p := TestList.CurrentCaretFull;
AssertEquals('Iterator Ordered '+s+IntToStr(i), i * 10, TestList.CurrentCaretFull.x);
if i-1 = MoveIdx then begin
p.X := MoveTo * 10 + 1;
TestList.CurrentCaretFull := p;
end;
end;
AssertTrue('Iterator Down Finished '+s, not TestList.IterateNextDown);
AssertSorted('Iterate Down, no dup '+s, TestList, Len);
TestList.StartIteratorAtLast; // Iterate again / must get all entries
for i := 1 to Len do
AssertTrue('Iterator 2 Down Continues '+s, TestList.IterateNextDown);
AssertTrue('Iterator 2 Down Finished '+s, not TestList.IterateNextDown);
// Iterator Down, with dups
CreateList(TestList, Len, True);
TestList.StartIteratorAtLast;
for i := Len downto 1 do begin
AssertTrue('Iterator Down (dups) Continues '+s, TestList.IterateNextDown);
p := TestList.CurrentCaretFull;
AssertEquals('Iterator Ordered '+s+IntToStr(i), i * 10, TestList.CurrentCaretFull.x);
if i-1 = MoveIdx then begin
p.X := MoveTo * 10;
TestList.CurrentCaretFull := p;
end;
end;
AssertTrue('Iterator Down (dups) Finished '+s, not TestList.IterateNextDown);
AssertSorted('Iterate Down (dups) '+s, TestList, Len, MoveTo * 10);
TestList.StartIteratorAtLast; // Iterate again / must get all entries
for i := 1 to Len do
AssertTrue('Iterator 2 Down (dups) Continues '+s, TestList.IterateNextDown);
AssertTrue('Iterator 2 Down (dups) Finished '+s, not TestList.IterateNextDown);
(* Not implemented
// Iterator Down, with dups remove
CreateList(TestList, Len, False);
TestList.StartIteratorAtLast;
for i := Len downto 1 do begin
AssertTrue('Iterator Down (dups) Continues '+s, TestList.IterateNextDown);
p := TestList.CurrentCaretFull;
AssertEquals('Iterator Ordered '+s+IntToStr(i), i * 10, TestList.CurrentCaretFull.x);
if i-1 = MoveIdx then begin
p.X := MoveTo * 10;
TestList.CurrentCaretFull := p;
end;
end;
AssertTrue('Iterator Down (dups) Finished '+s, not TestList.IterateNextDown);
AssertSorted('Iterate Down (dups) '+s, TestList, L2);
TestList.StartIteratorAtLast; // Iterate again / must get all entries
for i := 1 to L2 do
AssertTrue('Iterator 2 Down (dups) Continues '+s, TestList.IterateNextDown);
AssertTrue('Iterator 2 Down (dups) Finished '+s, not TestList.IterateNextDown);
*)
finally
TestList.Free;
end;
end;
initialization
RegisterTest(TTestSynMultCaret);
end.