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

tests: fix 2 database tests which assumed that dates are in yyyy-mm-dd format on all locales

Browse Source 
git-svn-id: trunk@14492 -
This commit is contained in:
paul 2009-12-29 03:30:33 +00:00
parent 5cc182ac07
commit 6b1f84087d
2 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/fcl-db/tests/dbftoolsunit.pas
View File

@ -100,8 +100,7 @@ begin
FieldByName('FINTEGER').AsInteger := testIntValues[i];
FieldByName('FBOOLEAN').AsBoolean := testBooleanValues[i];
FieldByName('FFLOAT').AsFloat := testFloatValues[i];
ShortDateFormat := 'yyyy-mm-dd';
FieldByName('FDATE').AsDateTime := StrToDate(testDateValues[i]);
FieldByName('FDATE').AsDateTime := StrToDate(testDateValues[i], 'yyyy/mm/dd', '-');
FieldByName('FLARGEINT').AsLargeInt := testLargeIntValues[i];
Post;
end;

2
packages/fcl-db/tests/toolsunit.pas
View File

@ -228,7 +228,6 @@ var DBConnectorClass : TPersistentClass;
begin
testValues[ftString] := testStringValues;
testValues[ftFixedChar] := testStringValues;
testValues[ftDate] := testDateValues;
for i := 0 to testValuesCount-1 do
begin
testValues[ftFloat,i] := FloatToStr(testFloatValues[i]);
@ -242,6 +241,7 @@ begin
testValues[ftCurrency,i] := CurrToStr(testCurrencyValues[i]);
// DecimalSeparator:='.';
testValues[ftBCD,i] := CurrToStr(testCurrencyValues[i]);
testValues[ftDate,i] := DateToStr(StrToDate(testDateValues[i], 'yyyy/mm/dd', '-'));
end;
if dbconnectorname = '' then raise Exception.Create('There is no db-connector specified');