Brought the test up to date with some recent changes.

diff --git a/t/10excel.t b/t/10excel.t
index ed5a833..203d511 100644 (file)
--- a/t/10excel.t
+++ b/t/10excel.t
@@ -21,43 +21,43 @@ is( scalar @fields, 7, 'Table has 7 fields' );
 
 my $f1 = shift @fields;
 is( $f1->name, 'ID', 'First field name is "ID"' );
-is( $f1->data_type, 'VARCHAR', 'Data type is "VARCHAR"' );
-is( $f1->size, 255, 'Size is "255"' );
+is( lc $f1->data_type, 'integer', 'Data type is "integer"' );
+is( $f1->size, 5, 'Size is "5"' );
 is( $f1->is_primary_key, 1, 'Field is PK' );
 
 my $f2 = shift @fields;
 is( $f2->name, 'text', 'Second field name is "text"' );
-is( $f2->data_type, 'VARCHAR', 'Data type is "VARCHAR"' );
-is( $f2->size, 255, 'Size is "255"' );
+is( lc $f2->data_type, 'char', 'Data type is "char"' );
+is( $f2->size, 7, 'Size is "7"' );
 is( $f2->is_primary_key, 0, 'Field is not PK' );
 
 my $f3 = shift @fields;
 is( $f3->name, 'number', 'Third field name is "number"' );
-is( $f3->data_type, 'VARCHAR', 'Data type is "VARCHAR"' );
+is( lc $f3->data_type, 'varchar', 'Data type is "VARCHAR"' );
 is( $f3->size, 255, 'Size is "255"' );
 is( $f3->is_primary_key, 0, 'Field is not PK' );
 
 my $f4 = shift @fields;
 is( $f4->name, 'math', 'Fourth field name is "math"' );
-is( $f4->data_type, 'VARCHAR', 'Data type is "VARCHAR"' );
-is( $f4->size, 255, 'Size is "255"' );
+is( lc $f4->data_type, 'integer', 'Data type is "ingeger"' );
+is( $f4->size, 2, 'Size is "2"' );
 is( $f4->is_primary_key, 0, 'Field is not PK' );
 
 my $f5 = shift @fields;
 is( $f5->name, 'bitmap', 'Fifth field name is "bitmap"' );
-is( $f5->data_type, 'VARCHAR', 'Data type is "VARCHAR"' );
+is( lc $f5->data_type, 'varchar', 'Data type is "VARCHAR"' );
 is( $f5->size, 255, 'Size is "255"' );
 is( $f5->is_primary_key, 0, 'Field is not PK' );
 
 my $f6 = shift @fields;
 is( $f6->name, 'today', 'Sixth field name is "today"' );
-is( $f6->data_type, 'VARCHAR', 'Data type is "VARCHAR"' );
-is( $f6->size, 255, 'Size is "255"' );
+is( lc $f6->data_type, 'char', 'Data type is "CHAR"' );
+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', 
     'Seventh field name is "silly_field_with_random_characters"' );
-is( $f7->data_type, 'VARCHAR', 'Data type is "VARCHAR"' );
-is( $f7->size, 255, 'Size is "255"' );
+is( lc $f7->data_type, 'char', 'Data type is "CHAR"' );
+is( $f7->size, 11, 'Size is "11"' );
 is( $f7->is_primary_key, 0, 'Field is not PK' );