paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-17 06:40:39 +01:00
Code Issues Packages Projects Releases Wiki Activity

fcl-db: dbtestframework:

Browse Source 
* cosmetic

git-svn-id: trunk@26953 -
This commit is contained in:
reiniero 2014-03-04 16:16:55 +00:00
parent 5bab60669c
commit b2ad159b5b
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1746,7 +1746,7 @@ procedure TTestFieldTypes.TestParametersAndDates;
var ADateStr : String; var ADateStr : String;
begin begin
if not(SQLServerType in [ssPostgreSQL, ssOracle]) then if not(SQLServerType in [ssPostgreSQL, ssOracle]) then
Ignore('This test does not apply to this sqldb-connection type, since it doesn''t use semicolons for casts'); Ignore('This test does not apply to this sqldb connection type, since it doesn''t use semicolons for casts');
with TSQLDBConnector(DBConnector).Query do with TSQLDBConnector(DBConnector).Query do
begin begin
@ -1808,7 +1808,7 @@ begin
end; end;
else else
begin begin
Ignore('This test does not apply to this sqldb-connection type, since it does not support selectable stored procedures.'); Ignore('This test does not apply to this sqldb connection type, since it does not support selectable stored procedures.');
Exit; Exit;
end; end;
end; end;
@ -2261,7 +2261,7 @@ end;
procedure TTestFieldTypes.TestTemporaryTable; procedure TTestFieldTypes.TestTemporaryTable;
begin begin
// Tests rev.6481: "Do not use a new connection for every statement that is executed"; // Tests rev.6481: "Do not use a new connection for every statement that is executed";
if SQLServerType in [ssMSSQL, ssSybase] then Ignore('This test does not apply to this sqldb-connection type, since it doesn''t support temporary tables'); if SQLServerType in [ssMSSQL, ssSybase] then Ignore('This test does not apply to this sqldb connection type, since it doesn''t support temporary tables');
with TSQLDBConnector(DBConnector).Query do with TSQLDBConnector(DBConnector).Query do
begin begin