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

* Merging revisions 42671 from trunk:

Browse Source 
------------------------------------------------------------------------
    r42671 | lacak | 2019-08-13 09:28:26 +0200 (Tue, 13 Aug 2019) | 1 line
    
    fcl-db: tests: small improvement (change order of tests; first test native field type, after that string representation)
    ------------------------------------------------------------------------

git-svn-id: branches/fixes_3_2@43230 -
This commit is contained in:
michael 2019-10-19 14:33:48 +00:00
parent 12117f7caf
commit 4fede25682
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
with DBConnector.GetNDataset(true,14) do
begin
open;
AssertException('Cannot call clearfields when not in edit mode',EDatabaseError,ClearFields);
Open;
AssertException('Cannot call ClearFields when not in edit mode',EDatabaseError,ClearFields);
end;
end;
@ -2837,8 +2837,8 @@ begin
for i := 0 to testValuesCount-1 do
begin
CheckEquals(CurrToStr(testCurrencyValues[i]), Fld.AsString, 'AsString');
CheckEquals(testCurrencyValues[i], Fld.AsCurrency, 'AsCurrency');
CheckEquals(CurrToStr(testCurrencyValues[i]), Fld.AsString, 'AsString');
CheckEquals(testCurrencyValues[i], Fld.AsFloat, 'AsFloat');
ds.Next;
end;