From 29cfa37c376777d95e8e5cbbf3f0a60162dfded6 Mon Sep 17 00:00:00 2001 From: Martin Date: Mon, 3 Mar 2025 16:47:01 +0100 Subject: [PATCH] SynEdit: Test, exclude reg-ex that fails in older fpc 3.2.0 --- components/synedit/test/testsearch.pas | 3 +++ 1 file changed, 3 insertions(+) diff --git a/components/synedit/test/testsearch.pas b/components/synedit/test/testsearch.pas index 806871540e..4545ca0a31 100644 --- a/components/synedit/test/testsearch.pas +++ b/components/synedit/test/testsearch.pas @@ -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;