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

SynEdit: Test for Pas-HL, improved highlighting of index, read, write in properties

Browse Source 
git-svn-id: trunk@27979 -
This commit is contained in:
martin 2010-10-30 16:00:19 +00:00
parent cb4992b88a
commit d054b9bf2d
1 changed files with 118 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -43,6 +43,8 @@ type
published
procedure TestFoldInfo;
procedure TestExtendedKeywordsAndStrings;
procedure TestContextForProcModifiers;
procedure TestContextForProperties;
procedure TestContextForProcedure;
//procedure TestContextForDeprecated;
end;
@ -232,6 +234,7 @@ begin
PasHighLighter.StartAtLineIndex(LineIdx);
c := 0;
while not PasHighLighter.GetEol do begin
//DebugLn([PasHighLighter.GetToken,' (',PasHighLighter.GetTokenID ,') at ', PasHighLighter.GetTokenPos]);
AssertEquals(Name + 'TokenId Line='+IntToStr(LineIdx)+' pos='+IntToStr(c), ord(ExpTokens[c]), ord(PasHighLighter.GetTokenID));
PasHighLighter.Next;
inc(c);
@ -443,6 +446,121 @@ begin
end;
procedure TTestHighlighterPas.TestContextForProcModifiers;
begin
{%region message modifier for procedure}
ReCreateEdit;
SetLines
([ 'Unit A; interface',
'',
'Procedure message(message: message); message 100;',
''
]);
CheckTokensForLine('message', 2,
[ tkKey, tkSpace, tkIdentifier, tkSymbol, // "Procedure", " ", "message", "("
tkIdentifier, tkSymbol, tkSpace, tkIdentifier, // "message",, ":", " ", "message"
tkSymbol, tkSymbol, tkSpace, // ")", ";", " "
tkKey, // "message" as key
tkSpace, tkNumber, tkSymbol
]);
{%endregion}
end;
procedure TTestHighlighterPas.TestContextForProperties;
begin
{%region property and index}
ReCreateEdit;
SetLines
([ 'Unit A; interface',
'type TFoo = class',
'property Index[Index: Integer]: Integer read GetIndex write SetIndex Index 3;',
''
]);
CheckTokensForLine('property with index', 2,
[ tkKey, tkSpace, tkIdentifier, tkSymbol, // "property", " ", "Index", "["
tkIdentifier, tkSymbol, tkSpace, tkIdentifier, // "Index",, ":", " ", "Integer"
tkSymbol, tkSymbol, tkSpace, tkIdentifier, // "]", ":", " ", "Integer"
tkSpace, tkKey, tkSpace, tkIdentifier, // " ", 'read', " ", "GetIndex"
tkSpace, tkKey, tkSpace, tkIdentifier, // " ", 'write', " ", "SetIndex"
tkSpace, tkKey, tkSpace, tkNumber, // '" ", "INDEX" (key), " ", "3"
tkSymbol
]);
SetLines
([ 'Unit A; interface',
'type TFoo = class',
'property AnIndex[Index: Index]: Index read Index write Index Index 3;',
''
]);
CheckTokensForLine('property with index 2', 2,
[ tkKey, tkSpace, tkIdentifier, tkSymbol, // "property", " ", "AnIndex", "["
tkIdentifier, tkSymbol, tkSpace, tkIdentifier, // "Index",, ":", " ", "Index"
tkSymbol, tkSymbol, tkSpace, tkIdentifier, // "]", ":", " ", "Index"
tkSpace, tkKey, tkSpace, tkIdentifier, // " ", 'read', " ", "Index"
tkSpace, tkKey, tkSpace, tkIdentifier, // " ", 'write', " ", "Index"
tkSpace, tkKey, tkSpace, tkNumber, // '" ", "INDEX" (key), " ", "3"
tkSymbol
]);
SetLines
([ 'Unit A; interface',
'type',
'Index = Integer;',
'Foo = Index;',
'',
'var',
'Foo, Index: Index;',
'Index: Index;',
''
]);
CheckTokensForLine('index outside property', 2,
[tkIdentifier, tkSpace, tkSymbol, tkSpace, tkIdentifier, tkSymbol]);
CheckTokensForLine('index outside property', 3,
[tkIdentifier, tkSpace, tkSymbol, tkSpace, tkIdentifier, tkSymbol]);
CheckTokensForLine('index outside property', 6,
[tkIdentifier, tkSymbol, tkSpace, tkIdentifier, tkSymbol, tkSpace, tkIdentifier, tkSymbol]);
CheckTokensForLine('index outside property', 7,
[tkIdentifier, tkSymbol, tkSpace, tkIdentifier, tkSymbol]);
{%endregion}
{%region property and read/write}
ReCreateEdit;
SetLines
([ 'Unit A; interface',
'type TFoo = class',
'property read[read: read]: read read read write read;',
''
]);
CheckTokensForLine('property "read"', 2,
[ tkKey, tkSpace, tkIdentifier, tkSymbol, // "property", " ", "read", "["
tkIdentifier, tkSymbol, tkSpace, tkIdentifier, // "read",, ":", " ", "read"
tkSymbol, tkSymbol, tkSpace, tkIdentifier, // "]", ":", " ", "read"
tkSpace, tkKey, tkSpace, tkIdentifier, // " ", 'READ', " ", "read"
tkSpace, tkKey, tkSpace, tkIdentifier, // " ", 'write', " ", "read"
tkSymbol
]);
ReCreateEdit;
SetLines
([ 'Unit A; interface',
'type TFoo = class',
'property write[write: write]: write read write write write;',
''
]);
CheckTokensForLine('property "write"', 2,
[ tkKey, tkSpace, tkIdentifier, tkSymbol, // "property", " ", "write", "["
tkIdentifier, tkSymbol, tkSpace, tkIdentifier, // "write",, ":", " ", "write"
tkSymbol, tkSymbol, tkSpace, tkIdentifier, // "]", ":", " ", "write"
tkSpace, tkKey, tkSpace, tkIdentifier, // " ", 'read', " ", "write"
tkSpace, tkKey, tkSpace, tkIdentifier, // " ", 'write', " ", "write"
tkSymbol
]);
{%endregion}
end;
procedure TTestHighlighterPas.TestContextForProcedure;
begin
ReCreateEdit;