paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 03:39:33 +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('FINTEGER').AsInteger := testIntValues[i];
FieldByName('FBOOLEAN').AsBoolean := testBooleanValues[i]; FieldByName('FBOOLEAN').AsBoolean := testBooleanValues[i];
FieldByName('FFLOAT').AsFloat := testFloatValues[i]; FieldByName('FFLOAT').AsFloat := testFloatValues[i];
ShortDateFormat := 'yyyy-mm-dd'; FieldByName('FDATE').AsDateTime := StrToDate(testDateValues[i], 'yyyy/mm/dd', '-');
FieldByName('FDATE').AsDateTime := StrToDate(testDateValues[i]);
FieldByName('FLARGEINT').AsLargeInt := testLargeIntValues[i]; FieldByName('FLARGEINT').AsLargeInt := testLargeIntValues[i];
Post; Post;
end; end;

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

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