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

* Make sure that fixed width parameters are really ftFixedChar

Browse Source 
git-svn-id: trunk@15506 -
This commit is contained in:
joost 2010-07-01 15:44:21 +00:00
parent 57e39c37ae
commit 64c824cd86
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -770,6 +770,10 @@ begin
ShortDateFormat := 'yyyy-mm-dd';
// There is no Param.AsFixedChar, so the datatype has to be set manually
if ADatatype=ftFixedChar then
Params.ParamByName('field1').DataType := ftFixedChar;
for i := 0 to testValuesCount -1 do
begin
Params.ParamByName('id').AsInteger := i;
@ -801,13 +805,7 @@ begin
ftInteger: AssertEquals(testIntValues[i],FieldByName('FIELD1').AsInteger);
ftFloat : AssertEquals(testFloatValues[i],FieldByName('FIELD1').AsFloat);
ftBCD : AssertEquals(testBCDValues[i],FieldByName('FIELD1').AsCurrency);
ftFixedChar :
begin
if FieldByName('FIELD1').isnull then
AssertEquals(testStringValues[i],FieldByName('FIELD1').AsString)
else
AssertEquals(PadRight(testStringValues[i],10),FieldByName('FIELD1').AsString);
end;
ftFixedChar : AssertEquals(PadRight(testStringValues[i],10),FieldByName('FIELD1').AsString);
ftString : AssertEquals(testStringValues[i],FieldByName('FIELD1').AsString);
ftdate : AssertEquals(testDateValues[i],FormatDateTime('yyyy/mm/dd',FieldByName('FIELD1').AsDateTime));
else