paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-09 07:28:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Added test for TSQLConnection.GetFieldNames

Browse Source 
git-svn-id: trunk@8513 -
This commit is contained in:
joost 2007-09-16 18:57:32 +00:00
parent 620ceac903
commit ccde9c0c99
1 changed files with 19 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
packages/fcl-db/tests/testsqlfieldtypes.pas
View File

@ -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