Attempt to be more robust.lib/SQL/Translator/Validator.pm

[dbsrgits/SQL-Translator.git] / t / 10excel.t

diff --git a/t/10excel.t b/t/10excel.t
index 53d90b6..17a6cec 100644 (file)
--- a/t/10excel.t
+++ b/t/10excel.t
@@ -4,10 +4,20 @@
 
 use Test::More;
 use SQL::Translator;
+use SQL::Translator::Validator;
 
-plan tests => 1;
+plan tests => 6;
 
 # Basic test
 use_ok("SQL::Translator::Parser::Excel");
 
-#my $tr = SQL::Translator->new(parser => "Excel");
+my $tr = SQL::Translator->new(parser => "Excel");
+my $t = $tr->translate(filename => "t/data/Excel/t.xls");
+
+ok(scalar $tr->translate(producer => "MySQL"));
+
+ok($t->{Sheet1});
+ok(not defined $t->{Sheet2});
+ok(not defined $t->{Sheet3});
+
+ok($t->{Sheet1}->{fields}->{ID}->{is_primary_key});