t/10excel.t

   1 #!/usr/bin/perl
   2 # vim: set ft=perl:
   3 #
   4
   5 use Test::More;
   6 use SQL::Translator;
   7 use SQL::Translator::Validator;
   8
   9 plan tests => 6;
  10
  11 # Basic test
  12 use_ok("SQL::Translator::Parser::Excel");
  13
  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});