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

* Fixed TestStringParamQuery

Browse Source 
git-svn-id: trunk@12277 -
This commit is contained in:
joost 2008-11-29 19:44:54 +00:00
parent 55c866f9d3
commit 41af4c76ac
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -28,7 +28,6 @@ type
procedure RunTest; override;
published
procedure TestClearUpdateableStatus;
procedure TestFixedStringParamQuery;
procedure TestReadOnlyParseSQL; // bug 9254
procedure TestParseJoins; // bug 10148
procedure TestDoubleFieldNames; // bug 8457
@ -73,6 +72,7 @@ type
procedure TestNullValues;
procedure TestParamQuery;
procedure TestStringParamQuery;
procedure TestFixedStringParamQuery;
procedure TestDateParamQuery;
procedure TestIntParamQuery;
procedure TestFloatParamQuery;
@ -771,13 +771,14 @@ begin
ftInteger: AssertEquals(testIntValues[i],FieldByName('FIELD1').AsInteger);
ftFloat : AssertEquals(testFloatValues[i],FieldByName('FIELD1').AsFloat);
ftBCD : AssertEquals(testBCDValues[i],FieldByName('FIELD1').AsCurrency);
ftFixedChar,
ftString : begin
ftFixedChar :
begin
if FieldByName('FIELD1').isnull then
AssertEquals(testStringValues[i],FieldByName('FIELD1').AsString)
else
AssertEquals(PadRight(testStringValues[i],10),FieldByName('FIELD1').AsString);
end;
ftString : AssertEquals(testStringValues[i],FieldByName('FIELD1').AsString);
ftdate : AssertEquals(testDateValues[i],FormatDateTime('yyyy/mm/dd',FieldByName('FIELD1').AsDateTime));
else
AssertTrue('no test for paramtype available',False);