* Patch to reorder datetime testing values, so out-of-range comes last

git-svn-id: trunk@20585 -

packages/fcl-db/tests/sqldbtoolsunit.pas

@@ -243,6 +243,7 @@ begin
     begin
     database := Fconnection;
     transaction := Ftransaction;
+    PacketRecords := -1;  // To avoid: "Connection is busy with results for another hstmt" (ODBC,MSSQL)
     end;
 end;
 

packages/fcl-db/tests/testfieldtypes.pas

@@ -140,16 +140,16 @@ const
     '1991-03-01',
     '2040-10-16',
     '1977-09-29',
+    '1899-12-29',
+    '1899-12-30',
+    '1899-12-31',
+    '1900-01-01',
     '1800-03-30',
-    '1650-05-10',
     '1754-06-04',
+    '1650-05-10',
     '0904-04-12',
     '0199-07-09',
-    '0001-01-01',
-    '1899-12-29',
-    '1899-12-30',
-    '1899-12-31',
-    '1900-01-01'
+    '0001-01-01'
   );
 
   testBytesValuesCount = 5;
@@ -608,16 +608,7 @@ const
     '2000-01-01 10:00:00',
     '2000-01-01 23:59:59',
     '1994-03-06 11:54:30',
-    '2040-10-16',                   // MySQL 4.0 doesn't support datetimes before 1970 or after 2038
-    '1400-02-03 12:21:53',
-    '0354-11-20 21:25:15',
-    '1333-02-03 21:44:21',
-    '1800-03-30',
-    '1650-05-10',
-    '1754-06-04',
-    '0904-04-12',
-    '0199-07-09',
-    '0001-01-01',
+    '1754-06-04',                   // MySQL 4.0 doesn't support datetimes before 1970 or after 2038
     '1899-12-29',
     '1899-12-30',
     '1899-12-31',
@@ -628,7 +619,16 @@ const
     '1899-12-29 18:00:51',
     '1903-04-02 01:04:02',
     '1815-09-24 03:47:22',
-    '2100-01-01 01:01:01'
+    '2040-10-16',
+    '2100-01-01 01:01:01',
+    '1400-02-03 12:21:53',          // MS SQL 2005 doesn't support datetimes before 1753
+    '0354-11-20 21:25:15',
+    '1333-02-03 21:44:21',
+    '1800-03-30',
+    '1650-05-10',
+    '0904-04-12',
+    '0199-07-09',
+    '0001-01-01'
   );
 
 var
@@ -853,7 +853,6 @@ begin
 
   with TSQLDBConnector(DBConnector).Query do
     begin
-    PacketRecords := -1;
     sql.clear;
     sql.append('insert into FPDEV2 (ID,FIELD1) values (:id,:field1)');
 

packages/fcl-db/tests/toolsunit.pas

@@ -138,25 +138,25 @@ const
     '2004-03-01',
     '1991-02-28',
     '1991-03-01',
+    '1997-11-29',
     '2040-10-16',
     '1977-09-29',
+    '1977-12-31',
+    '1917-12-29',
+    '1900-01-01',
+    '1899-12-31',
+    '1899-12-30',
+    '1899-12-29',
     '1800-03-30',
-    '1650-05-10',
     '1754-06-04',
+    '1753-01-01',
+    '1650-05-10',
     '0904-04-12',
     '0199-07-09',
-    '0001-01-01',
-    '0031-11-02',
-    '1899-12-29',
-    '1899-12-30',
-    '1899-12-31',
-    '1977-09-29',
-    '1917-12-29',
     '0079-11-29',
-    '1997-11-29',
-    '0001-01-01',
-    '1997-11-29',
-    '1900-01-01'
+    '0031-11-02',
+    '0001-12-31',
+    '0001-01-01'
   );
 
   testTimeValues : Array[0..testValuesCount-1] of string = (
@@ -177,7 +177,7 @@ const
     '15:35:12.000',
     '16:45:12.010',
     '13:55:12.200',
-    '13:46:12.542',
+    '13:46:12.543',
     '15:35:12.000',
     '17:25:12.530',
     '19:45:12.003',