mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-14 10:09:20 +02:00
* Fixed TestStringParamQuery
git-svn-id: trunk@12277 -
This commit is contained in:
parent
55c866f9d3
commit
41af4c76ac
@ -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);
|
||||||
|
Loading…
Reference in New Issue
Block a user