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

codetools: added test for non identifiers TestCompareIdentifiers

Browse Source
This commit is contained in:
mattias 2024-07-30 12:20:01 +02:00
parent d9ef4ae9ab
commit b79c366239
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/codetools/tests/testbasiccodetools.pas
View File

@ -391,7 +391,7 @@ begin
// Note: CompareIdentifiers expects identifiers or empty.
// Feeding non identifiers like numbers 1 or octal &1 is not defined.
t(nil,nil,0);
t(nil,#0,1);
t(nil,#0,1); // current implementation gives 1, but it could be 0, in fact 0 would be better to make sure the empty string is the same
t(#0,#0,0);
t(#0,#1,0);
t(#1,#2,0);
@ -407,6 +407,10 @@ begin
t('ab;','ab',0);
t('ab;','ab,',0);
t('aAa;','aaA',0);
t('a',';',-1);
t('1','2',1); // current implementation gives 1, but it could be 0, does not matter
t(',',',',0);
t(',',';',0);
end;
procedure TTestBasicCodeTools.TestDateToCfgStr;