X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F16xml-parser.t;h=2fe15f30c07c5512289334433df2e4c04259e4a7;hb=3b9249fb0058ac9896a10c9ca8b87ddd40f6c074;hp=ae96dd4f3e754dc3c685ba5b0120274c7d2d083b;hpb=4c0d31c125be1c212c2b984f4a4d806a61b2bd6e;p=dbsrgits%2FSQL-Translator.git diff --git a/t/16xml-parser.t b/t/16xml-parser.t index ae96dd4..2fe15f3 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(224, 'SQL::Translator::Parser::XML::SQLFairy'); + maybe_plan(238, 'SQL::Translator::Parser::XML::SQLFairy'); } my $testschema = "$Bin/data/xml/schema.xml"; @@ -89,6 +89,7 @@ schema_ok( $scma, { is_nullable => 0, default_value => "hello", size => 100, + is_unique => 1, }, { name => "description", @@ -162,6 +163,11 @@ schema_ok( $scma, { 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",