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

TAChart: Add test for TListChartSource.CopyFrom

Browse Source 
git-svn-id: trunk@33134 -
This commit is contained in:
ask 2011-10-28 11:56:59 +00:00
parent 3a789c3c8a
commit 678f40a024
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
components/tachart/test/SourcesTest.pas
View File

@ -199,6 +199,9 @@ begin
end; end;
procedure TListSourceTest.Basic; procedure TListSourceTest.Basic;
var
i: Integer;
srcDest: TListChartSource;
begin begin
FSource.Clear; FSource.Clear;
AssertEquals(0, FSource.Count); AssertEquals(0, FSource.Count);
@ -206,6 +209,18 @@ begin
AssertEquals(1, FSource.Count); AssertEquals(1, FSource.Count);
FSource.Delete(0); FSource.Delete(0);
AssertEquals(0, FSource.Count); AssertEquals(0, FSource.Count);
for i := 1 to 10 do
FSource.Add(i, i * 2, IntToStr(i));
srcDest := TListChartSource.Create(nil);
try
srcDest.CopyFrom(FSource);
AssertEquals(FSource.Count, srcDest.Count);
for i := 0 to FSource.Count - 1 do
with FSource[i]^ do
AssertItemEquals(srcDest[i]^, X, Y, Text, Color);
finally
srcDest.Free;
end;
end; end;
procedure TListSourceTest.DataPoint; procedure TListSourceTest.DataPoint;