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

SynEdit: more tests

Browse Source 
git-svn-id: trunk@60518 -
This commit is contained in:
martin 2019-02-26 18:51:54 +00:00
parent b5b5dab6de
commit ad27ccb3c5
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/synedit/test/testmarkuphighall.pas
View File

@ -149,12 +149,12 @@ begin
Dict := TSynSearchDictionary.Create;
Dict.Add('foo' , 0);
Dict.Add('foo' , 0); // IDX 0
Dict.Add('Hello' , 1);
Dict.Add('yello12345', 2);
Dict.Add( 'lo123' , 3);
Dict.Add( 'lo789' , 4);
Dict.Add('hell' , 5);
Dict.Add('hell' , 5); // IDX 5
Dict.Add('hatter' , 6);
Dict.Add('log' , 7);
Dict.Add('lantern' , 8);
@ -449,6 +449,9 @@ Dict.Add('uložit', 0);
//Dict.BuildDictionary;
//Dict.DebugPrint(true);
AssertEquals('GetMatchAtChar longer', 12,Dict.GetMatchAtChar('YESTERDAY ', 10, nil));
AssertEquals('GetMatchAtChar exact len', 12,Dict.GetMatchAtChar('YESTERDAY ', 9, nil));
AssertEquals('GetMatchAtChar too short', -1,Dict.GetMatchAtChar('YESTERDAY ', 8, nil));
Dict.Free;
end;