X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F16xml-parser.t;h=bb9aecdcf9285a7187e69fbe9ee308f0bb8407bf;hb=2661d702977d22849f5fcc4f756c649d7170874b;hp=ba3d6a0d7293e59bcd3a976e68f7c8f5fc09bb49;hpb=94ed484bd57e92fb214032606080cfd1e7bbf70b;p=dbsrgits%2FSQL-Translator.git diff --git a/t/16xml-parser.t b/t/16xml-parser.t index ba3d6a0..bb9aecd 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(204, '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", @@ -113,25 +119,75 @@ schema_ok( $scma, { is_nullable => 1, comments => "Hello emptytagdef", }, + { + 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"], - } + }, + { + type => FOREIGN_KEY, + fields => ["another_id"], + reference_table => "Another", + reference_fields => ["id"], + }, ], indices => [ { name => "titleindex", fields => ["title"], + extra => { + foo => "bar", + hello => "world", + bar => "baz", + }, + }, + ], + }, # end table Basic + { + name => "Another", + extra => { + foo => "bar", + hello => "world", + bar => "baz", + mysql_table_type => "InnoDB", + }, + fields => [ + { + name => "id", + data_type => "int", + default_value => undef, + is_nullable => 0, + size => 10, + is_primary_key => 1, + is_auto_increment => 1, }, ], - } # end table Basic + }, # end table Another ], # end tables views => [ @@ -139,6 +195,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", + }, }, ], @@ -147,8 +208,13 @@ schema_ok( $scma, { name => 'foo_trigger', perform_action_when => 'after', database_event => 'insert', - on_table => 'foo', + on_table => 'Basic', action => 'update modified=timestamp();', + extra => { + foo => "bar", + hello => "world", + bar => "baz", + }, }, ], @@ -159,6 +225,11 @@ schema_ok( $scma, { parameters => ['foo', 'bar'], owner => 'Nomar', comments => 'Go Sox!', + extra => { + foo => "bar", + hello => "world", + bar => "baz", + }, }, ],