From c72cbcb8e40ef5b2ae79c63b8104d713e82d1836 Mon Sep 17 00:00:00 2001
From: ask <ask@lazarus-ide.org>
Date: Sun, 16 Sep 2012 17:49:22 +0000
Subject: [PATCH] TAChart: Add test for TListChartSource cache

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

diff --git a/components/tachart/test/SourcesTest.pas b/components/tachart/test/SourcesTest.pas
index eeaee3de44..4228de71f6 100644
--- a/components/tachart/test/SourcesTest.pas
+++ b/components/tachart/test/SourcesTest.pas
@@ -40,6 +40,7 @@ type
     procedure TearDown; override;
   published
     procedure Basic;
+    procedure Cache;
     procedure DataPoint;
     procedure DataPointSeparator;
     procedure Enum;
@@ -281,6 +282,24 @@ begin
   end;
 end;
 
+procedure TListSourceTest.Cache;
+begin
+  FSource.Clear;
+  FSource.Add(5, 6);
+  FSource.Add(7, 8);
+  AssertEquals(14, FSource.ValuesTotal);
+  FSource.Add(8, SafeNan);
+  AssertEquals(14, FSource.ValuesTotal);
+  FSource.Delete(2);
+  AssertEquals(14, FSource.ValuesTotal);
+  FSource.Delete(1);
+  AssertEquals(6, FSource.ValuesTotal);
+  FSource.SetYValue(0, SafeNan);
+  AssertEquals(0, FSource.ValuesTotal);
+  FSource.SetYValue(0, 5);
+  AssertEquals(5, FSource.ValuesTotal);
+end;
+
 procedure TListSourceTest.DataPoint;
 begin
   FSource.Clear;