# share/sql/000_info.sql: <feff>DROP TABLE IF EXISTS `info`;
# CREATE TABLE  `info` (
#   `name` varchar(50) NOT NULL default '',
#   `type` varchar(20) default NULL,
#   `opus_lib` varchar(50) NOT NULL default '',
#   PRIMARY KEY  (`name`)
# ) ENGINE=MyISAM DEFAULT CHARSET=latin1;


The code:


my @files = sort glob( File::Spec->catfile('share', 'sql', '*.sql') );
foreach my $file (@files) {
  local $/;
  open(my $fh, '<', $file) or die "$file: $!";
  my $file_text = <$fh>;
  push @sql, $file_text;
  Test::More::diag("$file: $file_text");
}

my $dbh = DBI->connect($mysqld->dsn(dbname => 'test'), undef, undef);
$dbh->{RaiseError} = 1;
$dbh->do(q{set storage_engine=INNODB});
$dbh->do($_) for @sql;


The error:


DBD::mysql::db do failed: You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near ?DROP TABLE IF EXISTS `info`;
CREATE TABLE  `info` (
  `name` va' at line 1 at t/collateral/lib/mysql/Indicator/ConfigData.pm line 112.
DBD::mysql::db do failed: You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near ?DROP TABLE IF EXISTS `info`;
CREATE TABLE  `info` (
  `name` va' at line 1 at t/collateral/lib/mysql/Indicator/ConfigData.pm line 112.
Compilation failed in require at t/collateral/lib/CommonSetup.pm line 11.
BEGIN failed--compilation aborted at t/200-mysql.t line 5.
t/200-mysql.t ..