paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-18 13:59:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed new test from r15300

Browse Source 
git-svn-id: trunk@15301 -
This commit is contained in:
joost 2010-05-21 08:17:30 +00:00
parent a8ee8cdbb3
commit c1cd8d04ba
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/fcl-db/tests/testfieldtypes.pas
View File

@ -1597,12 +1597,15 @@ begin
' NAME VARCHAR(50), ' +
' PRIMARY KEY (ID1, ID2) ' +
') ');
// Firebird/Interbase need a commit after a DDL statement. Not necessary for the other connections
if SQLDbType=interbase then TSQLDBConnector(DBConnector).Transaction.CommitRetaining;
ds := TSQLDBConnector(DBConnector).Query;
ds.sql.Text:='select * from FPDEV2';
ds.Prepare;
ds.ServerIndexDefs.Update;
AssertEquals(1,ds.ServerIndexDefs.count);
writeln(ds.ServerIndexDefs[0].Fields);
AssertTrue(SameText('ID1;ID2',ds.ServerIndexDefs[0].Fields));
Asserttrue(ds.ServerIndexDefs[0].Options=[ixPrimary,ixUnique]);
end;