From c8740c6e3f81f05e8ef6c4388e74f59aec1f58d2 Mon Sep 17 00:00:00 2001
From: lacak <lacak@idefix.freepascal.org>
Date: Mon, 13 Apr 2015 08:15:59 +0000
Subject: [PATCH] fcl-db: sdfdataset: improve tests

git-svn-id: trunk@30568 -
---
 packages/fcl-db/tests/tcsdfdata.pp | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/packages/fcl-db/tests/tcsdfdata.pp b/packages/fcl-db/tests/tcsdfdata.pp
index 1e19fb4aa8..b81ab998f3 100644
--- a/packages/fcl-db/tests/tcsdfdata.pp
+++ b/packages/fcl-db/tests/tcsdfdata.pp
@@ -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;