paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 23:30:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fcl-db: tests: cosmetic: convert Dutch test text

Browse Source 
git-svn-id: trunk@27658 -
This commit is contained in:
reiniero 2014-04-26 09:04:11 +00:00
parent ca2d1a4667
commit 2e3e1d37b5
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

@ -299,7 +299,7 @@ const
testValues4 : Array[0..testValuesCount-1] of currency = (-99.99,-12.34,-10.2,-10,-0.5,-0.01,0,0.01,0.5,10,10.2,12.34,99.99);
testValues9 : Array[0..testValuesCount-1] of currency = (-123456.789,-10000,-1875.25,-10,-0.5,-0.001,0,0.001,0.5,10,1875.25,10000,123456.789);
FieldTypes: array [0..7] of TFieldType = (ftBCD, ftBCD, ftBCD, ftFmtBCD, ftLargeInt, ftFmtBCD, ftFmtBCD, ftFmtBCD);
FieldSizes: array [0..7] of integer = (4,2,3,5,0,3,5,0); //scale
FieldSizes: array [0..7] of integer = (4,2,3,5,0,3,5,0); //scale for FieldTypes
var
i,d : integer;
@ -663,7 +663,7 @@ 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'')');
TSQLDBConnector(DBConnector).Connection.ExecuteDirect('insert into FPDEV2 (FT) values (Null)');
with TSQLDBConnector(DBConnector).Query do
@ -671,7 +671,7 @@ begin
Open;
AssertFalse(fields[0].IsNull);
AssertEquals('(BLOB)',fields[0].DisplayText);
AssertEquals('Test deze blob',fields[0].AsString);
AssertEquals('Test this blob',fields[0].AsString);
Next;
AssertTrue(fields[0].IsNull);
AssertEquals('(blob)',fields[0].Text);