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

SynEdit: Test, exclude reg-ex that fails in older fpc 3.2.0

Browse Source
This commit is contained in:
Martin 2025-03-03 16:47:01 +01:00
parent 847dee461c
commit 29cfa37c37
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/synedit/test/testsearch.pas
View File

@ -192,9 +192,12 @@ begin
TestFindNext('RegEx', '(t...),', 1,2, 25,3, true, 15,2, 20,2);
AssertEquals('RegexRepl', 'aTextB', fTSearch.RegExprReplace);
// Not supported by fpc 3.2.0 ASupportUnicodeCase
{$IF FPC_FULLVERSION >= 030202}
fTSearch.Sensitive := True;
TestFindNext('RegEx Case', '(t...),', 1,2, 25,3, true, 15,3, 20,3);
AssertEquals('RegexRepl Case', 'atextB', fTSearch.RegExprReplace);
{$ENDIF}
fTSearch.Free;
end;