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

* fcl-db: tests: cosmetic: remove some Dutch text etc.

Browse Source 
git-svn-id: trunk@27646 -
This commit is contained in:
reiniero 2014-04-24 14:43:41 +00:00
parent 7702488182
commit bb205da801
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -597,12 +597,12 @@ begin
CreateTableWithFieldType(ftBlob,FieldtypeDefinitions[ftBlob]);
TestFieldDeclaration(ftBlob,0);
TSQLDBConnector(DBConnector).Connection.ExecuteDirect('insert into FPDEV2 (FT) values (''Test deze blob'')');
TSQLDBConnector(DBConnector).Connection.ExecuteDirect('insert into FPDEV2 (FT) values (''Test this blob'')');
with TSQLDBConnector(DBConnector).Query do
begin
Open;
AssertEquals('Test deze blob',fields[0].AsString);
AssertEquals('Test this blob',fields[0].AsString);
close;
end;
end;
@ -681,21 +681,22 @@ begin
end;
procedure TTestFieldTypes.TestBlobSize;
const
TestValue: string = 'Test this blob';
begin
CreateTableWithFieldType(ftBlob,FieldtypeDefinitions[ftBlob]);
TSQLDBConnector(DBConnector).Connection.ExecuteDirect('insert into FPDEV2 (FT) values (''Test deze blob'')');
TSQLDBConnector(DBConnector).Connection.ExecuteDirect('insert into FPDEV2 (FT) values ('''+TestValue+''')');
with TSQLDBConnector(DBConnector).Query do
begin
sql.text := 'select * from FPDEV2';
Open;
AssertEquals(14,TBlobField(fields[0]).BlobSize);
AssertEquals(length(TestValue),TBlobField(fields[0]).BlobSize);
close;
end;
end;
procedure TTestFieldTypes.TestSQLFieldType(ADatatype : TFieldType; ASQLTypeDecl : string; ADataSize: integer; AGetSQLTextProc: TGetSQLTextProc; ACheckFieldValueProc: TCheckFieldValueProc);
var
i : byte;
@ -1658,7 +1659,7 @@ end;
procedure TTestFieldTypes.TestSetBlobAsMemoParam;
begin
// Firebird/Interbase ODBC driver : if parameter of ValueType=SQL_C_CHAR is bind to BLOB column
// Firebird/Interbase ODBC driver : if parameter of ValueType=SQL_C_CHAR is bound to BLOB column
// driver interprets character data as hexadecimal string and performs conversion ('FF10'=#255#16)
TestSetBlobAsParam(0);
end;