From 1ddfc1eda8df53cfa6fefeb5d282f946ba20662c Mon Sep 17 00:00:00 2001 From: michael Date: Sat, 2 Apr 2011 10:47:00 +0000 Subject: * Fixed some tests for firebird git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@17222 3ad0048d-3df7-0310-abae-a5850022a9f2 --- packages/fcl-db/tests/testfieldtypes.pas | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) (limited to 'packages/fcl-db') diff --git a/packages/fcl-db/tests/testfieldtypes.pas b/packages/fcl-db/tests/testfieldtypes.pas index 0925465ce8..67b634a76a 100644 --- a/packages/fcl-db/tests/testfieldtypes.pas +++ b/packages/fcl-db/tests/testfieldtypes.pas @@ -1391,7 +1391,10 @@ begin begin with query do begin - SQL.Text:='select NAME from FPDEV where NAME=''TestName21'' limit 1'; + if (sqlDBtype=interbase) then + SQL.Text:='select first 1 NAME from FPDEV where NAME=''TestName21''' + else + SQL.Text:='select NAME from FPDEV where NAME=''TestName21'' limit 1'; Open; close; ServerFilter:='ID=21'; @@ -1626,6 +1629,8 @@ procedure TTestFieldTypes.TestSQLClob; AssertEquals(testStringValues[a],AField.AsString); end; begin + if SQLDbType=interbase then + Ignore('This test does not apply to Interbase/Firebird, since it does not support CLOB fields'); TestSQLFieldType(ftMemo, 'CLOB', 0, @TestSQLClob_GetSQLText, @CheckFieldValue); end; @@ -1641,7 +1646,10 @@ procedure TTestFieldTypes.TestSQLLargeint; AssertEquals(testLargeIntValues[a],AField.AsLargeInt); end; begin - TestSQLFieldType(ftLargeint, 'LARGEINT', 8, @TestSQLLargeint_GetSQLText, @CheckFieldValue); + if sqlDBType=interbase then + TestSQLFieldType(ftLargeint, 'BIGINT', 8, @TestSQLLargeint_GetSQLText, @CheckFieldValue) + else + TestSQLFieldType(ftLargeint, 'LARGEINT', 8, @TestSQLLargeint_GetSQLText, @CheckFieldValue); end; -- cgit v1.2.1