fcl-db: tests: some tests expects, that GetNDataset (FPDEV table) returns records ordered by ID. In some cases when in test record is updated (f.e. TestRefresh) this record appears at end when dataset is reopened.

(ATM this is case of PostgreSQL only, where 2 tests fails - false negative)

git-svn-id: trunk@27843 -

packages/fcl-db/tests/sqldbtoolsunit.pas

@@ -612,7 +612,7 @@ begin
   with (Result as TSQLQuery) do
     begin
     sql.clear;
-    sql.add('SELECT * FROM FPDEV WHERE ID < '+inttostr(n+1));
+    sql.add('SELECT * FROM FPDEV WHERE ID < '+inttostr(n+1)+' ORDER BY ID');
     UniDirectional:=TestUniDirectional;
     end;
 end;

packages/fcl-db/tests/testfieldtypes.pas

@@ -983,7 +983,7 @@ begin
 end;
 
 procedure TTestFieldTypes.TestLargeRecordSize;
-
+// probably tests situation, where total record size > 64K (TDataSet.RecordSize returns word value)
 begin
   TSQLDBConnector(DBConnector).Connection.ExecuteDirect('create table FPDEV2 (plant varchar(8192),sampling_type varchar(8192),area varchar(8192), area_description varchar(8192), batch varchar(8192), sampling_datetime timestamp, status varchar(8192), batch_commentary varchar(8192))');