From ccde9c0c994524da1f537029d8c52ea1c192dd93 Mon Sep 17 00:00:00 2001
From: joost <joost@cnoc.nl>
Date: Sun, 16 Sep 2007 18:57:32 +0000
Subject: [PATCH]  * Added test for TSQLConnection.GetFieldNames

git-svn-id: trunk@8513 -
---
 packages/fcl-db/tests/testsqlfieldtypes.pas | 21 +++++++++++++++++++--
 1 file changed, 19 insertions(+), 2 deletions(-)

diff --git a/packages/fcl-db/tests/testsqlfieldtypes.pas b/packages/fcl-db/tests/testsqlfieldtypes.pas
index b6c67ebd08..a3b3b430b6 100644
--- a/packages/fcl-db/tests/testsqlfieldtypes.pas
+++ b/packages/fcl-db/tests/testsqlfieldtypes.pas
@@ -1,4 +1,4 @@
- unit TestSQLFieldTypes;
+unit TestSQLFieldTypes;
 
 {$mode objfpc}{$H+}
 
@@ -26,6 +26,7 @@ type
     procedure TearDown; override;
     procedure RunTest; override;
   published
+    procedure TestGetFieldNames;
     procedure TestUpdateIndexDefs;
     procedure TestSetBlobAsMemoParam;
     procedure TestSetBlobAsStringParam;
@@ -58,7 +59,6 @@ type
     procedure TestDateParamQuery;
     procedure TestIntParamQuery;
     procedure TestFloatParamQuery;
-  published
     procedure TestAggregates;
   end;
 
@@ -864,6 +864,23 @@ begin
     inherited RunTest;
 end;
 
+procedure TTestFieldTypes.TestGetFieldNames;
+var FieldNames : TStringList;
+begin
+  with TSQLDBConnector(DBConnector) do
+    begin
+    FieldNames := TStringList.Create;
+    try
+      Connection.GetFieldNames('FpDEv',FieldNames);
+      AssertEquals(2,FieldNames.Count);
+      AssertEquals('ID',UpperCase(FieldNames[0]));
+      AssertEquals('NAME',UpperCase(FieldNames[1]));
+    finally
+      FieldNames.Free;
+      end;
+    end;
+end;
+
 procedure TTestFieldTypes.TestUpdateIndexDefs;
 var ds : TSQLQuery;
 begin