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

fcl-db: tests: improve testing Blobs (use not only ascii characters, but also binary data etc.)

Browse Source 
git-svn-id: trunk@25451 -
This commit is contained in:
lacak 2013-09-11 10:48:44 +00:00
parent 385fc9cb37
commit 91783105cc
1 changed files with 47 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -167,6 +167,16 @@ const
'0001-01-01'
);
testBlobValuesCount = 6;
testBlobValues : Array[0..testBlobValuesCount-1] of ansistring = (
'Test deze Blob', // common value
'', // empty value
'a'#0'b'#13#10#1'c', // binary data
'''":a', // single quotes
'\''\', // backslash
'\n'#13'\0ab''c'
);
testBytesValuesCount = 5;
testVarBytesValuesCount = 8;
testBytesValues : Array[0..testVarBytesValuesCount-1] of shortstring = (
@ -1580,10 +1590,10 @@ begin
begin
AssertEquals(i,FieldByName('ID').AsInteger);
case ADataType of
ftSmallInt: AssertEquals(testSmallIntValues[i],FieldByName('FIELD1').AsInteger);
ftInteger: AssertEquals(testIntValues[i],FieldByName('FIELD1').AsInteger);
ftLargeInt: AssertEquals(testLargeIntValues[i],FieldByName('FIELD1').AsLargeInt);
ftBoolean: AssertEquals(testBooleanValues[i],FieldByName('FIELD1').AsBoolean);
ftSmallInt : AssertEquals(testSmallIntValues[i],FieldByName('FIELD1').AsInteger);
ftInteger : AssertEquals(testIntValues[i],FieldByName('FIELD1').AsInteger);
ftLargeInt : AssertEquals(testLargeIntValues[i],FieldByName('FIELD1').AsLargeInt);
ftBoolean : AssertEquals(testBooleanValues[i],FieldByName('FIELD1').AsBoolean);
ftFloat : AssertEquals(testFloatValues[i],FieldByName('FIELD1').AsFloat);
ftBCD : AssertEquals(testBCDValues[i],FieldByName('FIELD1').AsCurrency);
ftFixedChar : AssertEquals(PadRight(testStringValues[i],10),FieldByName('FIELD1').AsString);
@ -1607,32 +1617,36 @@ begin
end;
procedure TTestFieldTypes.TestSetBlobAsParam(asWhat: integer);
const
TestValue='Test deze BLob';
var
ASQL : TSQLQuery;
var i: integer;
begin
CreateTableWithFieldType(ftBlob,FieldtypeDefinitions[ftBlob]);
TestFieldDeclaration(ftBlob,0);
ASQL := DBConnector.GetNDataset(True,1) as tsqlquery;
with ASql do
with TSQLDBConnector(DBConnector).Query do
begin
SQL.Text := 'insert into FPDEV2 (FT) values (:BlobParam)';
for i:=0 to testBlobValuesCount - 1 do
begin
sql.Text := 'insert into FPDEV2 (FT) values (:BlobParam)';
case asWhat of
0: Params.ParamByName('blobParam').AsMemo := TestValue;
1: Params.ParamByName('blobParam').AsString := TestValue;
2: Params.ParamByName('blobParam').AsBlob := TestValue;
0: Params.ParamByName('blobParam').AsMemo := TestBlobValues[i];
1: Params.ParamByName('blobParam').AsBlob := TestBlobValues[i];
2: Params.ParamByName('blobParam').AsString := TestBlobValues[i];
end;
ExecSQL;
end;
Params.ParamByName('blobParam').Clear;
ExecSQL;
with TSQLDBConnector(DBConnector).Query do
begin
SQL.Text := 'select FT from FPDEV2';
Open;
if not eof then
AssertEquals(TestValue, Fields[0].AsString);
close;
for i:=0 to testBlobValuesCount - 1 do
begin
AssertEquals(TestBlobValues[i], Fields[0].AsString);
Next;
end;
AssertTrue(Fields[0].IsNull);
Close;
end;
end;
@ -1645,12 +1659,12 @@ end;
procedure TTestFieldTypes.TestSetBlobAsBlobParam;
begin
TestSetBlobAsParam(2);
TestSetBlobAsParam(1);
end;
procedure TTestFieldTypes.TestSetBlobAsStringParam;
begin
TestSetBlobAsParam(1);
TestSetBlobAsParam(2);
end;