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

tests: added TestReIndent

Browse Source 
git-svn-id: trunk@40806 -
This commit is contained in:
mattias 2013-04-14 18:45:19 +00:00
parent 57bb6ad932
commit bf56f3685f
1 changed files with 27 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
test/codetoolstests/testbasiccodetools.pas
View File

@ -7,6 +7,7 @@
./runtests --format=plain --suite=TestBasicFindNextComment
./runtests --format=plain --suite=TestCompareTextIgnoringSpace
./runtests --format=plain --suite=TestGuessIndentSize
./runtests --format=plain --suite=TestReindent
}
unit TestBasicCodetools;
@ -29,6 +30,7 @@ type
procedure TestBasicFindNextComment;
procedure TestCompareTextIgnoringSpace;
procedure TestGuessIndentSize;
procedure TestReIndent;
end;
implementation
@ -188,6 +190,31 @@ begin
t(' a'#10' b'#10' c',2);
end;
procedure TTestBasicCodeTools.TestReIndent;
procedure t(Src: string; OldIndent,OldTabWidth, NewIndentStep, NewTabWidth: integer; ExpectedSrc: string);
var
ActualSrc: String;
begin
ActualSrc:=ReIndent(Src,OldIndent,OldTabWidth, NewIndentStep, NewTabWidth);
if ExpectedSrc=ActualSrc then exit;
writeln(dbgsDiff(ExpectedSrc,ActualSrc));
AssertEquals('"'+DbgStr(Src)+'"',true,false);
end;
begin
t('',2,4, 4,4,'');
t('A',2,4, 4,4,'A');
t(' A',2,4, 4,4,#9'A');
t(' A',2,4, 4,4,#9'A');
t(' A',2,4, 4,4,#9#9'A');
t(' A',2,4, 4,4,#9#9'A');
t(' A',2,4, 4,4,#9#9#9'A');
t(' A',2,4, 4,4,#9#9#9'A');
t(#9'A',4,4, 2,0,' A');
t('A'#10' B'#10,2,4, 3,0,'A'#10' B'#10);
end;
initialization
AddToCodetoolsTestSuite(TTestBasicCodeTools);