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

TAChart: Add tests TListSourceTest.Multi and TCalculatedSourceTest.Reorder

Browse Source 
git-svn-id: trunk@28778 -
This commit is contained in:
ask 2010-12-20 07:01:01 +00:00
parent 78edde4ece
commit 340d1e1ca4
1 changed files with 72 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -16,7 +16,7 @@ Authors: Alexander Klenin
unit SourcesTest;
{$mode objfpc}{$H+}
{$mode objfpc}{$H+}{$R+}
interface
@ -37,6 +37,7 @@ type
procedure Basic;
procedure DataPoint;
procedure Extent;
procedure Multi;
end;
{ TRandomSourceTest }
@ -46,11 +47,65 @@ type
procedure Extent;
end;
{ TCalculatedSourceTest }
TCalculatedSourceTest = class(TTestCase)
private
FOrigin: TListChartSource;
FSource: TCalculatedChartSource;
protected
procedure SetUp; override;
procedure TearDown; override;
published
procedure Reorder;
end;
implementation
uses
Math, TAChartUtils;
{ TCalculatedSourceTest }
procedure TCalculatedSourceTest.Reorder;
var
i, j: Integer;
begin
FSource.ReorderYList := '2';
AssertEquals(2, FSource.YCount);
AssertEquals(104, FSource[0]^.YList[0]);
AssertEquals(204, FSource[1]^.YList[0]);
FSource.ReorderYList := '0,0,0';
AssertEquals(4, FSource.YCount);
AssertEquals(103, FSource[0]^.YList[0]);
AssertEquals(103, FSource[0]^.YList[1]);
AssertEquals(103, FSource[0]^.YList[2]);
FSource.ReorderYList := '';
for i := 0 to FSource.Count - 1 do begin
AssertEquals(FOrigin[i]^.Y, FSource[i]^.Y);
for j := 0 to FSource.YCount - 2 do
AssertEquals(FOrigin[i]^.YList[j], FSource[i]^.YList[j]);
end;
end;
procedure TCalculatedSourceTest.SetUp;
begin
inherited SetUp;
FOrigin := TListChartSource.Create(nil);
FSource := TCalculatedChartSource.Create(nil);
FSource.Origin := FOrigin;
FOrigin.YCount := 3;
FOrigin.SetYList(FOrigin.Add(1, 102), [103, 104]);
FOrigin.SetYList(FOrigin.Add(2, 202), [203, 204]);
end;
procedure TCalculatedSourceTest.TearDown;
begin
FreeAndNil(FSource);
FreeAndNil(FOrigin);
inherited TearDown;
end;
{ TListSourceTest }
procedure TListSourceTest.Basic;
@ -119,6 +174,21 @@ begin
AssertExtent(-2, 4, -1, 4.5);
end;
procedure TListSourceTest.Multi;
begin
FSource.Clear;
AssertEquals(1, FSource.YCount);
FSource.Add(1, 2);
FSource.YCount := 2;
AssertEquals(1, Length(FSource[0]^.YList));
AssertEquals(0, FSource[0]^.YList[0]);
FSource.SetYList(0, [3, 4]);
AssertEquals(3, FSource[0]^.YList[0]);
FSource.DataPoints.Add('1|2|3|4|?|t');
AssertEquals(3, FSource.YCount);
AssertEquals(4, FSource[1]^.YList[1]);
end;
procedure TListSourceTest.SetUp;
begin
inherited SetUp;
@ -158,7 +228,7 @@ end;
initialization
RegisterTests([TListSourceTest, TRandomSourceTest]);
RegisterTests([TListSourceTest, TRandomSourceTest, TCalculatedSourceTest]);
end.