anchor.diff:      procedure test(manager: TFDBManager);
     Published
       procedure TestSemaphore;
  +    procedure odbcTest;
       procedure TestMSSQL;
       procedure TestMySQL;
       // procedure TestMySQLMaria;
  
positive.code:   end;
  end;
  
  procedure TFDBTests.TestSQLite;
  var
    db: TFDBManager;
  
negative.code:   fsl_testing,
  
    fsl_base, fsl_utilities, fsl_stream,
    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;
  