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

TAChart: Extract TListSourceTest.AssertItemEquals helper method

Browse Source 
git-svn-id: trunk@33133 -
This commit is contained in:
ask 2011-10-28 11:53:01 +00:00
parent 41f098ceb6
commit 3a789c3c8a
1 changed files with 19 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -21,7 +21,8 @@ unit SourcesTest;
interface
uses
Classes, SysUtils, FPCUnit, TestRegistry, TASources;
Classes, SysUtils, FPCUnit, TestRegistry,
TAChartUtils, TACustomSource, TASources;
type
@ -30,6 +31,10 @@ type
TListSourceTest = class(TTestCase)
private
FSource: TListChartSource;
procedure AssertItemEquals(
const AItem: TChartDataItem; AX, AY: Double; AText: String = '';
AColor: TChartColor = clTAColor);
protected
procedure SetUp; override;
procedure TearDown; override;
@ -68,7 +73,7 @@ type
implementation
uses
Math, TAChartUtils, TACustomSource, TAMath;
Math, TAMath;
{ TCalculatedSourceTest }
@ -183,6 +188,16 @@ end;
{ TListSourceTest }
procedure TListSourceTest.AssertItemEquals(
const AItem: TChartDataItem; AX, AY: Double; AText: String;
AColor: TChartColor);
begin
AssertEquals('X', AX, AItem.X);
AssertEquals('Y', AY, AItem.Y);
AssertEquals('Text', AText, AItem.Text);
AssertEquals('Color', AColor, AItem.Color);
end;
procedure TListSourceTest.Basic;
begin
FSource.Clear;
@ -199,14 +214,8 @@ begin
FSource.DataPoints.Add('3|4|?|text1');
FSource.DataPoints.Add('5|6|$FF0000|');
AssertEquals(2, FSource.Count);
AssertEquals(3, FSource[0]^.X);
AssertEquals(4, FSource[0]^.Y);
AssertEquals('text1', FSource[0]^.Text);
AssertEquals(clTAColor, FSource[0]^.Color);
AssertEquals(5, FSource[1]^.X);
AssertEquals(6, FSource[1]^.Y);
AssertEquals('', FSource[1]^.Text);
AssertEquals($FF0000, FSource[1]^.Color);
AssertItemEquals(FSource[0]^, 3, 4, 'text1');
AssertItemEquals(FSource[1]^, 5, 6, '', $FF0000);
FSource[0]^.Color := 0;
AssertEquals('3|4|$000000|text1', FSource.DataPoints[0]);
FSource.DataPoints.Add('7|8|0|two words');