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

codetools: added test TTestRefactoring.TestRenameProcReferences

Browse Source 
git-svn-id: trunk@64998 -
This commit is contained in:
pascal 2021-04-15 12:40:31 +00:00
parent 4d1cf08cde
commit cb6eb68d7e
1 changed files with 31 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -33,6 +33,7 @@ type
published published
procedure TestExplodeWith; procedure TestExplodeWith;
procedure TestRenameReferences; procedure TestRenameReferences;
procedure TestRenameProcReferences;
end; end;
implementation implementation
@ -300,6 +301,36 @@ begin
'']); '']);
end; end;
procedure TTestRefactoring.TestRenameProcReferences;
begin
StartProgram;
Add([
'procedure Cow;',
'begin',
'end;',
'',
'begin',
' cow{#Rename};',
' test1.cow;',
'end.',
'']);
RenameReferences('Bird');
CheckDiff(Code,[
'program test1;',
'',
'{$mode objfpc}{$H+}',
'',
'procedure Bird;',
'begin',
'end;',
'',
'begin',
' Bird{#Rename};',
' test1.Bird;',
'end.',
'']);
end;
initialization initialization
RegisterTests([TTestRefactoring]); RegisterTests([TTestRefactoring]);
end. end.