use
lib catdir
qw (
blib lib );
plan
tests
=> 7;
diag
'Oracle support is experimental'
;
use_ok (
'Parse::Dia::SQL'
);
use_ok (
'Parse::Dia::SQL::Output'
);
use_ok (
'Parse::Dia::SQL::Output::Oracle'
);
my
$diasql
=
Parse::Dia::SQL->new(
file
=> catfile(
qw(t data TestERD.dia)
),
db
=>
'oracle'
);
isa_ok(
$diasql
,
q{Parse::Dia::SQL}
,
q{Expect a Parse::Dia::SQL object}
);
is(
$diasql
->convert(), 1,
q{Expect convert() == 1}
);
can_ok(
$diasql
,
q{get_output_instance}
);
my
$subclass
=
$diasql
->get_output_instance();
isa_ok(
$subclass
,
q{Parse::Dia::SQL::Output::Oracle}
,
q{Expect a Parse::Dia::SQL::Output::Oracle object}
);