# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl test.pl'
+use strict;
use Test::More;
use Test::Exception;
use Data::Dumper;
-BEGIN { our %opt; map { $opt{$_}=1 if s/^-// } @ARGV; }
+use vars '%opt';
+BEGIN { map { $opt{$_}=1 if s/^-// } @ARGV; }
use constant DEBUG => (exists $opt{d} ? 1 : 0);
local $SIG{__WARN__} = sub { diag "[warn] ", @_; };
use SQL::Translator::Producer::TTSchema;
# Parse the test XML schema
-our $obj;
+my $obj;
$obj = SQL::Translator->new(
debug => DEBUG, #$opt{d},
show_warnings => 1,
add_drop_table => 1,
- from => "SqlfXML",
+ from => "XML-SQLFairy",
filename => "$Bin/data/xml/schema-basic.xml",
to => "TTSchema",
producer_args => {
},
);
my $out;
-lives_ok { $out = $obj->translate; } "Produced template";
-ok $out ne "" ,"Output has some content";
+lives_ok { $out = $obj->translate; } "Translate ran";
+ok $out ne "" ,"Produced something!";
local $/ = undef; # slurp
eq_or_diff $out, <DATA> ,"Output looks right";
-# I'm sure if this diff is the best test, it is probaly too sensitive. But it
-# at least it will blow up if anything changes!
+# I'm not sure if this diff is the best test, it is probaly too sensitive. But
+# it at least it will blow up if anything changes!
print $out if DEBUG;
#print "Debug:", Dumper($obj) if DEBUG;
extra:
table: Basic
- singletagdef
+ emptytagdef
data_type: varchar
size: 0
is_nullable: 1