X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F10excel.t;h=5c2e1488e7a4eb3f19e7c27f343f398b318aef33;hb=39bfaa8b6ba856c4a59c1ba8b0cd510e6a736290;hp=4321af475e971aa7d953ec383b40a293d4869c5c;hpb=2c273e34cd2ad505f596859bdfc4e1e852529b86;p=dbsrgits%2FSQL-Translator.git

diff --git a/t/10excel.t b/t/10excel.t
index 4321af4..5c2e148 100644
--- a/t/10excel.t
+++ b/t/10excel.t
@@ -10,7 +10,7 @@ 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;
@@ -45,8 +45,8 @@ is( $f3->is_primary_key, 0, 'Field is not PK' );
 my $f4 = shift @fields;
 TODO: {
     eval { require Spreadsheet::ParseExcel };
-       todo_skip "Bug in Spreadsheet::ParseExcel, http://rt.cpan.org/Public/Bug/Display.html?id=39892", 4 
-               if ($Spreadsheet::ParseExcel::VERSION > 0.32);
+       todo_skip "Bug in Spreadsheet::ParseExcel, http://rt.cpan.org/Public/Bug/Display.html?id=39892", 4
+               if ( $Spreadsheet::ParseExcel::VERSION > 0.32 and $Spreadsheet::ParseExcel::VERSION < 0.41 );
 
        is( $f4->name, 'math', 'Fourth field name is "math"' );
        is( lc $f4->data_type, 'float', 'Data type is "float"' );
@@ -67,7 +67,7 @@ is( $f6->size, 10, 'Size is "10"' );
 is( $f6->is_primary_key, 0, 'Field is not PK' );
 
 my $f7 = shift @fields;
-is( $f7->name, 'silly_field_with_random_characters', 
+is( $f7->name, 'silly_field_with_random_characters',
     'Seventh field name is "silly_field_with_random_characters"' );
 is( lc $f7->data_type, 'char', 'Data type is "CHAR"' );
 is( $f7->size, 11, 'Size is "11"' );