paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-23 08:49:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

fcl-db: sdfdataset: improve tests

Browse Source 
git-svn-id: trunk@30568 -
This commit is contained in:
lacak 2015-04-13 08:15:59 +00:00
parent 1a5126081f
commit c8740c6e3f
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fcl-db/tests/tcsdfdata.pp
View File

@ -93,20 +93,21 @@ procedure Ttestsdfspecific.TestSingleLineHeader;
var
FileStrings: TStringList;
begin
// with Schema, with Header line
// with Schema, with Header line, which differs from Schema
TestDataset.FirstLineAsSchema := True;
TestDataset.FileName := TestFileName('singleh.csv');
FileStrings:=TStringList.Create;
try
FileStrings.Add('ID,NAME,BIRTHDAY');
FileStrings.Add('1,SimpleName,31-12-1976');
FileStrings.Add('ID,NAME,BIRTHDAY,GENDER'); // 4 fields override 3 fields in Schema
FileStrings.Add('1,SimpleName,31-12-1976,M');
FileStrings.SaveToFile(TestDataset.FileName);
finally
FileStrings.Free;
end;
TestDataset.Open;
AssertEquals('FieldDefs.Count', 4, TestDataset.FieldDefs.Count);
AssertEquals('1', TestDataset.Fields[0].AsString); // just after Open
TestDataset.Last;
@ -135,6 +136,7 @@ begin
end;
TestDataset.Open;
AssertEquals('FieldDefs.Count', 3, TestDataset.FieldDefs.Count);
AssertEquals('1', TestDataset.Fields[0].AsString);
TestDataset.Last;