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

codetools: fixed typo

Browse Source
This commit is contained in:
mattias 2025-05-16 15:42:44 +02:00
parent 1f9623085b
commit d80d642a7e
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/codetools/tests/testrefactoring.pas
View File

@ -1994,12 +1994,10 @@ end;
procedure TTestRefactoring.TestRenameAlsoLFM_Variable;
var
RedLFM, RedUnit: TCodeBuffer;
Test1LFM, RedUnit: TCodeBuffer;
begin
exit;
RedUnit:=CodeToolBoss.CreateFile('red.pas');
RedLFM:=CodeToolBoss.CreateFile(ChangeFileExt(Code.Filename,'.lfm'));
Test1LFM:=CodeToolBoss.CreateFile(ChangeFileExt(Code.Filename,'.lfm'));
try
RedUnit.Source:='unit Red;'+LineEnding
+'interface'+LineEnding
@ -2011,7 +2009,7 @@ begin
+'implementation'+LineEnding
+'end.';
RedLFM.Source:=LinesToStr([
Test1LFM.Source:=LinesToStr([
'object Form1: TForm1',
' Left = 353',
' object Button1: TButton',
@ -2029,7 +2027,7 @@ begin
'implementation',
'end.']);
RenameReferences('OkBtn',[frfIncludingLFM,frfIncludingLFMProps]);
CheckDiff(RedLFM,[
CheckDiff(Test1LFM,[
'object Form1: TForm1',
' Left = 353',
' object OkBtn: TButton',
@ -2038,7 +2036,7 @@ begin
finally
RedUnit.IsDeleted:=true;
RedLFM.IsDeleted:=true;
Test1LFM.IsDeleted:=true;
end;
end;