* Fixed TestStringParamQuery

git-svn-id: trunk@12277 -
This commit is contained in:
joost 2008-11-29 19:44:54 +00:00
parent 55c866f9d3
commit 41af4c76ac

View File

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