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

* Ignore tests which are not applicable when firebird is tested

Browse Source 
git-svn-id: trunk@8973 -
This commit is contained in:
joost 2007-10-28 16:53:48 +00:00
parent 1e618b499d
commit a193a1285f
2 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/fcl-db/tests/testdbbasics.pas
View File

@ -618,7 +618,8 @@ begin
AFld := ADS.FindField('F'+FieldTypeNames[AfieldType]); AFld := ADS.FindField('F'+FieldTypeNames[AfieldType]);
AssertNotNull('Fields of the type ' + FieldTypeNames[AfieldType] + ' are not supported by this type of dataset',AFld); if not assigned (AFld) then
Ignore('Fields of the type ' + FieldTypeNames[AfieldType] + ' are not supported by this type of dataset');
AssertTrue(Afld.DataType = AFieldType); AssertTrue(Afld.DataType = AFieldType);
AssertEquals(ADatasize,Afld.DataSize ); AssertEquals(ADatasize,Afld.DataSize );
end; end;

9
packages/fcl-db/tests/testsqlfieldtypes.pas
View File

@ -348,7 +348,8 @@ var
i : byte; i : byte;
begin begin
// AssertTrue(SIgnoreAssertion,SQLDbType = postgresql); // Only postgres accept this type-definition if SQLDbType<>postgresql then Ignore('This test does only apply to Postgres, since others don''t support varchars without length given');
CreateTableWithFieldType(ftString,'VARCHAR'); CreateTableWithFieldType(ftString,'VARCHAR');
TestFieldDeclaration(ftString,dsMaxStringSize+1); TestFieldDeclaration(ftString,dsMaxStringSize+1);
@ -995,7 +996,7 @@ end;
procedure TTestFieldTypes.TestBug9744; procedure TTestFieldTypes.TestBug9744;
var i : integer; var i : integer;
begin begin
AssertTrue('This test does not apply to Interbase/Firebird, since it has no double field-type',SQLDbType<>interbase); if SQLDbType=interbase then Ignore('This test does not apply to Interbase/Firebird, since it has no double field-type');
with TSQLDBConnector(DBConnector) do with TSQLDBConnector(DBConnector) do
begin begin
@ -1095,6 +1096,8 @@ end;
procedure TTestFieldTypes.TestTemporaryTable; procedure TTestFieldTypes.TestTemporaryTable;
begin begin
if SQLDbType=interbase then Ignore('This test does not apply to Interbase/Firebird, since it doesn''t support temporary tables');
with TSQLDBConnector(DBConnector).Query do with TSQLDBConnector(DBConnector).Query do
begin begin
SQL.Clear; SQL.Clear;
@ -1149,6 +1152,8 @@ end;
procedure TTestFieldTypes.TestParametersAndDates; procedure TTestFieldTypes.TestParametersAndDates;
// See bug 7205 // See bug 7205
begin begin
if SQLDbType=interbase then Ignore('This test does not apply to Interbase/Firebird, since it doesn''t use semicolons for casts');
with TSQLDBConnector(DBConnector).Query do with TSQLDBConnector(DBConnector).Query do
begin begin
SQL.Clear; SQL.Clear;