paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-31 22:20:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit, testcase: begin refactor SynEdit.Marks (use tree for storage).

Browse Source 
git-svn-id: trunk@27765 -
This commit is contained in:
martin 2010-10-19 21:48:38 +00:00
parent 7e8ea9c121
commit a0292f5d33
3 changed files with 185 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -2159,6 +2159,7 @@ components/synedit/test/SynTest.lpi svneol=native#text/plain
components/synedit/test/SynTest.lpr svneol=native#text/pascal
components/synedit/test/testbase.pas svneol=native#text/pascal
components/synedit/test/testbasicsynedit.pas svneol=native#text/pascal
components/synedit/test/testbookmarks.pas svneol=native#text/pascal
components/synedit/test/testfoldedview.pas svneol=native#text/pascal
components/synedit/test/testhighlightmulti.pas svneol=native#text/pascal
components/synedit/test/testhighlightpas.pas svneol=native#text/pascal

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

@ -4,7 +4,7 @@ program SynTest;
uses
Interfaces, Forms, GuiTestRunner, TestBase,
TestBasicSynEdit, TestSynSelection,
TestBasicSynEdit, TestSynSelection, TestBookMarks,
TestSynBeautifier, TestTrimSpace, TestSyncroEdit,
TestHighlightPas, TestMarkupwordGroup, TestFoldedView,
TestHighlightXml, TestHighlightMulti;

183
components/synedit/test/testbookmarks.pas Normal file
View File

