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

tests: lcl: TTextStrings.Exchange

Browse Source 
git-svn-id: trunk@44857 -
This commit is contained in:
mattias 2014-04-30 17:08:44 +00:00
parent 5c4d4f6342
commit c8dcdc60a8
1 changed files with 25 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
test/lcltests/testtextstrings.pas
View File

@ -6,6 +6,7 @@
./runtests --format=plain --suite=TestTextStringsBasic
./runtests --format=plain --suite=TestTextStringsLists
./runtests --format=plain --suite=TestTextStringsTexts
./runtests --format=plain --suite=TestTextStringsExchange
}
unit TestTextStrings;
@ -15,7 +16,7 @@ interface
uses
Classes, SysUtils, LCLProc, Forms, Controls, ExtCtrls, TextStrings,
fpcunit, testglobals;
fpcunit, testglobals, LazLogger;
type
@ -26,6 +27,7 @@ type
procedure TestTextStringsBasic;
procedure TestTextStringsLists;
procedure TestTextStringsTexts;
procedure TestTextStringsExchange;
end;
implementation
@ -97,6 +99,28 @@ begin
end;
end;
procedure TTestTextStrings.TestTextStringsExchange;
var
ts1: TTextStrings;
begin
ts1:=TTextStrings.Create;
try
ts1.Clear;
ts1.Add('1');
ts1.Add('22');
ts1.Exchange(0,1);
AssertEquals('Exchange 1,22 to 22,1 text','22'+LineEnding+'1'+LineEnding,ts1.Text);
AssertEquals('Exchange 1,22 to 22,1 first line','22',ts1[0]);
AssertEquals('Exchange 1,22 to 22,1 second line','1',ts1[1]);
ts1.Exchange(0,1);
AssertEquals('Exchange 22,1 to 1,22 text','1'+LineEnding+'22'+LineEnding,ts1.Text);
AssertEquals('Exchange 22,1 to 1,22 first line','1',ts1[0]);
AssertEquals('Exchange 22,1 to 1,22 second line','22',ts1[1]);
finally
ts1.Free;
end;
end;
initialization
AddToLCLTestSuite(TTestTextStrings);