paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 17:39:22 +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; procedure TTestRefactoring.TestRenameAlsoLFM_Variable;
var var
RedLFM, RedUnit: TCodeBuffer; Test1LFM, RedUnit: TCodeBuffer;
begin begin
exit;
RedUnit:=CodeToolBoss.CreateFile('red.pas'); RedUnit:=CodeToolBoss.CreateFile('red.pas');
RedLFM:=CodeToolBoss.CreateFile(ChangeFileExt(Code.Filename,'.lfm')); Test1LFM:=CodeToolBoss.CreateFile(ChangeFileExt(Code.Filename,'.lfm'));
try try
RedUnit.Source:='unit Red;'+LineEnding RedUnit.Source:='unit Red;'+LineEnding
+'interface'+LineEnding +'interface'+LineEnding
@ -2011,7 +2009,7 @@ begin
+'implementation'+LineEnding +'implementation'+LineEnding
+'end.'; +'end.';
RedLFM.Source:=LinesToStr([ Test1LFM.Source:=LinesToStr([
'object Form1: TForm1', 'object Form1: TForm1',
' Left = 353', ' Left = 353',
' object Button1: TButton', ' object Button1: TButton',
@ -2029,7 +2027,7 @@ begin
'implementation', 'implementation',
'end.']); 'end.']);
RenameReferences('OkBtn',[frfIncludingLFM,frfIncludingLFMProps]); RenameReferences('OkBtn',[frfIncludingLFM,frfIncludingLFMProps]);
CheckDiff(RedLFM,[ CheckDiff(Test1LFM,[
'object Form1: TForm1', 'object Form1: TForm1',
' Left = 353', ' Left = 353',
' object OkBtn: TButton', ' object OkBtn: TButton',
@ -2038,7 +2036,7 @@ begin
finally finally
RedUnit.IsDeleted:=true; RedUnit.IsDeleted:=true;
RedLFM.IsDeleted:=true; Test1LFM.IsDeleted:=true;
end; end;
end; end;