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

diff --git a/t/16xml-parser.t b/t/16xml-parser.t
index bc2b7a5..165d11f 100644
--- a/t/16xml-parser.t
+++ b/t/16xml-parser.t
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w 
+#!/usr/bin/perl -w
 # vim:filetype=perl
 
 # Before `make install' is performed this script should be runnable with
@@ -27,7 +27,7 @@ use constant DEBUG => (exists $opt{d} ? 1 : 0);
 #=============================================================================
 
 BEGIN {
-    maybe_plan(142, 'SQL::Translator::Parser::XML::SQLFairy');
+    maybe_plan(undef, 'SQL::Translator::Parser::XML::SQLFairy');
 }
 
 my $testschema = "$Bin/data/xml/schema.xml";
@@ -39,12 +39,21 @@ $sqlt = SQL::Translator->new(
     add_drop_table => 1,
 );
 die "Can't find test schema $testschema" unless -e $testschema;
-my $sql = $sqlt->translate(
+
+my $sql;
+{
+  my @w;
+  local $SIG{__WARN__} = sub { push @w, $_[0] if $_[0] =~ /The database_event tag is deprecated - please use database_events/ };
+
+  $sql = $sqlt->translate(
     from     => 'XML-SQLFairy',
     to       => 'MySQL',
     filename => $testschema,
-) or die $sqlt->error;
-print $sql if DEBUG;
+  ) or die $sqlt->error;
+  print $sql if DEBUG;
+
+  ok (@w, 'database_event deprecation warning issued');
+}
 
 # Test the schema objs generted from the XML
 #
@@ -57,6 +66,12 @@ schema_ok( $scma, {
     tables => [
         {
             name => "Basic",
+            options => [ { ENGINE => 'InnoDB' } ],
+            extra => {
+                foo => "bar",
+                hello => "world",
+                bar => "baz",
+            },
             fields => [
                 {
                     name => "id",
@@ -66,6 +81,7 @@ schema_ok( $scma, {
                     size => 10,
                     is_primary_key => 1,
                     is_auto_increment => 1,
+                    extra => { ZEROFILL => 1 },
                 },
                 {
                     name => "title",
@@ -73,6 +89,7 @@ schema_ok( $scma, {
                     is_nullable => 0,
                     default_value => "hello",
                     size => 100,
+                    is_unique => 1,
                 },
                 {
                     name => "description",
@@ -83,55 +100,131 @@ schema_ok( $scma, {
                 {
                     name => "email",
                     data_type => "varchar",
-                    size => 255,
+                    size => 500,
                     is_unique => 1,
                     default_value => undef,
                     is_nullable => 1,
+                    extra => {
+                        foo => "bar",
+                        hello => "world",
+                        bar => "baz",
+                    }
                 },
                 {
                     name => "explicitnulldef",
                     data_type => "varchar",
                     default_value => undef,
                     is_nullable => 1,
+                    size => 255,
                 },
                 {
                     name => "explicitemptystring",
                     data_type => "varchar",
                     default_value => "",
                     is_nullable => 1,
+                    size => 255,
                 },
                 {
                     name => "emptytagdef",
                     data_type => "varchar",
                     default_value => "",
                     is_nullable => 1,
+                    comments => "Hello emptytagdef",
+                    size => 255,
+                },
+                {
+                    name => "another_id",
+                    data_type => "int",
+                    size => "10",
+                    default_value => 2,
+                    is_nullable => 1,
+                    is_foreign_key => 1,
+                },
+                {
+                    name => "timest",
+                    data_type => "timestamp",
+                    size => "0",
+                    is_nullable => 1,
                 },
             ],
             constraints => [
                 {
                     type => PRIMARY_KEY,
                     fields => ["id"],
+                    extra => {
+                        foo => "bar",
+                        hello => "world",
+                        bar => "baz",
+                    },
                 },
                 {
                     name => 'emailuniqueindex',
                     type => UNIQUE,
                     fields => ["email"],
-                }
+                },
+                {
+                    name => 'very_long_index_name_on_title_field_which_should_be_truncated_for_various_rdbms',
+                    type => UNIQUE,
+                    fields => ["title"],
+                },
+                {
+                    type => FOREIGN_KEY,
+                    fields => ["another_id"],
+                    reference_table => "Another",
+                    reference_fields => ["id"],
+                    name => 'Basic_fk'
+                },
             ],
             indices => [
                 {
                     name => "titleindex",
                     fields => ["title"],
+                    extra => {
+                        foo => "bar",
+                        hello => "world",
+                        bar => "baz",
+                    },
+                },
+            ],
+        }, # end table Basic
+        {
+            name => "Another",
+            extra => {
+                foo => "bar",
+                hello => "world",
+                bar => "baz",
+            },
+            options => [ { ENGINE => 'InnoDB' } ],
+            fields => [
+                {
+                    name => "id",
+                    data_type => "int",
+                    default_value => undef,
+                    is_nullable => 0,
+                    size => 10,
+                    is_primary_key => 1,
+                    is_auto_increment => 1,
+                },
+                {
+                    name => "num",
+                    data_type => "numeric",
+                    default_value => undef,
+                    size => '10,2',
                 },
             ],
-        } # end table Basic
+        }, # end table Another
     ], # end tables
 
     views => [
         {
             name => 'email_list',
-            sql => "SELECT email FROM Basic WHERE email IS NOT NULL",
+            sql => "SELECT email FROM Basic WHERE (email IS NOT NULL)",
             fields => ['email'],
+            extra => {
+                foo => "bar",
+                hello => "world",
+                bar => "baz",
+            },
         },
     ],
 
@@ -139,9 +232,26 @@ schema_ok( $scma, {
         {
             name                => 'foo_trigger',
             perform_action_when => 'after',
-            database_event      => 'insert',
-            on_table            => 'foo',
+            database_events     => 'insert',
+            on_table            => 'Basic',
             action              => 'update modified=timestamp();',
+            scope               => 'row',
+            extra => {
+                foo => "bar",
+                hello => "world",
+                bar => "baz",
+            },
+        },
+        {
+            name                => 'bar_trigger',
+            perform_action_when => 'before',
+            database_events     => 'insert,update',
+            on_table            => 'Basic',
+            action              => 'update modified2=timestamp();',
+            scope               => 'row',
+            extra => {
+                hello => "aliens",
+            },
         },
     ],
 
@@ -152,7 +262,14 @@ schema_ok( $scma, {
             parameters => ['foo', 'bar'],
             owner      => 'Nomar',
             comments   => 'Go Sox!',
+            extra => {
+                foo => "bar",
+                hello => "world",
+                bar => "baz",
+            },
         },
     ],
 
 }); # end schema
+
+done_testing;