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

fcl-db: tests: Adjust sqlDB/SQLite3 tests for newly added test TestSupportWordFields (WORD fields are alredy supported by SQLite3Connection)

Browse Source 
git-svn-id: trunk@24557 -
This commit is contained in:
lacak 2013-05-23 12:06:59 +00:00
parent 80b52b2a6a
commit ec78ec807c
2 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
packages/fcl-db/tests/sqldbtoolsunit.pas
View File

@ -246,6 +246,7 @@ begin
end; end;
ssSQLite: ssSQLite:
begin begin
FieldtypeDefinitions[ftWord] := 'WORD';
FieldtypeDefinitions[ftCurrency] := 'CURRENCY'; FieldtypeDefinitions[ftCurrency] := 'CURRENCY';
FieldtypeDefinitions[ftBytes] := 'BINARY(5)'; FieldtypeDefinitions[ftBytes] := 'BINARY(5)';
FieldtypeDefinitions[ftVarBytes] := 'VARBINARY(10)'; FieldtypeDefinitions[ftVarBytes] := 'VARBINARY(10)';

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

@ -327,6 +327,7 @@ begin
testValues[ftFloat,i] := FloatToStr(testFloatValues[i],FormatSettings); testValues[ftFloat,i] := FloatToStr(testFloatValues[i],FormatSettings);
testValues[ftSmallint,i] := IntToStr(testSmallIntValues[i]); testValues[ftSmallint,i] := IntToStr(testSmallIntValues[i]);
testValues[ftInteger,i] := IntToStr(testIntValues[i]); testValues[ftInteger,i] := IntToStr(testIntValues[i]);
testValues[ftWord,i] := IntToStr(testWordValues[i]);
testValues[ftLargeint,i] := IntToStr(testLargeIntValues[i]); testValues[ftLargeint,i] := IntToStr(testLargeIntValues[i]);
testValues[ftCurrency,i] := CurrToStr(testCurrencyValues[i],FormatSettings); testValues[ftCurrency,i] := CurrToStr(testCurrencyValues[i],FormatSettings);
testValues[ftBCD,i] := CurrToStr(testCurrencyValues[i],FormatSettings); testValues[ftBCD,i] := CurrToStr(testCurrencyValues[i],FormatSettings);