#!/usr/bin/perl
# vim: set ft=perl:
-use Test::More tests => 31;
+use Test::More;
use SQL::Translator;
-use SQL::Translator::Parser::Excel 'parse';
use SQL::Translator::Schema::Constants;
+use Test::SQL::Translator qw(maybe_plan);
+BEGIN {
+ maybe_plan(31, 'SQL::Translator::Parser::Excel');
+ SQL::Translator::Parser::Excel->import('parse');
+}
+
my $tr = SQL::Translator->new(parser => "Excel");
my $t = $tr->translate(filename => "t/data/Excel/t.xls");
my $schema = $tr->schema;
my $f5 = shift @fields;
is( $f5->name, 'bitmap', 'Fifth field name is "bitmap"' );
-is( lc $f5->data_type, 'varchar', 'Data type is "varchar"' );
-is( $f5->size, 255, 'Size is "255"' );
+is( lc $f5->data_type, 'char', 'Data type is "char"' );
+is( $f5->size, 1, 'Size is "1"' );
is( $f5->is_primary_key, 0, 'Field is not PK' );
my $f6 = shift @fields;