@ -0,0 +1,183 @@
unit TestBookMarks;
(* Test all kind of SynEditMarks
*)
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, testregistry, TestBase, LCLProc,
SynEdit, SynEditMarks, SynEditKeyCmds;
type
{ TTestBookMarks }
TTestBookMarks = class(TTestBase)
protected
//procedure SetUp; override;
//procedure TearDown; override;
//procedure ReCreateEdit; reintroduce;
function TestText1: TStringArray;
procedure CheckMarks(Name: String; MarkList: Array of Integer);
function AddMark(Y, X: Integer) : TSynEditMark;
published
procedure TestMarks;
end;
implementation
{ TTestBookMarks }
function TTestBookMarks.TestText1: TStringArray;
begin
SetLength(Result, 8);
Result[0] := 'abc';
Result[1] := 'def 123;';
Result[2] := 'xyz 098765';
Result[3] := '';
Result[4] := '1';
Result[5] := ' mno...';
Result[6] := ' ABCDEF';
Result[7] := ' 321';
end;
procedure TTestBookMarks.CheckMarks(Name: String; MarkList: array of Integer);
var
m: TSynEditMark;
i: Integer;
begin
AssertEquals(Name + ' Count: ', length(MarkList) div 2, SynEdit.Marks.Count);
for i := 0 to (length(MarkList) div 2) - 1 do begin
m := SynEdit.Marks[i];
AssertEquals(Name + ' Mark( '+IntToStr(i)+' ) Line: ', MarkList[i*2+0], m.Line);
AssertEquals(Name + ' Mark( '+IntToStr(i)+' ) Column: ', MarkList[i*2+1], m.Column);
AssertEquals(Name + ' Mark( '+IntToStr(i)+' ) IndexOf: ', i, SynEdit.Marks.IndexOf(m));
end;
end;
function TTestBookMarks.AddMark(Y, X: Integer): TSynEditMark;
begin
Result := TSynEditMark.Create(SynEdit);
Result.Line := Y;
Result.Column := X;
SynEdit.Marks.Add(Result);
end;
procedure TTestBookMarks.TestMarks;
var
mks: TSynEditMarks;
m, m1, m2: TSynEditMark;
begin
ReCreateEdit;
SetLines(TestText1);
CheckMarks('empty', []);
m := AddMark(3,2);
CheckMarks('3/2', [ 3,2 ]);
SynEdit.Marks.GetMarksForLine(2, True, mks); Assert(mks[1] = nil, 'mfl2');
SynEdit.Marks.GetMarksForLine(3, True, mks); Assert(mks[1] = m, 'mfl3');
m1 := AddMark(5,2);
CheckMarks('3/2 - 5/1', [ 3,2, 5,2 ]);
SynEdit.Marks.GetMarksForLine(1, True, mks); Assert(mks[1] = nil, 'mfl1 /2');
SynEdit.Marks.GetMarksForLine(2, True, mks); Assert(mks[1] = nil, 'mfl2 /2');
SynEdit.Marks.GetMarksForLine(3, True, mks); Assert(mks[1] = m, 'mfl3 /2'); Assert(mks[2] = nil, 'mfl3a /2');
SynEdit.Marks.GetMarksForLine(4, True, mks); Assert(mks[1] = nil, 'mfl4 /2');
SynEdit.Marks.GetMarksForLine(5, True, mks); Assert(mks[1] = m1, 'mfl5 /2'); Assert(mks[2] = nil, 'mfl5a /2');
SynEdit.Marks.GetMarksForLine(6, True, mks); Assert(mks[1] = nil, 'mfl6 /2');
m2 := AddMark(3,1);
// colums are in order, in which they where added
CheckMarks('3/1 - 3/2 - 5/1', [ 3,2, 3,1, 5,2 ]);
SynEdit.Marks.GetMarksForLine(1, True, mks); Assert(mks[1] = nil, 'mfl1 /3');
SynEdit.Marks.GetMarksForLine(2, True, mks); Assert(mks[1] = nil, 'mfl2 /3');
SynEdit.Marks.GetMarksForLine(3, True, mks);
Assert(mks[1] = m, 'mfl3 /3'); Assert(mks[2] = m2, 'mfl3 /3');
Assert(mks[3] = nil, 'mfl3a /3');
SynEdit.Marks.GetMarksForLine(4, True, mks); Assert(mks[1] = nil, 'mfl4 /3');
SynEdit.Marks.GetMarksForLine(5, True, mks); Assert(mks[1] = m1, 'mfl5 /3'); Assert(mks[2] = nil, 'mfl5a /3');
SynEdit.Marks.GetMarksForLine(6, True, mks); Assert(mks[1] = nil, 'mfl6 /3');
// check movement
SynEdit.CaretXY := Point(1, 3); // between marks (first mar is not *behind*
SynEdit.CommandProcessor(ecChar, 'M', nil);
SynEdit.Marks.Debug;
CheckMarks('ecChar between marks : 3/1 - 3/3 - 5/1', [ 3,3, 3,1, 5,2 ]);
SynEdit.CaretXY := Point(1, 5); // before mark
SynEdit.CommandProcessor(ecLineBreak, ' ', nil);
SynEdit.Marks.Debug;
CheckMarks('ecLineBreak before mark : 3/1 - 3/3 - 6/1', [ 3,3, 3,1, 6,2 ]);
SynEdit.CaretXY := Point(2, 6); // after mark
SynEdit.CommandProcessor(ecLineBreak, ' ', nil);
SynEdit.Marks.Debug;
CheckMarks('ecLineBreak after mark : 3/1 - 3/3 - 6/1', [ 3,3, 3,1, 6,2 ]);
SynEdit.CaretXY := Point(2, 4); // prev line
SynEdit.CommandProcessor(ecLineBreak, ' ', nil);
SynEdit.Marks.Debug;
CheckMarks('ecLineBreak prev line : 3/1 - 3/3 - 7/1', [ 3,3, 3,1, 7,2 ]);
SynEdit.CaretXY := Point(1, 3); // between marks (first mar is not *behind*
SynEdit.CommandProcessor(ecDeleteChar, 'M', nil);
SynEdit.Marks.Debug;
CheckMarks('ecDeleteChar between marks : 3/1 - 3/2 - 5/1', [ 3,2, 3,1, 7,2 ]);
SynEdit.CaretXY := Point(1, 6); // prev line
SynEdit.CommandProcessor(ecChar, '>', nil);
SynEdit.CaretXY := Point(1, 7); // begin line
SynEdit.CommandProcessor(ecDeleteLastChar, ' ', nil);
SynEdit.Marks.Debug;
CheckMarks('ecDeleteLine begin line : 3/1 - 3/3 - 6/3', [ 3,2, 3,1, 6,3 ]);
SynEdit.CaretXY := Point(1, 5); // prev line
SynEdit.CommandProcessor(ecDeleteLastChar, ' ', nil);
SynEdit.Marks.Debug;
CheckMarks('ecDeleteLine 2-prev line : 3/1 - 3/3 - 6/3', [ 3,2, 3,1, 5,3 ]);
SynEdit.CaretXY := Point(1, 4); // direct prev line
SynEdit.CommandProcessor(ecLineBreak, ' ', nil);
SynEdit.Marks.Debug;
CheckMarks('ecLineBreak direct-prev line : 3/1 - 3/3 - 7/1', [ 3,2, 3,1, 6,3 ]);
// more marks
AddMark(5,1);
AddMark(1,1);
AddMark(1,2);
CheckMarks('add more : 1/1 - 1/2 - 3/2 - 3/1 - 5/1 - 6/3', [ 1,1, 1,2, 3,2, 3,1, 5,1, 6,3 ]);
m := SynEdit.Marks[1];
SynEdit.Marks.Delete(1);
CheckMarks('delete(1): ', [ 1,1, 3,2, 3,1, 5,1, 6,3 ]);
m.Free;
CheckMarks('delete(1): ', [ 1,1, 3,2, 3,1, 5,1, 6,3 ]);
m := SynEdit.Marks[4];
SynEdit.Marks.Delete(4);
m.Free;
CheckMarks('delete(1): ', [ 1,1, 3,2, 3,1, 5,1 ]);
m := SynEdit.Marks[0];
SynEdit.Marks.Delete(0);
m.Free;
CheckMarks('delete(0): ', [ 3,2, 3,1, 5,1 ]);
SynEdit.Marks.ClearLine(3);
CheckMarks('ClearLine(3): ', [ 5,1 ]);
end;
initialization
RegisterTest(TTestBookMarks);
end.