paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 22:58:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Add test for spaces in field names inside TDbChartSource.FieldY

Browse Source 
git-svn-id: trunk@38039 -
This commit is contained in:
ask 2012-07-25 15:37:11 +00:00
parent bff3224530
commit 47bce9fd29
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/tachart/test/DbTest.pas
View File

@ -37,6 +37,7 @@ type
procedure TearDown; override;
published
procedure Basic;
procedure Fields;
end;
implementation
@ -54,12 +55,16 @@ end;
procedure TDbSourceTest.Basic;
begin
AddRecord(1, 1.0, 2.0, 'test');
FSource.FieldY := 'X, Y';
AssertEquals(1, FSource.Count);
AssertEquals(2.0, FSource.Item[0]^.Y);
end;
procedure TDbSourceTest.Fields;
begin
FSource.FieldY := 'X,a b';
AssertEquals(2, FSource.YCount);
FSource.FieldY := 'Y';
AssertEquals(1, FSource.YCount);
AssertEquals(1, FSource.Count);
AssertEquals(2.0, FSource.Item[0]^.Y);
end;
procedure TDbSourceTest.SetUp;