Browse Source

* Fixed TestBlobSize test

git-svn-id: trunk@12509 -
joost 16 years ago
parent
commit
0899d13e3a
1 changed files with 1 additions and 0 deletions
  1. 1 0
      packages/fcl-db/tests/testfieldtypes.pas

+ 1 - 0
packages/fcl-db/tests/testfieldtypes.pas

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