anchor.diff:    fsl_testing,
   
     fsl_base, fsl_utilities, fsl_stream,
  -  fdb_dialects,
  +  fdb_dialects, {$IFDEF FPC} fdb_odbc_fpc {$ELSE} fdb_odbc_headers {$ENDIF},
     fdb_manager, fdb_odbc, fdb_sqlite3, fdb_sqlite3_objects, fdb_sqlite3_wrapper;
   
   Type
  +
  +  { TFDBTests }
  +
     TFDBTests = Class (TFslTestCase)
     private
       conn4: TFDBConnection;
  
positive.code:   end;
  end;
  
  procedure TFDBTests.TestSQLite;
  var
    db: TFDBManager;
  
negative.code:     procedure test(manager: TFDBManager);
    Published
      procedure TestSemaphore;
      procedure odbcTest;
      procedure TestMSSQL;
      procedure TestMySQL;
      // procedure TestMySQLMaria;
  