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

tests: added test for sourcelog.ChangeLineEndings

Browse Source 
git-svn-id: trunk@47833 -
This commit is contained in:
mattias 2015-02-16 21:17:15 +00:00
parent 9a8ecaceff
commit 2c38fa14fc
1 changed files with 26 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
test/codetoolstests/testbasiccodetools.pas
View File

@ -11,6 +11,7 @@
./runtests --format=plain --suite=TestSimpleFormat
./runtests --format=plain --suite=TestDateToCfgStr
./runtests --format=plain --suite=TestFilenameIsMatching
./runtests --format=plain --suite=TestChangeLineEndings
}
unit TestBasicCodetools;
@ -19,7 +20,7 @@ unit TestBasicCodetools;
interface
uses
fpcunit, Classes, SysUtils, testglobals, FileProcs, BasicCodeTools;
fpcunit, Classes, SysUtils, testglobals, FileProcs, BasicCodeTools, SourceLog;
type
{ TTestBasicCodeTools }
@ -39,6 +40,8 @@ type
// FileProcs
procedure TestDateToCfgStr;
procedure TestFilenameIsMatching;
// SourceLog
procedure TestChangeLineEndings;
end;
implementation
@ -369,6 +372,28 @@ begin
t('*.{p{as,p,},inc}','c.lfm',true,false);
end;
procedure TTestBasicCodeTools.TestChangeLineEndings;
procedure t(s, NewLineEnding, Expected: string);
var
Actual: string;
begin
Actual:=ChangeLineEndings(s,NewLineEnding);
if Actual=Expected then exit;
AssertEquals('s="'+DbgStr(s)+'" NewLineEnding="'+DbgStr(NewLineEnding)+'"',DbgStr(Expected),DbgStr(Actual));
end;
begin
t('','','');
t('A',#10,'A');
t('A'#10,#10,'A'#10);
t(#10'A',#10,#10'A');
t('A'#13,#13,'A'#13);
t(#13'A',#13,#13'A');
t('A'#13#10,#10,'A'#10);
t(#13#10'A',#10,#10'A');
end;
initialization
AddToCodetoolsTestSuite(TTestBasicCodeTools);