Commit | Line | Data |
fc4e23d3 |
1 | #!/usr/bin/perl |
2 | # vim: set ft=perl: |
3 | # |
4 | |
5 | use Test::More; |
6 | use SQL::Translator; |
ab0aa010 |
7 | use SQL::Translator::Validator; |
fc4e23d3 |
8 | |
ab0aa010 |
9 | plan tests => 6; |
fc4e23d3 |
10 | |
11 | # Basic test |
12 | use_ok("SQL::Translator::Parser::Excel"); |
13 | |
ab0aa010 |
14 | my $tr = SQL::Translator->new(parser => "Excel"); |
15 | my $t = $tr->translate(filename => "t/data/Excel/t.xls"); |
16 | |
17 | ok(scalar $tr->translate(producer => "MySQL")); |
18 | |
19 | ok($t->{Sheet1}); |
20 | ok(not defined $t->{Sheet2}); |
21 | ok(not defined $t->{Sheet3}); |
22 | |
23 | ok($t->{Sheet1}->{fields}->{ID}->{is_primary_key}); |