Add index length option for MySQL

lib/SQL/Translator/Producer/Oracle.pm

@@ -677,7 +677,7 @@ sub create_index {
         $index_name ? quote($index_name, $qf): '',
         'ON',
         quote($index->table, $qt),
-        '(' . join( ', ', map { quote($_, $qf) } $index->fields ) . ")$index_options"
+        '(' . join( ', ', map { quote($_, $qf) } $index->field_names ) . ")$index_options"
     );
 }
 

t/45db2-producer.t

@@ -62,7 +62,7 @@ my $index = $table->add_index(name => 'myindex', fields => ['foo']);
 my ($def) = SQL::Translator::Producer::DB2::create_index($index);
 is($def, 'CREATE INDEX myindex ON mytable ( foo );', 'index created');
 
-my $index2 = $table->add_index(name => 'myindex', fields => [ { name => 'foo', size => 15 } ]);
+my $index2 = $table->add_index(name => 'myindex', fields => [ { name => 'foo', prefix_length => 15 } ]);
 my ($def2) = SQL::Translator::Producer::DB2::create_index($index);
 is($def2, 'CREATE INDEX myindex ON mytable ( foo );', 'index created');
 

t/47postgres-producer.t

@@ -649,7 +649,7 @@ is($view2_sql1, $view2_sql_replace, 'correct "CREATE OR REPLACE VIEW" SQL 2');
     }
 
     {
-        my $index = $table->add_index(name => 'myindex', fields => [ { name => 'foo', size => 20 } ]);
+        my $index = $table->add_index(name => 'myindex', fields => [ { name => 'foo', prefix_length => 20 } ]);
         my ($def) = SQL::Translator::Producer::PostgreSQL::create_index($index);
         is($def, "CREATE INDEX myindex on foobar (foo)", 'index created');
         ($def) = SQL::Translator::Producer::PostgreSQL::create_index($index, $quote);

t/55-oracle-producer.t

@@ -85,8 +85,8 @@ use SQL::Translator::Producer::Oracle;
 
     is_deeply(
         $index1_def,
-        [   'CREATE INDEX myfooindex on table1 (foo)',
-            'CREATE INDEX mybarindex on table1 (bar)'
+        [   'CREATE INDEX myfooindex ON table1 (foo)',
+            'CREATE INDEX mybarindex ON table1 (bar)'
         ],
         'correct "CREATE INDEX" SQL'
     );