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

Test: fixed typos related to 'occur' word

Browse Source 
git-svn-id: trunk@65208 -
This commit is contained in:
maxim 2021-06-10 22:22:38 +00:00
parent b8d0d9366b
commit cdadfd0cf5
1 changed files with 1 additions and 1 deletions

2
test/lazutils/testlazutf8.pas
View File

@ -66,7 +66,7 @@ end;
procedure TTestLazUTF8.TestUTF8Pos;
begin
AssertEquals('Skip first occurence',4,UTF8Pos('ab','abcabc',2));
AssertEquals('Skip first occurrence',4,UTF8Pos('ab','abcabc',2));
AssertEquals('Not found',0,UTF8Pos('abc'#0,'abcabc'));
AssertEquals('Check #0',2,UTF8Pos('bc'#0,'abc'#0'abc'));
end;