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

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

Browse Source 
git-svn-id: trunk@20585 -
This commit is contained in:
michael 2012-03-23 09:05:01 +00:00
parent 79c3ea3f87
commit 44871bbbbd
3 changed files with 32 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
packages/fcl-db/tests/sqldbtoolsunit.pas
View File

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

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

@ -140,16 +140,16 @@ const
'1991-03-01',
'2040-10-16',
'1977-09-29',
'1800-03-30',
'1650-05-10',
'1754-06-04',
'0904-04-12',
'0199-07-09',
'0001-01-01',
'1899-12-29',
'1899-12-30',
'1899-12-31',
'1900-01-01'
'1900-01-01',
'1800-03-30',
'1754-06-04',
'1650-05-10',
'0904-04-12',
'0199-07-09',
'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)');

26
packages/fcl-db/tests/toolsunit.pas
View File

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