paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 09:06:02 +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]); CreateTableWithFieldType(ftBlob,FieldtypeDefinitions[ftBlob]);
TestFieldDeclaration(ftBlob,0); 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 with TSQLDBConnector(DBConnector).Query do
begin begin
Open; Open;
AssertEquals('Test deze blob',fields[0].AsString); AssertEquals('Test this blob',fields[0].AsString);
close; close;
end; end;
end; end;
@ -681,21 +681,22 @@ begin
end; end;
procedure TTestFieldTypes.TestBlobSize; procedure TTestFieldTypes.TestBlobSize;
const
TestValue: string = 'Test this blob';
begin begin
CreateTableWithFieldType(ftBlob,FieldtypeDefinitions[ftBlob]); 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 with TSQLDBConnector(DBConnector).Query do
begin begin
sql.text := 'select * from FPDEV2'; sql.text := 'select * from FPDEV2';
Open; Open;
AssertEquals(14,TBlobField(fields[0]).BlobSize); AssertEquals(length(TestValue),TBlobField(fields[0]).BlobSize);
close; close;
end; end;
end; end;
procedure TTestFieldTypes.TestSQLFieldType(ADatatype : TFieldType; ASQLTypeDecl : string; ADataSize: integer; AGetSQLTextProc: TGetSQLTextProc; ACheckFieldValueProc: TCheckFieldValueProc); procedure TTestFieldTypes.TestSQLFieldType(ADatatype : TFieldType; ASQLTypeDecl : string; ADataSize: integer; AGetSQLTextProc: TGetSQLTextProc; ACheckFieldValueProc: TCheckFieldValueProc);
var var
i : byte; i : byte;
@ -1658,7 +1659,7 @@ end;
procedure TTestFieldTypes.TestSetBlobAsMemoParam; procedure TTestFieldTypes.TestSetBlobAsMemoParam;
begin 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) // driver interprets character data as hexadecimal string and performs conversion ('FF10'=#255#16)
TestSetBlobAsParam(0); TestSetBlobAsParam(0);
end; end;