my $base_schema = $base_t->translate(
parser => 'YAML',
data => do { local $/; <$base_fh>; },
-) or die $base_t->error;
+) or die $!;
#assume there is at least one table
my $string_re = {
local $TODO = $args->{todo} if $args->{todo};
lives_ok (
- sub { check_roundtrip ($args, $base_t, $base_schema) },
+ sub { check_roundtrip ($args, $base_t) },
"Round trip for $args->{name} did not throw an exception",
);
}
done_testing;
sub check_roundtrip {
- my ($args, $base_t, $base_schema) = @_;
+ my ($args, $base_t) = @_;
# create some output from the submitted schema
my $base_out = $base_t->translate(
- data => $base_schema,
+ data => $base_t->schema,
producer => $args->{engine},
-# producer_args => $args->{producer_args},
+ producer_args => $args->{producer_args} || {},
);
like (
$string_re->{$args->{engine}} || $string_re->{SQL},
"Received some meaningful output from the first $args->{name} production",
) or do {
- diag ( _gen_diag ($base_t->error) );
+ diag ( _gen_diag ($@) );
return;
};
my $mid_schema = $parser_t->translate (
data => $base_out,
parser => $args->{engine},
-# parser_args => $args->{parser_args},
+ parser_args => $args->{parser_args} || {},
);
isa_ok ($mid_schema, 'SQL::Translator::Object::Schema', "First $args->{name} parser pass produced a schema:")
or do {
- diag (_gen_diag ( $parser_t->error, $base_out ) );
+ diag (_gen_diag ( $@, $base_out ) );
return;
};
my $rt_out = $parser_t->translate (
data => $mid_schema,
producer => $args->{engine},
-# producer_args => $args->{producer_args},
+ producer_args => $args->{producer_args} || {},
);
like (
$string_re->{$args->{engine}} || $string_re->{SQL},
"Received some meaningful output from the second $args->{name} production",
) or do {
- diag ( _gen_diag ( $parser_t->error ) );
+ diag ( _gen_diag ( $@ ) );
return;
};