begin
let tab,idx,fill =
if am_i_destructor () then
- (SqlStatements.drop_tables,SqlStatements.drop_indexes,
+ (SqlStatements.drop_tables,
+ (fun x ->
+ let dbd = HSql.fake_db_for_mysql HSql.Library in
+ SqlStatements.drop_indexes x HSql.Library dbd),
fun _ t -> [sprintf "DELETE * FROM %s;" t])
else
- (SqlStatements.create_tables,SqlStatements.create_indexes,
+ (SqlStatements.create_tables,
+ SqlStatements.create_indexes,
SqlStatements.fill_hits)
in
let from = 2 in