use
lib catdir
qw (
blib lib );
plan
tests
=> 9;
use_ok (
'Parse::Dia::SQL'
);
use_ok (
'Parse::Dia::SQL::Output'
);
use_ok (
'Parse::Dia::SQL::Output::MySQL'
);
use_ok (
'Parse::Dia::SQL::Output::MySQL::InnoDB'
);
my
$diasql
=
Parse::Dia::SQL->new(
file
=> catfile(
qw(t data TestERD.dia)
),
db
=>
'mysql-innodb'
);
isa_ok(
$diasql
,
q{Parse::Dia::SQL}
,
q{Expect a Parse::Dia::SQL object}
);
can_ok(
$diasql
,
q{get_sql}
),
my
$sql
=
$diasql
->get_sql();
isa_ok(
$diasql
->get_output_instance(),
q{Parse::Dia::SQL::Output::MySQL::InnoDB}
,
q{Expect Parse::Dia::SQL::Output::MySQL::InnoDB to be used as back-end}
);
like(
$sql
,
qr/ENGINE=InnoDB DEFAULT CHARSET=latin1/
,
q{Expect sql to contain ENGINE=InnoDB DEFAULT CHARSET=latin1}
);
unlike(
$sql
,
qr/.*
add \s+ constraint .*
create \s* (unique) \s+ index
.*/
six,
q{Expect all indices to be created before any foreign key constraints}
);