From 4ce550af737972472315d8bd541879b0aa22f8ca Mon Sep 17 00:00:00 2001
From: ask <ask@lazarus-ide.org>
Date: Sun, 31 Jul 2011 03:15:08 +0000
Subject: [PATCH] TAChart: Add test for decimal separator in DataPoints
 property

git-svn-id: trunk@31834 -
---
 components/tachart/test/SourcesTest.pas | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/components/tachart/test/SourcesTest.pas b/components/tachart/test/SourcesTest.pas
index 4e0b61f231..eace9a6177 100644
--- a/components/tachart/test/SourcesTest.pas
+++ b/components/tachart/test/SourcesTest.pas
@@ -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);