From 678f40a02434be8fea9db04114d0c13b3de31a05 Mon Sep 17 00:00:00 2001
From: ask <ask@lazarus-ide.org>
Date: Fri, 28 Oct 2011 11:56:59 +0000
Subject: [PATCH] TAChart: Add test for TListChartSource.CopyFrom

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

diff --git a/components/tachart/test/SourcesTest.pas b/components/tachart/test/SourcesTest.pas
index 21a1e2797f..cc0dc8746c 100644
--- a/components/tachart/test/SourcesTest.pas
+++ b/components/tachart/test/SourcesTest.pas
@@ -199,6 +199,9 @@ begin
 end;
 
 procedure TListSourceTest.Basic;
+var
+  i: Integer;
+  srcDest: TListChartSource;
 begin
   FSource.Clear;
   AssertEquals(0, FSource.Count);
@@ -206,6 +209,18 @@ begin
   AssertEquals(1, FSource.Count);
   FSource.Delete(0);
   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;
 
 procedure TListSourceTest.DataPoint;