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

* Fixed TestBlobSize test

Browse Source 
git-svn-id: trunk@12509 -
This commit is contained in:
joost 2009-01-05 12:03:57 +00:00
parent 8e61594c9a
commit 0899d13e3a
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -477,6 +477,7 @@ begin
with TSQLDBConnector(DBConnector).Query do with TSQLDBConnector(DBConnector).Query do
begin begin
sql.text := 'select * from FPDEV2';
Open; Open;
AssertEquals(14,TBlobField(fields[0]).BlobSize); AssertEquals(14,TBlobField(fields[0]).BlobSize);
close; close;