paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-01 17:43:38 +02:00
Code Issues Packages Projects Releases Wiki Activity
ab0aa9bf2a
lazarus/components/synedit/test/testsyntextarea.pas
martin 77f02e3f39 SynEdit: test, clean up 
git-svn-id: trunk@39804 -
2013-01-08 10:05:46 +00:00

1134 lines
53 KiB
ObjectPascal
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

unit TestSynTextArea;
{$mode objfpc}{$H+}
{$INLINE OFF}
interface
uses
Classes, SysUtils, testregistry, TestBase, LazSynTextArea, SynEditTypes,
SynEditMarkupBracket, SynEdit, SynHighlighterPosition, SynEditMiscClasses,
Graphics;
type
{ TTestSynTextArea }
TTestSynTextArea = class(TTestBase)
private
FTheHighLighter: TSynPositionHighlighter;
FtkRed, FtkGreen, FtkBlue, FtkYellow: TtkTokenKind;
protected
FTokenBreaker: TLazSynPaintTokenBreaker;
procedure ReCreateEdit; reintroduce;
function CreateTheHighLighter: TSynPositionHighlighter;
procedure SetUp; override;
procedure TearDown; override;
procedure SetRealLinesText;
published
procedure TestPaintTokenBreaker;
end;
implementation
{ TTestSynTextArea }
procedure TTestSynTextArea.ReCreateEdit;
begin
if Assigned(SynEdit) then
SynEdit.Highlighter := nil;
FreeAndNil(FTheHighLighter);
inherited ReCreateEdit;
FTheHighLighter := CreateTheHighLighter;
SynEdit.Highlighter := FTheHighLighter;
SynEdit.Color := clWhite;
SynEdit.Font.Color := clBlack;
SynEdit.SelectedColor.Foreground := clPurple;
FTokenBreaker.ForegroundColor := clBlack;
FTokenBreaker.BackgroundColor := clWhite;
end;
function TTestSynTextArea.CreateTheHighLighter: TSynPositionHighlighter;
begin
Result := TSynPositionHighlighter.Create(nil);
FtkRed := Result.CreateTokenID('red', clRed, clDefault, []);
FtkGreen := Result.CreateTokenID('green', clGreen, clDefault, []);
FtkBlue := Result.CreateTokenID('blue', clBlue, clDefault, []);
FtkYellow := Result.CreateTokenID('yellow', clYellow, clDefault, []);
end;
procedure TTestSynTextArea.SetUp;
begin
inherited SetUp;
FTokenBreaker := TLazSynPaintTokenBreaker.Create;
end;
procedure TTestSynTextArea.TearDown;
begin
FTokenBreaker.Free;
inherited TearDown;
end;
procedure TTestSynTextArea.SetRealLinesText;
begin
ReCreateEdit;
SetLines(['unit foo;', // 1
'interface//', // Hl-token
'const',
' test =''abcDEF'';',
' testa=''a あアア F'';', // 5
' testb=''aääDEF'';　// föö bar',
#9'i=123;', // 7 // Hl-token
' a'#9'=0;',
#9#9#9#9'end',
'', // 10
'شس',
'شس ي',
'ABشس يCD',
#9'i'#9'12'#9,
'ي'#9'شس', // 15
#9'('#9')',
'//شس يشس ي(شس ي',
'a ''شس''b',
'a ''شسقف',
'a ''شسقف', // 20
''
]);
end;
procedure TTestSynTextArea.TestPaintTokenBreaker;
var
BaseName, Name: String;
TkCnt: Integer;
Token: TLazSynDisplayTokenInfoEx;
UseViewTokenOnly: Boolean;
SkipPreFirst: Boolean;
type
TBoundExpectation = record
ExpPhys, ExpLog, ExpOffs: Integer;
WantOffs: Boolean;
end;
function b(AExpPhys, AExpLog: Integer): TBoundExpectation;
begin
Result.ExpPhys := AExpPhys;
Result.ExpLog := AExpLog;
Result.WantOffs := False;
end;
function b(AExpPhys, AExpLog, AExpOffs: Integer): TBoundExpectation;
begin
Result.ExpPhys := AExpPhys;
Result.ExpLog := AExpLog;
Result.ExpOffs := AExpOffs;
Result.WantOffs := True;
end;
procedure TestBound(AName: String; ABound: TLazSynDisplayTokenBound; AExpect: TBoundExpectation);
begin
AssertEquals(AName + ' Bound.Phys', AExpect.ExpPhys, ABound.Physical);
AssertEquals(AName + ' Bound.Log', AExpect.ExpLog, ABound.Logical);
if AExpect.WantOffs then
AssertEquals(AName + ' Bound.Offs', AExpect.ExpOffs, ABound.Offset);
end;
procedure TestStart(AName: String; ALine, AFirst, ALast: Integer; ExpRLine: Integer = -1);
// ALine, ExpRLine: 1-based
var
RLine: TLineIdx;
begin
BaseName := Format('%s::%s (Line=%d, F/L=%d-%d): ', [BaseTestName, AName, ALine, AFirst, ALast]);
Name := BaseName;
TkCnt := 0;
FTokenBreaker.Prepare(SynEdit.ViewedTextBuffer.DisplayView,
SynEdit.ViewedTextBuffer,
SynEdit.TextArea.MarkupManager,
AFirst, ALast);
FTokenBreaker.SetHighlighterTokensLine(ALine-1, RLine);
if ExpRLine >= 0 then
AssertEquals(Name+'Got RealLine', ExpRLine-1, RLine);
if not UseViewTokenOnly then
SynEdit.TextArea.MarkupManager.PrepareMarkupForRow(ALine);
end;
procedure TestPreFirst(ExpNext: TBoundExpectation; ExpNxtIsRtl: Boolean);
var
R: Boolean;
begin
if SkipPreFirst then exit;
Name := Format('%sL (Pre-First): ', [BaseName]);
R := FTokenBreaker.GetNextHighlighterTokenFromView(Token, -1, 1);
AssertTrue(Name + 'Got Token', R);
TestBound(Name + ' Next(BOL)', Token.NextPos, ExpNext);
AssertEquals(Name + 'Nxt IsRtl', ExpNxtIsRtl, Token.NextRtlInfo.IsRtl);
end;
procedure TestNext(ALimits: Array of Integer);
var
R: Boolean;
PhysLimit, LogLimit: Integer;
begin
inc(TkCnt);
PhysLimit := -1;
LogLimit := -1;
if Length(ALimits) > 0 then PhysLimit := ALimits[0];
if Length(ALimits) > 1 then LogLimit := ALimits[1];
Name := Format('%sL=%d (%d): ', [BaseName, PhysLimit, TkCnt]);
if UseViewTokenOnly
then R := FTokenBreaker.GetNextHighlighterTokenFromView(Token, PhysLimit, LogLimit)
else R := FTokenBreaker.GetNextHighlighterTokenEx(Token);
AssertTrue(Name + 'Got Token', R);
end;
procedure TestNext(ALimits: Array of Integer;
ExpStart, ExpEnd: TBoundExpectation;
ExpCharStart, ExpCharEnd: Integer; ExpClipStart, ExpClipEnd: Integer;
ExpIsRtl: Boolean; ExpText: String);
begin
TestNext(ALimits);
TestBound(Name + ' Start', Token.StartPos, ExpStart);
TestBound(Name + ' End', Token.EndPos, ExpEnd);
AssertEquals(Name + ' PhysicalCharStart', ExpCharStart, Token.PhysicalCharStart);
AssertEquals(Name + ' PhysicalCharEnd', ExpCharEnd, Token.PhysicalCharEnd);
AssertEquals(Name + ' PhysicalClipStart', ExpClipStart, Token.PhysicalClipStart);
AssertEquals(Name + ' PhysicalClipEnd', ExpClipEnd, Token.PhysicalClipEnd);
AssertEquals(Name + ' ExpIsRtl', ExpIsRtl, Token.RtlInfo.IsRtl);
AssertEquals(Name + ' Text', ExpText, copy(Token.Tk.TokenStart, 1, Token.Tk.TokenLength));
end;
procedure TestNext(ALimits: Array of Integer;
ExpStart, ExpEnd: TBoundExpectation;
ExpCharStart, ExpCharEnd: Integer; ExpClipStart, ExpClipEnd: Integer;
ExpIsRtl: Boolean; ExpText: String;
ExpFColor: TColor);
begin
TestNext(ALimits, ExpStart, ExpEnd, ExpCharStart, ExpCharEnd, ExpClipStart,
ExpClipEnd, ExpIsRtl, ExpText);
AssertEquals(Name + ' F-Color', ExpFColor, Token.Attr.Foreground);
end;
procedure TestNext(ALimits: Array of Integer;
ExpStart, ExpEnd: TBoundExpectation;
ExpCharStart, ExpCharEnd: Integer; ExpClipStart, ExpClipEnd: Integer;
ExpIsRtl: Boolean; ExpText: String;
ExpNext: TBoundExpectation; ExpNxtIsRtl: Boolean);
begin
TestNext(ALimits, ExpStart, ExpEnd, ExpCharStart, ExpCharEnd, ExpClipStart,
ExpClipEnd, ExpIsRtl, ExpText);
TestBound(Name + ' Next', Token.NextPos, ExpNext);
AssertEquals(Name + 'Nxt IsRtl', ExpNxtIsRtl, Token.NextRtlInfo.IsRtl);
end;
procedure TestNext(ALimits: Array of Integer;
ExpStart, ExpEnd: TBoundExpectation;
ExpCharStart, ExpCharEnd: Integer; ExpClipStart, ExpClipEnd: Integer;
ExpIsRtl: Boolean; ExpText: String;
ExpFColor: TColor;
ExpNext: TBoundExpectation; ExpNxtIsRtl: Boolean);
begin
TestNext(ALimits, ExpStart, ExpEnd, ExpCharStart, ExpCharEnd, ExpClipStart,
ExpClipEnd, ExpIsRtl, ExpText, ExpNext, ExpNxtIsRtl);
AssertEquals(Name + ' F-Color', ExpFColor, Token.Attr.Foreground);
end;
procedure TestEnd;
var
R: Boolean;
begin
inc(TkCnt);
Name := Format('%sL=(%d): ', [BaseName, TkCnt]);
if UseViewTokenOnly
then R := FTokenBreaker.GetNextHighlighterTokenFromView(Token)
else R := FTokenBreaker.GetNextHighlighterTokenEx(Token);
AssertFalse(Name + ' No further Token', R);
end;
procedure TestEnd(ExpStart: TBoundExpectation);
begin
TestEnd;
TestBound(Name + ' Start(EOL)', Token.StartPos, ExpStart);
end;
procedure DoTests;
begin
UseViewTokenOnly := True;
SetRealLinesText;
SynEdit.TabWidth := 4;
SynEdit.ViewedTextBuffer.DisplayView.InitHighlighterTokens(SynEdit.Highlighter);
FTheHighLighter.AddToken(2-1, 9, FtkBlue); // interface
FTheHighLighter.AddToken(7-1, 1, FtkYellow); // #9
FTheHighLighter.AddToken(7-1, 2, FtkGreen); // i
FTheHighLighter.AddToken(7-1, 3, FtkRed); // =
FTheHighLighter.AddToken(7-1, 6, FtkGreen); // 123
FTheHighLighter.AddToken(17-1, 2, FtkBlue); // //
FTheHighLighter.AddToken(18-1, 6, FtkGreen); // ' ' 6 spaces
FTheHighLighter.AddToken(18-1, 7, FtkYellow); // '
FTheHighLighter.AddToken(18-1,11, FtkBlue); // شس
FTheHighLighter.AddToken(18-1,12, FtkYellow); // '
FTheHighLighter.AddToken(18-1,13, FtkRed); // ,
FTheHighLighter.AddToken(19-1, 6, FtkGreen); // ' ' 6 spaces
FTheHighLighter.AddToken(19-1, 7, FtkYellow); // '
FTheHighLighter.AddToken(19-1,15, FtkBlue); // شس
FTheHighLighter.AddToken(20-1, 6, FtkGreen); // ' ' 6 spaces
FTheHighLighter.AddToken(20-1, 7, FtkYellow); // '
FTheHighLighter.AddToken(20-1,13, FtkRed); // شس 3 chars, ekcept last will be red
FTheHighLighter.AddToken(20-1,15, FtkBlue); // شس
{%region LTR only }
PushBaseName('LTR-Only');
{%region full line}
TestStart('Scan full line / hl-token', 2, 1, 100, 2);
TestNext([100], b( 1, 1, 0), b(10,10, 0), 1,10, 1,10, False, 'interface', clBlue, b(10,10, 0), False);
TestNext([100], b(10,10, 0), b(12,12, 0), 10,12, 10,12, False, '//', clBlack, b(12,12, 0), False);
TestEnd(b(12,12,0));
TestStart('Scan full line / hl-token', 2, 1, 100, 2);
TestPreFirst(b( 1, 1, 0), False);
TestNext([], b( 1, 1), b(10,10), 1,10, 1,10, False, 'interface', b(10,10, 0), False);
TestNext([], b(10,10), b(12,12), 10,12, 10,12, False, '//', b(12,12, 0), False);
TestEnd(b(12,12, 0));
{%endregion}
{%region cut off end of line}
TestStart('Cut off end', 2, 1, 5, 2);
TestNext([100], b( 1, 1), b( 5, 5), 1, 5, 1, 5, False, 'inte', b( 5, 5, 0), False);
TestEnd(b( 5, 5, 0));
{%endregion}
{%region cut off start of line}
TestStart('Cut off start', 2, 3, 100, 2);
TestNext([100], b( 3, 3), b(10,10), 3,10, 3,10, False, 'terface', b(10,10, 0), False);
TestNext([100], b(10,10), b(12,12), 10,12, 10,12, False, '//', b(12,12, 0), False);
TestEnd(b(12,12, 0));
TestStart('Cut off start 1 tok', 2, 10, 100, 2);
TestNext([100], b(10,10), b(12,12), 10,12, 10,12, False, '//', b(12,12, 0), False);
TestEnd(b(12,12, 0));
TestStart('Cut off start 1.5 tok', 2, 11, 100, 2);
TestNext([100], b(11,11), b(12,12), 11,12, 11,12, False, '/', b(12,12, 0), False);
TestEnd(b(12,12, 0));
TestStart('Cut off entire line', 2, 20, 50, 2);
AssertFalse(Name + 'Got NO Token', FTokenBreaker.GetNextHighlighterTokenFromView(Token, -1, 1));
TestBound(Name + ' Start(BOL)', Token.StartPos, b(12,12, 0));
{%endregion}
{%region cut off both}
TestStart('Cut off both', 2, 3, 10, 2);
TestNext([100], b( 3, 3), b(10,10), 3,10, 3,10, False, 'terface');
//TestNext([100], b(10,10), b(12,12), 10,12, 10,12, False, '//');
TestEnd;
TestStart('Cut off both - 2 token', 2, 3, 11, 2);
TestNext([100], b( 3, 3), b(10,10), 3,10, 3,10, False, 'terface');
TestNext([100], b(10,10), b(11,11), 10,11, 10,11, False, '/');
TestEnd;
TestStart('Cut off both - 1 token, skip 1st', 2, 10,11, 2);
TestNext([100], b(10,10), b(11,11), 10,11, 10,11, False, '/');
TestEnd;
{%endregion}
{%region 1 token 2 parts}
TestStart('1 token 2 parts', 2, 1, 100, 2);
TestNext([ 3], b( 1, 1, 0), b( 3, 3, 0), 1, 3, 1, 3, False, 'in',clBlue );
TestNext([100], b( 3, 3, 0), b(10,10, 0), 3,10, 3,10, False, 'terface', clBlue);
TestNext([100], b(10,10, 0), b(12,12, 0), 10,12, 10,12, False, '//', clBlack);
TestEnd;
{%endregion}
// part chars/tabs
{%region cut off PART of char }
// start at 1
TestStart('cut off PART of char (end)', 7, 1, 100, 7);
TestPreFirst(b( 1, 1, 0), False);
TestNext([ 3], b( 1, 1, 0), b( 3, 2,-2), 1, 5, 1, 3, False, #9, b( 3, 1, 2), False);
TestNext([100], b( 3, 1, 2), b( 5, 2, 0), 1, 5, 3, 5, False, #9, b( 5, 2, 0), False);
TestNext([100], b( 5, 2, 0), b( 6, 3, 0), 5, 6, 5, 6, False, 'i');
TestStart('cut off PART of char (end) next-limit', 7, 1, 100, 7);
TestPreFirst(b( 1, 1, 0), False);
TestNext([ 3], b( 1, 1), b( 3, 2), 1, 5, 1, 3, False, #9, b( 3, 1, 2), False);
TestNext([ 5], b( 3, 1), b( 5, 2), 1, 5, 3, 5, False, #9, b( 5, 2, 0), False);
TestNext([100], b( 5, 2), b( 6, 3), 5, 6, 5, 6, False, 'i');
TestStart('cut off PART of char (end) next-limit-log', 7, 1, 100, 7);
TestPreFirst(b( 1, 1, 0), False);
TestNext([ 3], b( 1, 1), b( 3, 2), 1, 5, 1, 3, False, #9, b( 3, 1, 2), False);
TestNext([99,2], b( 3, 1), b( 5, 2), 1, 5, 3, 5, False, #9, b( 5, 2, 0), False);
TestNext([100], b( 5, 2), b( 6, 3), 5, 6, 5, 6, False, 'i');
// start at 2
TestStart('cut off PART of char (begin)', 7, 2, 100, 7);
TestPreFirst(b( 2, 1, 1), False);
TestNext([ 5], b( 2, 1), b( 5, 2), 1, 5, 2, 5, False, #9);
TestNext([100], b( 5, 2), b( 6, 3), 5, 6, 5, 6, False, 'i');
TestStart('cut off PART of char (both) continue', 7, 2, 100, 7);
TestPreFirst(b( 2, 1, 1), False);
TestNext([ 3], b( 2, 1), b( 3, 2), 1, 5, 2, 3, False, #9);
TestNext([100], b( 3, 1), b( 5, 2), 1, 5, 3, 5, False, #9);
TestNext([100], b( 5, 2), b( 6, 3), 5, 6, 5, 6, False, 'i');
TestStart('cut off PART of char (both) global-limit', 7, 2, 3, 7);
TestPreFirst(b( 2, 1, 1), False);
TestNext([100], b( 2, 1), b( 3, 2), 1, 5, 2, 3, False, #9);
TestEnd;
TestStart('cut off PART of char (both) next-limit', 7, 2, 100, 7);
TestPreFirst(b( 2, 1, 1), False);
TestNext([3], b( 2, 1), b( 3, 2), 1, 5, 2, 3, False, #9);
//TestEnd(3);
// start at 3
TestStart('cut off PART of char (begin)', 7, 3, 100, 7);
TestPreFirst(b( 3, 1, 2), False);
TestNext([ 5], b( 3, 1), b( 5, 2), 1, 5, 3, 5, False, #9);
TestNext([100], b( 5, 2), b( 6, 3), 5, 6, 5, 6, False, 'i');
// start at 4
TestStart('cut off PART of char (begin)', 7, 4, 100, 7);
TestPreFirst(b( 4, 1, 3), False);
TestNext([ 5], b( 4, 1), b( 5, 2), 1, 5, 4, 5, False, #9);
TestNext([100], b( 5, 2), b( 6, 3), 5, 6, 5, 6, False, 'i');
// start at 5
TestStart('cut off PART of char (begin)', 7, 5, 100, 7);
TestPreFirst(b( 5, 2, 0), False);
TestNext([100], b( 5, 2), b( 6, 3), 5, 6, 5, 6, False, 'i');
{%endregion}
{%region cut tab in many}
TestStart('cut tab in many', 9, 2, 100, 9);
TestNext([ 3], b( 2, 1), b( 3, 2), 1, 5, 2, 3, False, #9);
TestNext([ 6], b( 3, 1), b( 6, 3), 1, 9, 3, 6, False, #9#9);
TestNext([ 11], b( 6, 2), b(11, 4), 5,13, 6,11, False, #9#9);
TestNext([ 13], b(11, 3), b(13, 4), 9,13, 11, 13, False, #9);
TestNext([ 15], b(13, 4), b(15, 5), 13,17, 13, 15, False, #9);
{%endregion}
{%region break line // phys log}
TestStart('Scan full line', 14, 1, 100, 14);
TestPreFirst(b( 1, 1, 0), False);
TestNext([-1, -1], b( 1, 1), b(13, 7), 1,13, 1,13, False, #9'i'#9'12'#9);
TestStart('Scan full line', 14, 1, 100, 14);
TestPreFirst(b( 1, 1, 0), False);
TestNext([-1, 2], b( 1, 1), b( 5, 2), 1, 5, 1, 5, False, #9, b( 5, 2, 0), False);
TestNext([-1, 3], b( 5, 2), b( 6, 3), 5, 6, 5, 6, False, 'i');
TestStart('Scan full line', 14, 1, 100, 14);
TestPreFirst(b( 1, 1, 0), False);
TestNext([99, 2], b( 1, 1), b( 5, 2), 1, 5, 1, 5, False, #9, b( 5, 2, 0), False);
TestNext([-1, 3], b( 5, 2), b( 6, 3), 5, 6, 5, 6, False, 'i');
TestStart('Scan full line', 14, 1, 100, 14);
TestPreFirst(b( 1, 1, 0), False);
TestNext([ 5, 2], b( 1, 1), b( 5, 2), 1, 5, 1, 5, False, #9, b( 5, 2, 0), False);
TestNext([-1, 3], b( 5, 2), b( 6, 3), 5, 6, 5, 6, False, 'i');
TestStart('Scan full line', 14, 1, 100, 14);
TestPreFirst(b( 1, 1, 0), False);
TestNext([ 4, 2], b( 1, 1), b( 4, 2), 1, 5, 1, 4, False, #9, b( 4, 1, 3), False);
TestNext([-1, 2], b( 4, 1), b( 5, 2), 1, 5, 4, 5, False, #9, b( 5, 2, 0), False);
TestNext([-1, 3], b( 5, 2), b( 6, 3), 5, 6, 5, 6, False, 'i');
{%endregion}
PopBaseName;
{%endregion}
{%region RTL only }
PushBaseName('RTL-Only');
{%region full line}
TestStart('Scan full line', 11, 1, 100, 11);
TestPreFirst(b( 3, 1, 0), True);
TestNext([100], b( 3, 1, 0), b( 1, 5, 0), 1, 3, 1, 3, True, 'شس', b( 3, 5, 0), False);
TestEnd(b( 3, 5, 0));
TestStart('Scan full line', 11, 1, 100, 11);
TestPreFirst(b( 3, 1, 0), True);
TestNext([], b( 3, 1, 0), b( 1, 5, 0), 1, 3, 1, 3, True, 'شس', b( 3, 5, 0), False);
TestEnd(b( 3, 5, 0));
TestStart('Scan full line (2 words)', 12, 1, 100, 12);
TestPreFirst(b( 5, 1, 0), True);
TestNext([100], b( 5, 1, 0), b( 1, 8, 0), 1, 5, 1, 5, True, 'شس ي', b( 5, 8, 0), False);
TestEnd(b( 5, 8, 0));
{%endregion}
{%region Cut tab}
(*
Tab implemetation may change. currently it is calculated on the logical pos of the tab
*)
// tab will be 3 width
TestStart('Scan full line', 15, 3, 7, 15);
TestPreFirst(b( 7, 1, 0), True);
TestNext([], b( 7, 1, 0), b( 3, 4, 0), 3, 7, 3, 7, True, 'ي'#9, b( 7, 8, 0), False);
TestEnd(b( 7, 8, 0));
TestStart('Scan full line', 15, 4, 7, 15);
TestPreFirst(b( 7, 1, 0), True);
TestNext([], b( 7, 1, 0), b( 4, 4,-1), 3, 7, 4, 7, True, 'ي'#9, b( 7, 8, 0), False);
TestEnd(b( 7, 8, 0));
TestStart('Scan full line', 15, 5, 7, 15);
TestPreFirst(b( 7, 1, 0), True);
TestNext([], b( 7, 1, 0), b( 5, 4,-2), 3, 7, 5, 7, True, 'ي'#9, b( 7, 8, 0), False);
TestEnd(b( 7, 8, 0));
TestStart('Scan full line', 15, 1, 7, 15);
TestPreFirst(b( 7, 1, 0), True);
TestNext([], b( 7, 1, 0), b( 1, 8, 0), 1, 7, 1, 7, True, 'ي'#9'شس', b( 7, 8, 0), False);
TestEnd(b( 7, 8, 0));
TestStart('Scan full line', 15, 1, 6, 15);
TestPreFirst(b( 6, 3, 0), True);
// TODO NextPos and TestEnd: Phys pos is allowed to be 6 OR 7
TestNext([], b( 6, 3, 0), b( 1, 8, 0), 1, 6, 1, 6, True, #9'شس', b( 7, 8, 0), False);
TestEnd(b( 7, 8, 0));
TestStart('Scan full line', 15, 1, 5, 15);
TestPreFirst(b( 5, 3, 1), True);
TestNext([], b( 5, 3, 1), b( 1, 8, 0), 1, 6, 1, 5, True, #9'شس');
TestStart('Scan full line', 15, 1, 4, 15);
TestPreFirst(b( 4, 3, 2), True);
TestNext([], b( 4, 3, 2), b( 1, 8, 0), 1, 6, 1, 4, True, #9'شس');
// RTL tab in 2 pieces
TestStart('RTL tab in 2 pieces', 15, 1, 7, 15);
TestPreFirst(b( 7, 1, 0), True);
TestNext([5], b( 7, 1, 0), b( 5, 4,-2), 3, 7, 5, 7, True, 'ي'#9, b( 5, 3, 1), True);
TestNext([], b( 5, 3, 1), b( 1, 8, 0), 1, 6, 1, 5, True, #9'شس', b( 7, 8, 0), False);
TestEnd(b( 7, 8, 0));
{%endregion}
{%region part line}
// 1 char parts
TestStart('part line - begin', 12, 1, 2, 12);
TestPreFirst(b( 2, 6, 0), True);
TestNext([100], b( 2, 6), b( 1, 8), 1, 2, 1, 2, True, 'ي', b( 5, 8, 0), False);
TestEnd(b( 5, 8, 0));
TestStart('part line - mid', 12, 2, 3, 12);
TestPreFirst(b( 3, 5, 0), True);
TestNext([100], b( 3, 5), b( 2, 6), 2, 3, 2, 3, True, ' ', b( 5, 8, 0), False);
TestEnd(b( 5, 8, 0));
TestStart('part line - mid', 12, 3, 4, 12);
TestPreFirst(b( 4, 3, 0), True);
TestNext([100], b( 4, 3), b( 3, 5), 3, 4, 3, 4, True, 'س', b( 5, 8, 0), False);
TestEnd(b( 5, 8, 0));
TestStart('part line - end', 12, 4, 5, 12);
TestPreFirst(b( 5, 1, 0), True);
TestNext([100], b( 5, 1), b( 4, 3), 4, 5, 4, 5, True, 'ش', b( 5, 8, 0), False);
TestEnd(b( 5, 8, 0));
// 2 char parts
TestStart('part line - begin(2)', 12, 1, 3, 12);
TestPreFirst(b( 3, 5, 0), True);
TestNext([100], b( 3, 5), b( 1, 8), 1, 3, 1, 3, True, ' ي');
TestEnd;
TestStart('part line - mid(2)', 12, 2, 4, 12);
TestPreFirst(b( 4, 3, 0), True);
TestNext([100], b( 4, 3), b( 2, 6), 2, 4, 2, 4, True, 'س ');
TestEnd;
TestStart('part line - end(2)', 12, 3, 5, 12);
TestPreFirst(b( 5, 1, 0), True);
TestNext([100], b( 5, 1), b( 3, 5), 3, 5, 3, 5, True, 'شس');
TestEnd;
// 1 char parts, several chunks
TestStart('part line - begin', 12, 1, 100, 12);
TestPreFirst(b( 5, 1, 0), True);
TestNext([4], b( 5, 1), b( 4, 3), 4, 5, 4, 5, True, 'ش', b( 4, 3, 0), True);
TestNext([3], b( 4, 3), b( 3, 5), 3, 4, 3, 4, True, 'س', b( 3, 5, 0), True);
TestNext([2], b( 3, 5), b( 2, 6), 2, 3, 2, 3, True, ' ', b( 2, 6, 0), True);
TestNext([1], b( 2, 6), b( 1, 8), 1, 2, 1, 2, True, 'ي', b( 5, 8, 0), False);
TestEnd(b( 5, 8, 0));
// 1 char parts, several chunks
TestStart('part line - begin', 12, 1, 100, 12);
TestPreFirst(b( 5, 1, 0), True);
TestNext([4], b( 5, 1), b( 4, 3), 4, 5, 4, 5, True, 'ش');
TestNext([3], b( 4, 3), b( 3, 5), 3, 4, 3, 4, True, 'س');
TestNext([0], b( 3, 5), b( 1, 8), 1, 3, 1, 3, True, ' ي');
TestEnd;
//TestStart('part line - begin', 12, 1, 100, 12);
//TestNext(2, 1, 6, 2, 5, 2, 5, True, 'شس ');
//TestNext(5, 1, 3, 4, 5, 4, 5, True, 'ي');
//TestEnd;
//
//TestStart('part line - begin', 12, 1, 100, 12);
//TestNext( 2, 1, 6, 2, 5, 2, 5, True, 'شس ');
//TestNext([100], b( 5, 1), b( 4, 3), 4, 5, 4, 5, True, 'شس ي');
//TestEnd;
{%endregion}
PopBaseName;
{%endregion}
{%region MIXED Rtl/Ltr }
PushBaseName('MIXED Rtl/Ltr');
{%region full line}
TestStart('Scan full line', 13, 1, 100, 13);
TestPreFirst(b( 1, 1, 0), False);
TestNext([], b( 1, 1), b( 3, 3), 1, 3, 1, 3, False, 'AB', b( 7, 3, 0), True);
TestNext([], b( 7, 3), b( 3,10), 3, 7, 3, 7, True, 'شس ي', b( 7,10, 0), False);
TestNext([], b( 7,10), b( 9,12), 7, 9, 7, 9, False, 'CD', b( 9,12, 0), False);
TestEnd(b( 9,12, 0));
{%endregion}
{%region parts}
TestStart('Scan part line, cut at start', 13, 2, 100, 13);
TestPreFirst(b( 2, 2, 0), False);
TestNext([], b( 2, 2), b( 3, 3), 2, 3, 2, 3, False, 'B', b( 7, 3, 0), True);
TestNext([], b( 7, 3), b( 3,10), 3, 7, 3, 7, True, 'شس ي', b( 7,10, 0), False);
TestNext([], b( 7,10), b( 9,12), 7, 9, 7, 9, False, 'CD');
TestEnd;
TestStart('Scan part line, cut at start', 13, 3, 100, 13);
TestPreFirst(b( 7, 3, 0), True);
TestNext([], b( 7, 3), b( 3,10), 3, 7, 3, 7, True, 'شس ي', b( 7,10, 0), False);
TestNext([], b( 7,10), b( 9,12), 7, 9, 7, 9, False, 'CD');
TestEnd;
TestStart('Scan part line, cut at start', 13, 4, 100, 13);
TestPreFirst(b( 7, 3, 0), True);
TestNext([], b( 7, 3), b( 4, 8), 4, 7, 4, 7, True, 'شس ', b( 7,10, 0), False);
TestNext([], b( 7,10), b( 9,12), 7, 9, 7, 9, False, 'CD');
TestEnd;
TestStart('Scan part line, cut at start', 13, 6, 100, 13);
TestPreFirst(b( 7, 3, 0), True);
TestNext([], b( 7, 3), b( 6, 5), 6, 7, 6, 7, True, 'ش', b( 7,10, 0), False);
TestNext([], b( 7,10), b( 9,12), 7, 9, 7, 9, False, 'CD');
TestEnd;
TestStart('Scan part line, cut at start', 13, 7, 100, 13);
TestPreFirst(b( 7,10, 0), False);
TestNext([], b( 7,10), b( 9,12), 7, 9, 7, 9, False, 'CD');
TestEnd;
TestStart('Scan part line, cut at start', 13, 8, 100, 13);
TestPreFirst(b( 8,11, 0), False);
TestNext([], b( 8,11), b( 9,12), 8, 9, 8, 9, False, 'D');
TestEnd;
TestStart('Scan part line, cut at start', 13, 9, 100, 13);
TestEnd;
TestStart('Scan part line, cut at end', 13, 1, 8, 13);
TestNext([], b( 1, 1), b( 3, 3), 1, 3, 1, 3, False, 'AB', b( 7, 3, 0), True);
TestNext([], b( 7, 3), b( 3,10), 3, 7, 3, 7, True, 'شس ي', b( 7,10, 0), False);
TestNext([], b( 7,10), b( 8,11), 7, 8, 7, 8, False, 'C');
TestEnd;
TestStart('Scan part line, cut at end', 13, 1, 7, 13);
TestNext([], b( 1, 1), b( 3, 3), 1, 3, 1, 3, False, 'AB', b( 7, 3, 0), True);
TestNext([], b( 7, 3), b( 3,10), 3, 7, 3, 7, True, 'شس ي');
TestEnd;
TestStart('Scan part line, cut at end', 13, 1, 6, 13);
TestNext([], b( 1, 1), b( 3, 3), 1, 3, 1, 3, False, 'AB', b( 6, 5, 0), True);
TestNext([], b( 6, 5), b( 3,10), 3, 6, 3, 6, True, 'س ي');
TestEnd;
TestStart('Scan part line, cut at end', 13, 1, 4, 13);
TestNext([], b( 1, 1), b( 3, 3), 1, 3, 1, 3, False, 'AB', b( 4, 8, 0), True);
TestNext([], b( 4, 8), b( 3,10), 3, 4, 3, 4, True, 'ي');
TestEnd;
TestStart('Scan part line, cut at end', 13, 1, 3, 13);
TestNext([], b( 1, 1), b( 3, 3), 1, 3, 1, 3, False, 'AB');
TestEnd;
TestStart('Scan part line, cut at end', 13, 1, 2, 13);
TestNext([], b( 1, 1), b( 2, 2), 1, 2, 1, 2, False, 'A');
TestEnd;
{%endregion}
{%region}
TestStart('Scan full line 18 / hl-token', 20, 9, 30, 20);
TestNext([], b(12, 8, 0), b( 9,14, 0), 9,12, 9,12, True, 'شسق', clRed, b(12, 16, 0), False);
TestEnd(b(12, 16, 0));
TestStart('Scan full line 18 / hl-token', 20, 10, 30, 20);
TestNext([], b(12, 8, 0), b(10,12, 0), 10,12, 10,12, True, 'شس', clRed, b(12, 16, 0), False);
TestEnd(b(12, 16, 0));
{%endregion}
PopBaseName;
{%endregion}
UseViewTokenOnly := False;
{%region LTR only }
PushBaseName('LTR-Only - WITH MARKUP');
{%region full line}
SynEdit.BlockBegin := Point( 1,1); // clear selection
TestStart('Scan full line / hl-token', 1, 1, 99, 1);
TestNext([], b( 1, 1, 0), b(10,10, 0), 1,10, 1,10, False, 'unit foo;', clBlack);
TestNext([], b(10,10, 0), b(99,99, 0), 10,99, 10,99, False, ' ', clBlack);
TestEnd;
SynEdit.BlockBegin := Point(2,1);
SynEdit.BlockEnd := Point(4,1);
TestStart('Scan full line / hl-token', 1, 1, 99, 1);
TestNext([], b( 1, 1, 0), b( 2, 2, 0), 1, 2, 1, 2, False, 'u', clBlack);
TestNext([], b( 2, 2, 0), b( 4, 4, 0), 2, 4, 2, 4, False, 'ni', clPurple);
TestNext([], b( 4, 4, 0), b(10,10, 0), 4,10, 4,10, False, 't foo;', clBlack);
TestNext([], b(10,10, 0), b(99,99, 0), 10,99, 10,99, False, ' ', clBlack);
TestEnd;
SynEdit.BlockBegin := Point(2,1);
SynEdit.BlockEnd := Point(4,1);
TestStart('Scan full line / hl-token', 1, 6, 99, 1);
TestNext([], b( 6, 6, 0), b(10,10, 0), 6,10, 6,10, False, 'foo;', clBlack);
TestNext([], b(10,10, 0), b(99,99, 0), 10,99, 10,99, False, ' ', clBlack);
TestEnd;
SynEdit.BlockBegin := Point(20,1);
SynEdit.BlockEnd := Point(30,1);
TestStart('Scan full line / hl-token', 1, 1, 99, 1);
TestNext([], b( 1, 1, 0), b(10,10, 0), 1,10, 1,10, False, 'unit foo;', clBlack);
TestNext([], b(10,10, 0), b(20,20, 0), 10,20, 10,20, False, ' ', clBlack);
TestNext([], b(20,20, 0), b(30,30, 0), 20,30, 20,30, False, ' ', clPurple);
TestNext([], b(30,30, 0), b(99,99, 0), 30,99, 30,99, False, ' ', clBlack);
TestEnd;
SynEdit.BlockBegin := Point( 8,1);
SynEdit.BlockEnd := Point(30,1);
TestStart('Scan full line / hl-token', 1, 1, 99, 1);
TestNext([], b( 1, 1, 0), b( 8, 8, 0), 1, 8, 1, 8, False, 'unit fo', clBlack);
TestNext([], b( 8, 8, 0), b(10,10, 0), 8,10, 8,10, False, 'o;', clPurple);
TestNext([], b(10,10, 0), b(30,30, 0), 10,30, 10,30, False, ' ', clPurple);
TestNext([], b(30,30, 0), b(99,99, 0), 30,99, 30,99, False, ' ', clBlack);
TestEnd;
// Paint eol only
SynEdit.BlockBegin := Point( 1,1); // clear selection
TestStart('Scan full line / hl-token', 1, 10, 99, 1);
TestNext([], b(10,10, 0), b(99,99, 0), 10,99, 10,99, False, ' ', clBlack);
TestEnd;
SynEdit.BlockBegin := Point(20,1);
SynEdit.BlockEnd := Point(30,1);
TestStart('Scan full line / hl-token', 1, 25, 99, 1);
TestNext([], b(25,25, 0), b(30,30, 0), 25,30, 25,30, False, ' ', clPurple);
TestNext([], b(30,30, 0), b(99,99, 0), 30,99, 30,99, False, ' ', clBlack);
TestEnd;
{%endregion}
{%region}
SynEdit.Options :=SynEdit.Options + [eoBracketHighlight];
SynEdit.BracketHighlightStyle := sbhsBoth;
SynEdit.BracketMatchColor.Foreground := clMaroon;
SynEdit.BracketMatchColor.FrameColor := clBlack;
SynEdit.BracketMatchColor.FrameEdges := sfeAround;
SynEdit.BracketMatchColor.FrameStyle := slsSolid;
SynEdit.LogicalCaretXY := point(2, 16);
TestStart('Scan full line / hl-token', 16, 1, 10, 16);
TestNext([], b( 1, 1, 0), b( 5, 2, 0), 1, 5, 1, 5, False, #9, clBlack);
AssertEquals(Name + ' #9 No-Frame l', clNone, Token.Attr.FrameSideColors[bsLeft]);
AssertEquals(Name + ' #9 No-Frame r', clNone, Token.Attr.FrameSideColors[bsRight]);
TestNext([], b( 5, 2, 0), b( 6, 3, 0), 5, 6, 5, 6, False, '(', clMaroon);
AssertEquals(Name + ' "(" Frame t', clBlack, Token.Attr.FrameSideColors[bsTop]);
AssertEquals(Name + ' "(" Frame l', clBlack, Token.Attr.FrameSideColors[bsLeft]);
AssertEquals(Name + ' "(" Frame r', clBlack, Token.Attr.FrameSideColors[bsRight]);
TestNext([], b( 6, 3, 0), b( 9, 4, 0), 6, 9, 6, 9, False, #9, clBlack);
{%endregion}
{%endregion}
{%region RTL only }
PushBaseName('RTL-Only - WITH MARKUP');
{%region full line}
SynEdit.BlockBegin := Point( 1,1); // clear selection
TestStart('Scan full line', 11, 1, 90, 11);
TestPreFirst(b( 3, 1, 0), True);
TestNext([], b( 3, 1, 0), b( 1, 5, 0), 1, 3, 1, 3, True, 'شس', clBlack);
TestNext([], b( 3, 5, 0), b(90,92, 0), 3,90, 3,90, False, ' ', clBlack);
TestEnd;
SynEdit.BlockBegin := Point(3,12); // 2nd logical char
SynEdit.BlockEnd := Point(5,12);
TestStart('Scan full line', 12, 1, 90, 12);
TestPreFirst(b( 5, 1, 0), True);
TestNext([], b( 5, 1, 0), b( 4, 3, 0), 4, 5, 4, 5, True, 'ش', clBlack);
TestNext([], b( 4, 3, 0), b( 3, 5, 0), 3, 4, 3, 4, True, 'س', clPurple);
TestNext([], b( 3, 5, 0), b( 1, 8, 0), 1, 3, 1, 3, True, ' ي', clBlack);
TestNext([], b( 5, 8, 0), b(90,93, 0), 5,90, 5,90, False, ' ', clBlack);
TestEnd;
{%endregion}
PopBaseName;
{%endregion}
// HL token ends exactly at LTR to RTL change
SynEdit.BlockBegin := Point(1,1);
TestStart('Scan full line 17 / hl-token', 17, 1, 30, 17);
TestNext([], b( 1, 1, 0), b( 3, 3, 0), 1, 3, 1, 3, False, '//', clBlue);
TestNext([], b(16, 3, 0), b( 3,25, 0), 3,16, 3,16, True, 'شس يشس ي(شس ي', clBlack);
TestNext([], b(16,25, 0), b(30,39, 0), 16,30, 16,30, False, ' ', clBlack);
TestEnd;
SynEdit.BlockBegin := Point( 3,17);
SynEdit.BlockEnd := Point(25,17);
TestStart('Scan full line 17 / hl-token', 17, 1, 30, 17);
TestNext([], b( 1, 1, 0), b( 3, 3, 0), 1, 3, 1, 3, False, '//', clBlue);
TestNext([], b(16, 3, 0), b( 3,25, 0), 3,16, 3,16, True, 'شس يشس ي(شس ي', clPurple);
TestNext([], b(16,25, 0), b(30,39, 0), 16,30, 16,30, False, ' ', clBlack);
TestEnd;
SynEdit.BlockBegin := Point( 3,17);
SynEdit.BlockEnd := Point(22,17); // 2 chars off
TestStart('Scan full line 17 / hl-token', 17, 1, 30, 17);
TestNext([], b( 1, 1, 0), b( 3, 3, 0), 1, 3, 1, 3, False, '//', clBlue);
TestNext([], b(16, 3, 0), b( 5,22, 0), 5,16, 5,16, True, 'شس يشس ي(شس', clPurple);
TestNext([], b( 5,22, 0), b( 3,25, 0), 3, 5, 3, 5, True, ' ي', clBlack);
TestNext([], b(16,25, 0), b(30,39, 0), 16,30, 16,30, False, ' ', clBlack);
TestEnd;
SynEdit.BlockBegin := Point( 7,17); // 2 chars off
SynEdit.BlockEnd := Point(25,17);
TestStart('Scan full line 17 / hl-token', 17, 1, 30, 17);
TestNext([], b( 1, 1, 0), b( 3, 3, 0), 1, 3, 1, 3, False, '//', clBlue);
TestNext([], b(16, 3, 0), b(14, 7, 0), 14,16, 14,16, True, 'شس', clBlack);
TestNext([], b(14, 7, 0), b( 3,25, 0), 3,14, 3,14, True, ' يشس ي(شس ي', clPurple);
TestNext([], b(16,25, 0), b(30,39, 0), 16,30, 16,30, False, ' ', clBlack);
TestEnd;
SynEdit.BlockBegin := Point( 7,17);
SynEdit.BlockEnd := Point(22,17);
TestStart('Scan full line 17 / hl-token', 17, 1, 30, 17);
TestNext([], b( 1, 1, 0), b( 3, 3, 0), 1, 3, 1, 3, False, '//', clBlue);
TestNext([], b(16, 3, 0), b(14, 7, 0), 14,16, 14,16, True, 'شس', clBlack);
TestNext([], b(14, 7, 0), b( 5,22, 0), 5,14, 5,14, True, ' يشس ي(شس', clPurple);
TestNext([], b( 5,22, 0), b( 3,25, 0), 3, 5, 3, 5, True, ' ي', clBlack);
TestNext([], b(16,25, 0), b(30,39, 0), 16,30, 16,30, False, ' ', clBlack);
TestEnd;
// Mixed RTL (and weak)
// increase LeftChar
SynEdit.BlockBegin := Point(1,1);
TestStart('Scan full line 18 / hl-token', 18, 1, 30, 18);
TestNext([], b( 1, 1, 0), b( 7, 7, 0), 1, 7, 1, 7, False, 'a ', clGreen);
TestNext([], b( 7, 7, 0), b( 8, 8, 0), 7, 8, 7, 8, False, '''', clYellow);
TestNext([], b(10, 8, 0), b( 8,12, 0), 8,10, 8,10, True, 'شس', clBlue);
TestNext([], b(10,12, 0), b(11,13, 0), 10,11, 10,11, False, '''', clYellow);
TestNext([], b(11,13, 0), b(12,14, 0), 11,12, 11,12, False, 'b', clRed);
TestNext([], b(12,14, 0), b(30,32, 0), 12,30, 12,30, False, ' ', clBlack);
TestEnd;
TestStart('Scan full line 18 / hl-token', 18, 2, 30, 18);
TestNext([], b( 2, 2, 0), b( 7, 7, 0), 2, 7, 2, 7, False, ' ', clGreen);
TestNext([], b( 7, 7, 0), b( 8, 8, 0), 7, 8, 7, 8, False, '''', clYellow);
TestNext([], b(10, 8, 0), b( 8,12, 0), 8,10, 8,10, True, 'شس', clBlue);
TestNext([], b(10,12, 0), b(11,13, 0), 10,11, 10,11, False, '''', clYellow);
TestNext([], b(11,13, 0), b(12,14, 0), 11,12, 11,12, False, 'b', clRed);
TestNext([], b(12,14, 0), b(30,32, 0), 12,30, 12,30, False, ' ', clBlack);
TestEnd;
TestStart('Scan full line 18 / hl-token', 18, 3, 30, 18);
TestNext([], b( 3, 3, 0), b( 7, 7, 0), 3, 7, 3, 7, False, ' ', clGreen);
TestNext([], b( 7, 7, 0), b( 8, 8, 0), 7, 8, 7, 8, False, '''', clYellow);
TestNext([], b(10, 8, 0), b( 8,12, 0), 8,10, 8,10, True, 'شس', clBlue);
TestNext([], b(10,12, 0), b(11,13, 0), 10,11, 10,11, False, '''', clYellow);
TestNext([], b(11,13, 0), b(12,14, 0), 11,12, 11,12, False, 'b', clRed);
TestNext([], b(12,14, 0), b(30,32, 0), 12,30, 12,30, False, ' ', clBlack);
TestEnd;
TestStart('Scan full line 18 / hl-token', 18, 4, 30, 18);
TestNext([], b( 4, 4, 0), b( 7, 7, 0), 4, 7, 4, 7, False, ' ', clGreen);
TestNext([], b( 7, 7, 0), b( 8, 8, 0), 7, 8, 7, 8, False, '''', clYellow);
TestNext([], b(10, 8, 0), b( 8,12, 0), 8,10, 8,10, True, 'شس', clBlue);
TestNext([], b(10,12, 0), b(11,13, 0), 10,11, 10,11, False, '''', clYellow);
TestNext([], b(11,13, 0), b(12,14, 0), 11,12, 11,12, False, 'b', clRed);
TestNext([], b(12,14, 0), b(30,32, 0), 12,30, 12,30, False, ' ', clBlack);
TestEnd;
TestStart('Scan full line 18 / hl-token', 18, 5, 30, 18);
TestNext([], b( 5, 5, 0), b( 7, 7, 0), 5, 7, 5, 7, False, ' ', clGreen);
TestNext([], b( 7, 7, 0), b( 8, 8, 0), 7, 8, 7, 8, False, '''', clYellow);
TestNext([], b(10, 8, 0), b( 8,12, 0), 8,10, 8,10, True, 'شس', clBlue);
TestNext([], b(10,12, 0), b(11,13, 0), 10,11, 10,11, False, '''', clYellow);
TestNext([], b(11,13, 0), b(12,14, 0), 11,12, 11,12, False, 'b', clRed);
TestNext([], b(12,14, 0), b(30,32, 0), 12,30, 12,30, False, ' ', clBlack);
TestEnd;
TestStart('Scan full line 18 / hl-token', 18, 6, 30, 18);
TestNext([], b( 6, 6, 0), b( 7, 7, 0), 6, 7, 6, 7, False, ' ', clGreen);
TestNext([], b( 7, 7, 0), b( 8, 8, 0), 7, 8, 7, 8, False, '''', clYellow);
TestNext([], b(10, 8, 0), b( 8,12, 0), 8,10, 8,10, True, 'شس', clBlue);
TestNext([], b(10,12, 0), b(11,13, 0), 10,11, 10,11, False, '''', clYellow);
TestNext([], b(11,13, 0), b(12,14, 0), 11,12, 11,12, False, 'b', clRed);
TestNext([], b(12,14, 0), b(30,32, 0), 12,30, 12,30, False, ' ', clBlack);
TestEnd;
TestStart('Scan full line 18 / hl-token', 18, 7, 30, 18);
TestNext([], b( 7, 7, 0), b( 8, 8, 0), 7, 8, 7, 8, False, '''', clYellow);
TestNext([], b(10, 8, 0), b( 8,12, 0), 8,10, 8,10, True, 'شس', clBlue);
TestNext([], b(10,12, 0), b(11,13, 0), 10,11, 10,11, False, '''', clYellow);
TestNext([], b(11,13, 0), b(12,14, 0), 11,12, 11,12, False, 'b', clRed);
TestNext([], b(12,14, 0), b(30,32, 0), 12,30, 12,30, False, ' ', clBlack);
TestEnd;
TestStart('Scan full line 18 / hl-token', 18, 8, 30, 18);
TestNext([], b(10, 8, 0), b( 8,12, 0), 8,10, 8,10, True, 'شس', clBlue);
TestNext([], b(10,12, 0), b(11,13, 0), 10,11, 10,11, False, '''', clYellow);
TestNext([], b(11,13, 0), b(12,14, 0), 11,12, 11,12, False, 'b', clRed);
TestNext([], b(12,14, 0), b(30,32, 0), 12,30, 12,30, False, ' ', clBlack);
TestEnd;
TestStart('Scan full line 18 / hl-token', 18, 9, 30, 18);
TestNext([], b(10, 8, 0), b( 9,10, 0), 9,10, 9,10, True, 'ش', clBlue);
TestNext([], b(10,12, 0), b(11,13, 0), 10,11, 10,11, False, '''', clYellow);
TestNext([], b(11,13, 0), b(12,14, 0), 11,12, 11,12, False, 'b', clRed);
TestNext([], b(12,14, 0), b(30,32, 0), 12,30, 12,30, False, ' ', clBlack);
TestEnd;
TestStart('Scan full line 18 / hl-token', 18, 10, 30, 18);
TestNext([], b(10,12, 0), b(11,13, 0), 10,11, 10,11, False, '''', clYellow);
TestNext([], b(11,13, 0), b(12,14, 0), 11,12, 11,12, False, 'b', clRed);
TestNext([], b(12,14, 0), b(30,32, 0), 12,30, 12,30, False, ' ', clBlack);
TestEnd;
TestStart('Scan full line 18 / hl-token', 18, 11, 30, 18);
TestNext([], b(11,13, 0), b(12,14, 0), 11,12, 11,12, False, 'b', clRed);
TestNext([], b(12,14, 0), b(30,32, 0), 12,30, 12,30, False, ' ', clBlack);
TestEnd;
// Mixed RTL (and weak), end in RTL
// increase LeftChar
SynEdit.BlockBegin := Point(1,1);
TestStart('Scan full line 18 / hl-token', 19, 1, 30, 19);
TestNext([], b( 1, 1, 0), b( 7, 7, 0), 1, 7, 1, 7, False, 'a ', clGreen);
TestNext([], b( 7, 7, 0), b( 8, 8, 0), 7, 8, 7, 8, False, '''', clYellow);
TestNext([], b(12, 8, 0), b( 8,16, 0), 8,12, 8,12, True, 'شسقف', clBlue);
TestNext([], b(12,16, 0), b(30,34, 0), 12,30, 12,30, False, ' ', clBlack);
TestEnd;
TestStart('Scan full line 18 / hl-token', 19, 2, 30, 19);
TestNext([], b( 2, 2, 0), b( 7, 7, 0), 2, 7, 2, 7, False, ' ', clGreen);
TestNext([], b( 7, 7, 0), b( 8, 8, 0), 7, 8, 7, 8, False, '''', clYellow);
TestNext([], b(12, 8, 0), b( 8,16, 0), 8,12, 8,12, True, 'شسقف', clBlue);
TestNext([], b(12,16, 0), b(30,34, 0), 12,30, 12,30, False, ' ', clBlack);
TestEnd;
TestStart('Scan full line 18 / hl-token', 19, 3, 30, 19);
TestNext([], b( 3, 3, 0), b( 7, 7, 0), 3, 7, 3, 7, False, ' ', clGreen);
TestNext([], b( 7, 7, 0), b( 8, 8, 0), 7, 8, 7, 8, False, '''', clYellow);
TestNext([], b(12, 8, 0), b( 8,16, 0), 8,12, 8,12, True, 'شسقف', clBlue);
TestNext([], b(12,16, 0), b(30,34, 0), 12,30, 12,30, False, ' ', clBlack);
TestEnd;
TestStart('Scan full line 18 / hl-token', 19, 4, 30, 19);
TestNext([], b( 4, 4, 0), b( 7, 7, 0), 4, 7, 4, 7, False, ' ', clGreen);
TestNext([], b( 7, 7, 0), b( 8, 8, 0), 7, 8, 7, 8, False, '''', clYellow);
TestNext([], b(12, 8, 0), b( 8,16, 0), 8,12, 8,12, True, 'شسقف', clBlue);
TestNext([], b(12,16, 0), b(30,34, 0), 12,30, 12,30, False, ' ', clBlack);
TestEnd;
TestStart('Scan full line 18 / hl-token', 19, 5, 30, 19);
TestNext([], b( 5, 5, 0), b( 7, 7, 0), 5, 7, 5, 7, False, ' ', clGreen);
TestNext([], b( 7, 7, 0), b( 8, 8, 0), 7, 8, 7, 8, False, '''', clYellow);
TestNext([], b(12, 8, 0), b( 8,16, 0), 8,12, 8,12, True, 'شسقف', clBlue);
TestNext([], b(12,16, 0), b(30,34, 0), 12,30, 12,30, False, ' ', clBlack);
TestEnd;
TestStart('Scan full line 18 / hl-token', 19, 6, 30, 19);
TestNext([], b( 6, 6, 0), b( 7, 7, 0), 6, 7, 6, 7, False, ' ', clGreen);
TestNext([], b( 7, 7, 0), b( 8, 8, 0), 7, 8, 7, 8, False, '''', clYellow);
TestNext([], b(12, 8, 0), b( 8,16, 0), 8,12, 8,12, True, 'شسقف', clBlue);
TestNext([], b(12,16, 0), b(30,34, 0), 12,30, 12,30, False, ' ', clBlack);
TestEnd;
TestStart('Scan full line 18 / hl-token', 19, 7, 30, 19);
TestNext([], b( 7, 7, 0), b( 8, 8, 0), 7, 8, 7, 8, False, '''', clYellow);
TestNext([], b(12, 8, 0), b( 8,16, 0), 8,12, 8,12, True, 'شسقف', clBlue);
TestNext([], b(12,16, 0), b(30,34, 0), 12,30, 12,30, False, ' ', clBlack);
TestEnd;
TestStart('Scan full line 18 / hl-token', 19, 8, 30, 19);
TestNext([], b(12, 8, 0), b( 8,16, 0), 8,12, 8,12, True, 'شسقف', clBlue);
TestNext([], b(12,16, 0), b(30,34, 0), 12,30, 12,30, False, ' ', clBlack);
TestEnd;
TestStart('Scan full line 18 / hl-token', 19, 9, 30, 19);
TestNext([], b(12, 8, 0), b( 9,14, 0), 9,12, 9,12, True, 'شسق', clBlue);
TestNext([], b(12,16, 0), b(30,34, 0), 12,30, 12,30, False, ' ', clBlack);
TestEnd;
TestStart('Scan full line 18 / hl-token', 19, 10, 30, 19);
TestNext([], b(12, 8, 0), b(10,12, 0), 10,12, 10,12, True, 'شس', clBlue);
TestNext([], b(12,16, 0), b(30,34, 0), 12,30, 12,30, False, ' ', clBlack);
TestEnd;
TestStart('Scan full line 18 / hl-token', 19, 11, 30, 19);
TestNext([], b(12, 8, 0), b(11,10, 0), 11,12, 11,12, True, 'ش', clBlue);
TestNext([], b(12,16, 0), b(30,34, 0), 12,30, 12,30, False, ' ', clBlack);
TestEnd;
TestStart('Scan full line 18 / hl-token', 19, 12, 30, 19);
TestNext([], b(12,16, 0), b(30,34, 0), 12,30, 12,30, False, ' ', clBlack);
TestEnd;
TestStart('Scan full line 18 / hl-token', 19, 13, 30, 19);
TestNext([], b(13,17, 0), b(30,34, 0), 13,30, 13,30, False, ' ', clBlack);
TestEnd;
// Change highlight, so last char is diff color
SynEdit.BlockBegin := Point(1,1);
TestStart('Scan full line 18 / hl-token', 20, 1, 30, 20);
TestNext([], b( 1, 1, 0), b( 7, 7, 0), 1, 7, 1, 7, False, 'a ', clGreen);
TestNext([], b( 7, 7, 0), b( 8, 8, 0), 7, 8, 7, 8, False, '''', clYellow);
TestNext([], b(12, 8, 0), b( 9,14, 0), 9,12, 9,12, True, 'شسق', clRed);
TestNext([], b( 9,14, 0), b( 8,16, 0), 8, 9, 8, 9, True, 'ف', clBlue);
TestNext([], b(12,16, 0), b(30,34, 0), 12,30, 12,30, False, ' ', clBlack);
TestEnd;
TestStart('Scan full line 18 / hl-token', 20, 2, 30, 20);
TestNext([], b( 2, 2, 0), b( 7, 7, 0), 2, 7, 2, 7, False, ' ', clGreen);
TestNext([], b( 7, 7, 0), b( 8, 8, 0), 7, 8, 7, 8, False, '''', clYellow);
TestNext([], b(12, 8, 0), b( 9,14, 0), 9,12, 9,12, True, 'شسق', clRed);
TestNext([], b( 9,14, 0), b( 8,16, 0), 8, 9, 8, 9, True, 'ف', clBlue);
TestNext([], b(12,16, 0), b(30,34, 0), 12,30, 12,30, False, ' ', clBlack);
TestEnd;
TestStart('Scan full line 18 / hl-token', 20, 3, 30, 20);
TestNext([], b( 3, 3, 0), b( 7, 7, 0), 3, 7, 3, 7, False, ' ', clGreen);
TestNext([], b( 7, 7, 0), b( 8, 8, 0), 7, 8, 7, 8, False, '''', clYellow);
TestNext([], b(12, 8, 0), b( 9,14, 0), 9,12, 9,12, True, 'شسق', clRed);
TestNext([], b( 9,14, 0), b( 8,16, 0), 8, 9, 8, 9, True, 'ف', clBlue);
TestNext([], b(12,16, 0), b(30,34, 0), 12,30, 12,30, False, ' ', clBlack);
TestEnd;
TestStart('Scan full line 18 / hl-token', 20, 4, 30, 20);
TestNext([], b( 4, 4, 0), b( 7, 7, 0), 4, 7, 4, 7, False, ' ', clGreen);
TestNext([], b( 7, 7, 0), b( 8, 8, 0), 7, 8, 7, 8, False, '''', clYellow);
TestNext([], b(12, 8, 0), b( 9,14, 0), 9,12, 9,12, True, 'شسق', clRed);
TestNext([], b( 9,14, 0), b( 8,16, 0), 8, 9, 8, 9, True, 'ف', clBlue);
TestNext([], b(12,16, 0), b(30,34, 0), 12,30, 12,30, False, ' ', clBlack);
TestEnd;
TestStart('Scan full line 18 / hl-token', 20, 5, 30, 20);
TestNext([], b( 5, 5, 0), b( 7, 7, 0), 5, 7, 5, 7, False, ' ', clGreen);
TestNext([], b( 7, 7, 0), b( 8, 8, 0), 7, 8, 7, 8, False, '''', clYellow);
TestNext([], b(12, 8, 0), b( 9,14, 0), 9,12, 9,12, True, 'شسق', clRed);
TestNext([], b( 9,14, 0), b( 8,16, 0), 8, 9, 8, 9, True, 'ف', clBlue);
TestNext([], b(12,16, 0), b(30,34, 0), 12,30, 12,30, False, ' ', clBlack);
TestEnd;
TestStart('Scan full line 18 / hl-token', 20, 6, 30, 20);
TestNext([], b( 6, 6, 0), b( 7, 7, 0), 6, 7, 6, 7, False, ' ', clGreen);
TestNext([], b( 7, 7, 0), b( 8, 8, 0), 7, 8, 7, 8, False, '''', clYellow);
TestNext([], b(12, 8, 0), b( 9,14, 0), 9,12, 9,12, True, 'شسق', clRed);
TestNext([], b( 9,14, 0), b( 8,16, 0), 8, 9, 8, 9, True, 'ف', clBlue);
TestNext([], b(12,16, 0), b(30,34, 0), 12,30, 12,30, False, ' ', clBlack);
TestEnd;
TestStart('Scan full line 18 / hl-token', 20, 7, 30, 20);
TestNext([], b( 7, 7, 0), b( 8, 8, 0), 7, 8, 7, 8, False, '''', clYellow);
TestNext([], b(12, 8, 0), b( 9,14, 0), 9,12, 9,12, True, 'شسق', clRed);
TestNext([], b( 9,14, 0), b( 8,16, 0), 8, 9, 8, 9, True, 'ف', clBlue);
TestNext([], b(12,16, 0), b(30,34, 0), 12,30, 12,30, False, ' ', clBlack);
TestEnd;
TestStart('Scan full line 18 / hl-token', 20, 8, 30, 20);
TestNext([], b(12, 8, 0), b( 9,14, 0), 9,12, 9,12, True, 'شسق', clRed);
TestNext([], b( 9,14, 0), b( 8,16, 0), 8, 9, 8, 9, True, 'ف', clBlue);
TestNext([], b(12,16, 0), b(30,34, 0), 12,30, 12,30, False, ' ', clBlack);
TestEnd;
TestStart('Scan full line 18 / hl-token', 20, 9, 30, 20);
TestNext([], b(12, 8, 0), b( 9,14, 0), 9,12, 9,12, True, 'شسق', clRed);
TestNext([], b(12,16, 0), b(30,34, 0), 12,30, 12,30, False, ' ', clBlack);
TestEnd;
TestStart('Scan full line 18 / hl-token', 20, 10, 30, 20);
TestNext([], b(12, 8, 0), b(10,12, 0), 10,12, 10,12, True, 'شس', clRed);
TestNext([], b(12,16, 0), b(30,34, 0), 12,30, 12,30, False, ' ', clBlack);
TestEnd;
TestStart('Scan full line 18 / hl-token', 20, 11, 30, 20);
TestNext([], b(12, 8, 0), b(11,10, 0), 11,12, 11,12, True, 'ش', clRed);
TestNext([], b(12,16, 0), b(30,34, 0), 12,30, 12,30, False, ' ', clBlack);
TestEnd;
TestStart('Scan full line 18 / hl-token', 20, 12, 30, 20);
TestNext([], b(12,16, 0), b(30,34, 0), 12,30, 12,30, False, ' ', clBlack);
TestEnd;
TestStart('Scan full line 18 / hl-token', 20, 13, 30, 20);
TestNext([], b(13,17, 0), b(30,34, 0), 13,30, 13,30, False, ' ', clBlack);
TestEnd;
SynEdit.ViewedTextBuffer.DisplayView.FinishHighlighterTokens;
end;
begin
PushBaseName('Incl PreFirst');
SkipPreFirst := False;
DoTests;
PopPushBaseName('Excl PreFirst');
SkipPreFirst := True;
DoTests;
PopBaseName;
end;
initialization
RegisterTest(TTestSynTextArea);
end.
Reference in New Issue View Git Blame Copy Permalink