Alias to XML::SQLFairy.

[dbsrgits/SQL-Translator.git] / t / 02mysql-parser.t

diff --git a/t/02mysql-parser.t b/t/02mysql-parser.t
index 8538898..30971e8 100644 (file)
--- a/t/02mysql-parser.t
+++ b/t/02mysql-parser.t
@@ -4,7 +4,7 @@
 
 use strict;
 
-use Test::More tests => 177;
+use Test::More tests => 180;
 use SQL::Translator;
 use SQL::Translator::Parser::MySQL qw(parse);
 use SQL::Translator::Schema::Constants;
@@ -19,6 +19,7 @@ use SQL::Translator::Schema::Constants;
     my $val = parse($tr, $data);
 
     my $schema = $tr->schema;
+    is( $schema->is_valid, 1, 'Schema is valid' );
     my @tables = $schema->get_tables;
     is( scalar @tables, 1, 'Right number of tables (1)' );
     my $table  = shift @tables;
@@ -37,7 +38,7 @@ use SQL::Translator::Schema::Constants;
 
     is( $f2->name, 'a_session', 'Second field name is "a_session"' );
     is( $f2->data_type, 'text', 'Type is "text"' );
-    is( $f2->size, 0, 'Size is "0"' );
+    is( $f2->size, 65_535, 'Size is "65,535"' );
     is( $f2->is_nullable, 1, 'Field can be null' );
     is( $f2->default_value, undef, 'Default value is undefined' );
     is( $f2->is_primary_key, 0, 'Field is not PK' );
@@ -77,6 +78,7 @@ use SQL::Translator::Schema::Constants;
     );
     
     my $schema = $tr->schema;
+    is( $schema->is_valid, 1, 'Schema is valid' );
     my @tables = $schema->get_tables;
     is( scalar @tables, 1, 'Right number of tables (1)' );
     my $table  = shift @tables;
@@ -244,6 +246,7 @@ use SQL::Translator::Schema::Constants;
     ) or die $tr->error;
 
     my $schema = $tr->schema;
+    is( $schema->is_valid, 1, 'Schema is valid' );
     my @tables = $schema->get_tables;
     is( scalar @tables, 2, 'Right number of tables (2)' );