X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F16xml-parser.t;h=49c0a26cef1fbb187b325097f1519d3fbdcce737;hb=5a0c7b434ab26721269fb21199e93568cf17bd83;hp=bc2b7a5f29aedb7894fec201ba0203548e5d34bb;hpb=ec791002ba1fed6772d86a89de64ff65c1be3545;p=dbsrgits%2FSQL-Translator.git

diff --git a/t/16xml-parser.t b/t/16xml-parser.t
index bc2b7a5..49c0a26 100644
--- a/t/16xml-parser.t
+++ b/t/16xml-parser.t
@@ -27,7 +27,7 @@ use constant DEBUG => (exists $opt{d} ? 1 : 0);
 #=============================================================================
 
 BEGIN {
-    maybe_plan(142, 'SQL::Translator::Parser::XML::SQLFairy');
+    maybe_plan(150, 'SQL::Translator::Parser::XML::SQLFairy');
 }
 
 my $testschema = "$Bin/data/xml/schema.xml";
@@ -57,6 +57,12 @@ schema_ok( $scma, {
     tables => [
         {
             name => "Basic",
+            extra => {
+                foo => "bar",
+                hello => "world",
+                bar => "baz",
+                mysql_table_type => "InnoDB",
+            },
             fields => [
                 {
                     name => "id",
@@ -66,6 +72,7 @@ schema_ok( $scma, {
                     size => 10,
                     is_primary_key => 1,
                     is_auto_increment => 1,
+                    extra => { ZEROFILL => 1 },
                 },
                 {
                     name => "title",
@@ -87,6 +94,11 @@ schema_ok( $scma, {
                     is_unique => 1,
                     default_value => undef,
                     is_nullable => 1,
+                    extra => {
+                        foo => "bar",
+                        hello => "world",
+                        bar => "baz",
+                    }
                 },
                 {
                     name => "explicitnulldef",
@@ -105,12 +117,18 @@ schema_ok( $scma, {
                     data_type => "varchar",
                     default_value => "",
                     is_nullable => 1,
+                    comments => "Hello emptytagdef",
                 },
             ],
             constraints => [
                 {
                     type => PRIMARY_KEY,
                     fields => ["id"],
+                    extra => {
+                        foo => "bar",
+                        hello => "world",
+                        bar => "baz",
+                    },
                 },
                 {
                     name => 'emailuniqueindex',
@@ -122,6 +140,11 @@ schema_ok( $scma, {
                 {
                     name => "titleindex",
                     fields => ["title"],
+                    extra => {
+                        foo => "bar",
+                        hello => "world",
+                        bar => "baz",
+                    },
                 },
             ],
         } # end table Basic
@@ -132,6 +155,11 @@ schema_ok( $scma, {
             name => 'email_list',
             sql => "SELECT email FROM Basic WHERE email IS NOT NULL",
             fields => ['email'],
+            extra => {
+                foo => "bar",
+                hello => "world",
+                bar => "baz",
+            },
         },
     ],
 
@@ -142,6 +170,11 @@ schema_ok( $scma, {
             database_event      => 'insert',
             on_table            => 'foo',
             action              => 'update modified=timestamp();',
+            extra => {
+                foo => "bar",
+                hello => "world",
+                bar => "baz",
+            },
         },
     ],
 
@@ -152,6 +185,11 @@ schema_ok( $scma, {
             parameters => ['foo', 'bar'],
             owner      => 'Nomar',
             comments   => 'Go Sox!',
+            extra => {
+                foo => "bar",
+                hello => "world",
+                bar => "baz",
+            },
         },
     ],