#=============================================================================
BEGIN {
+ eval {require Template;};
+
+ if ( $@ ) {
+ plan skip_all => 'Template not installed?'
+ }
+
maybe_plan(6,
'XML::XPath',
'SQL::Translator::Parser::XML::SQLFairy',
'Template',
'Test::Differences'
- )
+ );
}
use Test::Differences;
{
my $obj;
$obj = SQL::Translator->new(
- show_warnings => 1,
+ show_warnings => 0,
from => "XML-SQLFairy",
filename => "$Bin/data/xml/schema.xml",
to => "TTSchema",
producer_args => {
ttfile => "$Bin/data/template/basic.tt",
-# ttfile => "$Bin/data/template/test.tt",
tt_vars => {
foo => 'bar',
hello => 'world',
);
my $out;
lives_ok { $out = $obj->translate; } "Translate ran";
-# print STDERR "Output: $out\n";
ok $out ne "" ,"Produced something!";
local $/ = undef; # slurp
eq_or_diff $out, <DATA> ,"Output looks right";
[%- END %]};
my $obj;
$obj = SQL::Translator->new(
- show_warnings => 1,
+ show_warnings => 0,
from => "XML-SQLFairy",
filename => "$Bin/data/xml/schema.xml",
to => "TTSchema",
email
data_type: varchar
- size: 255
+ size: 500
is_nullable: 1
default_value:
is_primary_key: 0
is_foreign_key: 0
foreign_key_reference:
is_valid: 1
- order: 10
+ order: 1
table: Another