paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 11:09:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-db: test: +testShortIntValues

Browse Source 
git-svn-id: trunk@47233 -
This commit is contained in:
lacak 2020-10-28 12:35:03 +00:00
parent 075966f142
commit 7ee3b01eff
3 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-db/src/codegen/fpddcodegen.pp
View File

@ -405,7 +405,7 @@ Var
ptWideString, ptInt64, ptCustom, ptCustom, ptCustom,
ptCustom, ptCustom, ptCustom, ptCustom, ptCustom,
ptCustom, ptAnsiString, ptDateTime, ptCurrency, ptWideString, ptWideString,
ptDateTime, ptCustom, ptCustom, ptCustom, ptCustom, ptCustom);
ptDateTime, ptDateTime, ptCustom, ptCustom, ptCustom, ptCustom);
PropTypeToVisibilityMap : TPropertyVisibilityMap = (
vPrivate,

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

@ -187,6 +187,7 @@ begin
FieldByName('FFIXEDWIDECHAR').AsString := PadRight(testStringValues[i], 10);
FieldByName('FWIDEMEMO').AsString := testStringValues[i];
FieldByName('FLONGWORD').AsLongWord := testWordValues[i];
FieldByName('FSHORTINT').AsInteger := testShortIntValues[i];
FieldByName('FBYTE').AsInteger := testByteValues[i];
Post;
end;

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

@ -132,6 +132,7 @@ const
testWordValues : Array[0..testValuesCount-1] of Word = (1,2,3,4,5,6,7,8,0,1,127,128,255,256,maxSmallint,maxSmallint+1,maxSmallInt-1,maxSmallInt,65535,100,130,150,151,132,234);
testSmallIntValues : Array[0..testValuesCount-1] of smallint = (-maxSmallint,-maxSmallint+1,-256,-255,-128,-127,-1,0,1,127,128,255,256,maxSmallint,maxSmallint-1,100,110,120,130,150,-150,-132,234,231,42);
testByteValues: Array[0..testValuesCount-1] of Byte = (1,2,3,4,5,6,7,8,0,1,127,128,255,0,0,0,0,0,0,0,0,0,0,0,0);
testShortintValues: Array[0..testValuesCount-1] of ShortInt = (1,2,3,4,5,6,7,8,0,1,-128,-127,-64,64,126,127,0,0,0,0,0,0,0,0,0);
testLargeIntValues : Array[0..testValuesCount-1] of LargeInt = (-$7fffffffffffffff,-$7ffffffffffffffe,-maxInt-1,-maxInt+1,-maxSmallint,-maxSmallint+1,-256,-255,-128,-127,-1,0,1,127,128,255,256,maxSmallint,maxSmallint-1,maxSmallint+1,MaxInt-1,MaxInt,$7fffffffffffffff-1,$7fffffffffffffff,235253244);
testBooleanValues : Array[0..testValuesCount-1] of boolean = (true,false,false,true,true,false,false,true,false,true,true,true,false,false,false,false,true,true,true,true,false,true,true,false,false);
testStringValues : Array[0..testValuesCount-1] of string = (