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

fcl-db: tests: small improvement (change order of tests; first test native field type, after that string representation)

Browse Source 
git-svn-id: trunk@42671 -
This commit is contained in:
lacak 2019-08-13 07:28:26 +00:00
parent 36bc9b726e
commit 04e6c5c858
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-db/tests/testdbbasics.pas
View File

@ -1207,8 +1207,8 @@ procedure TTestDBBasics.TestClearFields;
begin begin
with DBConnector.GetNDataset(true,14) do with DBConnector.GetNDataset(true,14) do
begin begin
open; Open;
AssertException('Cannot call clearfields when not in edit mode',EDatabaseError,ClearFields); AssertException('Cannot call ClearFields when not in edit mode',EDatabaseError,ClearFields);
end; end;
end; end;
@ -2837,8 +2837,8 @@ begin
for i := 0 to testValuesCount-1 do for i := 0 to testValuesCount-1 do
begin begin
CheckEquals(CurrToStr(testCurrencyValues[i]), Fld.AsString, 'AsString');
CheckEquals(testCurrencyValues[i], Fld.AsCurrency, 'AsCurrency'); CheckEquals(testCurrencyValues[i], Fld.AsCurrency, 'AsCurrency');
CheckEquals(CurrToStr(testCurrencyValues[i]), Fld.AsString, 'AsString');
CheckEquals(testCurrencyValues[i], Fld.AsFloat, 'AsFloat'); CheckEquals(testCurrencyValues[i], Fld.AsFloat, 'AsFloat');
ds.Next; ds.Next;
end; end;