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

#!/usr/bin/perl
# vim: set ft=perl:
#

use Test::More;
use SQL::Translator;
use SQL::Translator::Validator;

plan tests => 6;

# Basic test
use_ok("SQL::Translator::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});
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});