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

TAChart: Add test for decimal separator in DataPoints property

Browse Source 
git-svn-id: trunk@31834 -
This commit is contained in:
ask 2011-07-31 03:15:08 +00:00
parent 1ee93b1f0d
commit 4ce550af73
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -36,6 +36,7 @@ type
published
procedure Basic;
procedure DataPoint;
procedure DataPointSeparator;
procedure Extent;
procedure Multi;
end;
@ -192,6 +193,23 @@ begin
AssertEquals('two words', FSource[2]^.Text);
end;
procedure TListSourceTest.DataPointSeparator;
var
oldSeparator: Char;
begin
FSource.Clear;
oldSeparator := DecimalSeparator;
try
DecimalSeparator := ':';
FSource.DataPoints.Add('3:5');
AssertEquals(3.5, FSource[0]^.X);
FSource.DataPoints[0] := '4.5';
AssertEquals(4.5, FSource[0]^.X);
finally
DecimalSeparator := oldSeparator;
end;
end;
procedure TListSourceTest.Extent;
procedure AssertExtent(AX1, AY1, AX2, AY2: Double);