Fixed test numbers, removed unnecessary code.
Ken Youens-Clark [Fri, 6 Jun 2003 22:39:32 +0000 (22:39 +0000)]
t/10excel.t

index 58c39be..ed5a833 100644 (file)
@@ -1,8 +1,7 @@
 #!/usr/bin/perl
 # vim: set ft=perl:
-#
 
-use Test::More 'no_plan'; # tests => 6;
+use Test::More tests => 31;
 use SQL::Translator;
 use SQL::Translator::Parser::Excel 'parse';
 use SQL::Translator::Schema::Constants;
@@ -11,11 +10,6 @@ my $tr     = SQL::Translator->new(parser => "Excel");
 my $t      = $tr->translate(filename => "t/data/Excel/t.xls");
 my $schema = $tr->schema;
 
-#use Data::Dumper;
-#print Dumper($schema), "\n";
-
-#ok(scalar $tr->translate(producer => "MySQL"));
-
 my @tables = $schema->get_tables;
 is( scalar @tables, 1, 'Parsed 1 table' );