7 use SQL::Translator::Validator;
12 use_ok("SQL::Translator::Parser::Excel");
14 my $tr = SQL::Translator->new(parser => "Excel");
15 my $t = $tr->translate(filename => "t/data/Excel/t.xls");
17 ok(scalar $tr->translate(producer => "MySQL"));
20 ok(not defined $t->{Sheet2});
21 ok(not defined $t->{Sheet3});
23 ok($t->{Sheet1}->{fields}->{ID}->{is_primary_key});