t/30sqlt-new-diff-mysql.t

   1 #!/usr/bin/perl
   2 # vim: set ft=perl:
   3
   4 use strict;
   5 use warnings;
   6 use SQL::Translator;
   7
   8 use File::Spec::Functions qw(catfile updir tmpdir);
   9 use FindBin qw($Bin);
  10 use Test::More;
  11 use Test::Differences;
  12 use Test::SQL::Translator qw(maybe_plan);
  13 use SQL::Translator::Schema::Constants;
  14 use Storable 'dclone';
  15
  16 plan tests => 9;
  17
  18 use_ok('SQL::Translator::Diff') or die "Cannot continue\n";
  19
  20 my $tr = SQL::Translator->new;
  21
  22 my ( $source_schema, $target_schema, $parsed_sql_schema ) = map {
  23     my $t = SQL::Translator->new;
  24     $t->parser( 'YAML' )
  25       or die $tr->error;
  26     my $out = $t->translate( catfile($Bin, qw/data diff/, $_ ) )
  27       or die $tr->error;
  28
  29     my $schema = $t->schema;
  30     unless ( $schema->name ) {
  31         $schema->name( $_ );
  32     }
  33     ($schema);
  34 } (qw( create1.yml create2.yml ));
  35
  36 # Test for differences
  37 my @out = SQL::Translator::Diff::schema_diff(
  38     $source_schema, 'MySQL',
  39     $target_schema, 'MySQL',
  40     {
  41         no_batch_alters  => 1,
  42         producer_args => { quote_table_names => 0 }
  43     }
  44 );
  45
  46 ok( @out, 'Got a list' );
  47
  48 my $out = join('', @out);
  49
  50 eq_or_diff($out, <<'## END OF DIFF', "Diff as expected");
  51 -- Convert schema 'create1.yml' to 'create2.yml':;
  52
  53 BEGIN;
  54
  55 SET foreign_key_checks=0;
  56
  57 CREATE TABLE added (
  58   id integer(11)
  59 );
  60
  61 SET foreign_key_checks=1;
  62
  63 ALTER TABLE old_name RENAME TO new_name;
  64
  65 ALTER TABLE employee DROP FOREIGN KEY FK5302D47D93FE702E;
  66
  67 ALTER TABLE person DROP INDEX UC_age_name;
  68
  69 ALTER TABLE person DROP INDEX u_name;
  70
  71 ALTER TABLE employee DROP COLUMN job_title;
  72
  73 ALTER TABLE new_name ADD COLUMN new_field integer;
  74
  75 ALTER TABLE person ADD COLUMN is_rock_star tinyint(4) DEFAULT 1;
  76
  77 ALTER TABLE person CHANGE COLUMN person_id person_id integer(11) NOT NULL auto_increment;
  78
  79 ALTER TABLE person CHANGE COLUMN name name varchar(20) NOT NULL;
  80
  81 ALTER TABLE person CHANGE COLUMN age age integer(11) DEFAULT 18;
  82
  83 ALTER TABLE person CHANGE COLUMN iq iq integer(11) DEFAULT 0;
  84
  85 ALTER TABLE person CHANGE COLUMN description physical_description text;
  86
  87 ALTER TABLE person ADD UNIQUE INDEX unique_name (name);
  88
  89 ALTER TABLE employee ADD CONSTRAINT FK5302D47D93FE702E_diff FOREIGN KEY (employee_id) REFERENCES person (person_id);
  90
  91 ALTER TABLE person ADD UNIQUE UC_person_id (person_id);
  92
  93 ALTER TABLE person ADD UNIQUE UC_age_name (age, name);
  94
  95 ALTER TABLE person ENGINE=InnoDB;
  96
  97 ALTER TABLE deleted DROP FOREIGN KEY fk_fake;
  98
  99 DROP TABLE deleted;
 100
 101
 102 COMMIT;
 103
 104 ## END OF DIFF
 105
 106 $out = SQL::Translator::Diff::schema_diff($source_schema, 'MySQL', $target_schema, 'MySQL',
 107     { ignore_index_names => 1,
 108       ignore_constraint_names => 1,
 109       producer_args => { quote_table_names => 0 },
 110     });
 111
 112 eq_or_diff($out, <<'## END OF DIFF', "Diff as expected");
 113 -- Convert schema 'create1.yml' to 'create2.yml':;
 114
 115 BEGIN;
 116
 117 SET foreign_key_checks=0;
 118
 119 CREATE TABLE added (
 120   id integer(11)
 121 );
 122
 123 SET foreign_key_checks=1;
 124
 125 ALTER TABLE employee DROP COLUMN job_title;
 126
 127 ALTER TABLE old_name RENAME TO new_name,
 128                      ADD COLUMN new_field integer;
 129
 130 ALTER TABLE person DROP INDEX UC_age_name,
 131                    ADD COLUMN is_rock_star tinyint(4) DEFAULT 1,
 132                    CHANGE COLUMN person_id person_id integer(11) NOT NULL auto_increment,
 133                    CHANGE COLUMN name name varchar(20) NOT NULL,
 134                    CHANGE COLUMN age age integer(11) DEFAULT 18,
 135                    CHANGE COLUMN iq iq integer(11) DEFAULT 0,
 136                    CHANGE COLUMN description physical_description text,
 137                    ADD UNIQUE UC_person_id (person_id),
 138                    ADD UNIQUE UC_age_name (age, name),
 139                    ENGINE=InnoDB;
 140
 141 ALTER TABLE deleted DROP FOREIGN KEY fk_fake;
 142
 143 DROP TABLE deleted;
 144
 145
 146 COMMIT;
 147
 148 ## END OF DIFF
 149
 150
 151 # Test for sameness
 152 $out = SQL::Translator::Diff::schema_diff($source_schema, 'MySQL', $source_schema, 'MySQL' );
 153
 154 eq_or_diff($out, <<'## END OF DIFF', "No differences found");
 155 -- Convert schema 'create1.yml' to 'create1.yml':;
 156
 157 -- No differences found;
 158
 159 ## END OF DIFF
 160
 161 {
 162   my $t = SQL::Translator->new;
 163   $t->parser( 'MySQL' )
 164     or die $tr->error;
 165   my $out = $t->translate( catfile($Bin, qw/data mysql create.sql/ ) )
 166     or die $tr->error;
 167
 168   # Lets remove the renamed table so we dont have to change the SQL or other tests
 169   $target_schema->drop_table('new_name');
 170
 171   my $schema = $t->schema;
 172   unless ( $schema->name ) {
 173       $schema->name( 'create.sql' );
 174   }
 175
 176   # Now lets change the type of one of the 'integer' columns so that it
 177   # matches what the mysql parser sees for '<col> interger'.
 178   my $field = $target_schema->get_table('employee')->get_field('employee_id');
 179   $field->data_type('integer');
 180   $field->size(0);
 181   $out = SQL::Translator::Diff::schema_diff($schema, 'MySQL', $target_schema, 'MySQL', { producer_args => { quote_table_names => 0 } } );
 182   eq_or_diff($out, <<'## END OF DIFF', "No differences found");
 183 -- Convert schema 'create.sql' to 'create2.yml':;
 184
 185 BEGIN;
 186
 187 SET foreign_key_checks=0;
 188
 189 CREATE TABLE added (
 190   id integer(11)
 191 );
 192
 193 SET foreign_key_checks=1;
 194
 195 ALTER TABLE employee DROP FOREIGN KEY FK5302D47D93FE702E,
 196                      DROP COLUMN job_title,
 197                      ADD CONSTRAINT FK5302D47D93FE702E_diff FOREIGN KEY (employee_id) REFERENCES person (person_id);
 198
 199 ALTER TABLE person DROP INDEX UC_age_name,
 200                    DROP INDEX u_name,
 201                    ADD COLUMN is_rock_star tinyint(4) DEFAULT 1,
 202                    CHANGE COLUMN person_id person_id integer(11) NOT NULL auto_increment,
 203                    CHANGE COLUMN name name varchar(20) NOT NULL,
 204                    CHANGE COLUMN age age integer(11) DEFAULT 18,
 205                    CHANGE COLUMN iq iq integer(11) DEFAULT 0,
 206                    CHANGE COLUMN description physical_description text,
 207                    ADD UNIQUE INDEX unique_name (name),
 208                    ADD UNIQUE UC_person_id (person_id),
 209                    ADD UNIQUE UC_age_name (age, name),
 210                    ENGINE=InnoDB;
 211
 212 DROP TABLE deleted;
 213
 214
 215 COMMIT;
 216
 217 ## END OF DIFF
 218 }
 219
 220 # Test InnoDB stupidness. Have to drop constraints before re-adding them if
 221 # they are just alters.
 222
 223
 224 {
 225   my $s1 = SQL::Translator::Schema->new;
 226   my $s2 = SQL::Translator::Schema->new;
 227
 228   $s1->name('Schema 1');
 229   $s2->name('Schema 2');
 230
 231   my $t1 = $s1->add_table($target_schema->get_table('employee'));
 232   my $t2 = $s2->add_table(dclone($target_schema->get_table('employee')));
 233
 234
 235   my ($c) = grep { $_->name eq 'FK5302D47D93FE702E_diff' } $t2->get_constraints;
 236   $c->on_delete('CASCADE');
 237
 238   $t2->add_constraint(
 239     name => 'new_constraint',
 240     type => 'FOREIGN KEY',
 241     fields => ['employee_id'],
 242     reference_fields => ['fake'],
 243     reference_table => 'patty',
 244   );
 245
 246   $t2->add_field(
 247     name => 'new',
 248     data_type => 'int'
 249   );
 250
 251   my $out = SQL::Translator::Diff::schema_diff($s1, 'MySQL', $s2, 'MySQL' );
 252
 253   eq_or_diff($out, <<'## END OF DIFF', "Batch alter of constraints work for InnoDB");
 254 -- Convert schema 'Schema 1' to 'Schema 2':;
 255
 256 BEGIN;
 257
 258 ALTER TABLE employee DROP FOREIGN KEY FK5302D47D93FE702E_diff;
 259
 260 ALTER TABLE employee ADD COLUMN new integer,
 261                      ADD CONSTRAINT FK5302D47D93FE702E_diff FOREIGN KEY (employee_id) REFERENCES person (person_id) ON DELETE CASCADE,
 262                      ADD CONSTRAINT new_constraint FOREIGN KEY (employee_id) REFERENCES patty (fake);
 263
 264
 265 COMMIT;
 266
 267 ## END OF DIFF
 268 }
 269
 270 {
 271   # Test other things about renaming tables to - namely that renames
 272   # constraints are still formated right.
 273
 274   my $s1 = SQL::Translator::Schema->new;
 275   my $s2 = SQL::Translator::Schema->new;
 276
 277   $s1->name('Schema 3');
 278   $s2->name('Schema 4');
 279
 280   my $t1 = $s1->add_table(dclone($target_schema->get_table('employee')));
 281   my $t2 = dclone($target_schema->get_table('employee'));
 282   $t2->name('fnord');
 283   $t2->extra(renamed_from => 'employee');
 284   $s2->add_table($t2);
 285
 286
 287   $t1->add_constraint(
 288     name => 'bar_fk',
 289     type => 'FOREIGN KEY',
 290     fields => ['employee_id'],
 291     reference_fields => ['id'],
 292     reference_table => 'bar',
 293   );
 294   $t2->add_constraint(
 295     name => 'foo_fk',
 296     type => 'FOREIGN KEY',
 297     fields => ['employee_id'],
 298     reference_fields => ['id'],
 299     reference_table => 'foo',
 300   );
 301
 302   my $out = SQL::Translator::Diff::schema_diff($s1, 'MySQL', $s2, 'MySQL' );
 303   eq_or_diff($out, <<'## END OF DIFF', "Alter/drop constraints works with rename table");
 304 -- Convert schema 'Schema 3' to 'Schema 4':;
 305
 306 BEGIN;
 307
 308 ALTER TABLE employee RENAME TO fnord,
 309                      DROP FOREIGN KEY bar_fk,
 310                      ADD CONSTRAINT foo_fk FOREIGN KEY (employee_id) REFERENCES foo (id);
 311
 312
 313 COMMIT;
 314
 315 ## END OF DIFF
 316
 317   # Test quoting works too.
 318   $out = SQL::Translator::Diff::schema_diff($s1, 'MySQL', $s2, 'MySQL',
 319     { producer_args => { quote_table_names => '`' } }
 320   );
 321   eq_or_diff($out, <<'## END OF DIFF', "Quoting can be turned on");
 322 -- Convert schema 'Schema 3' to 'Schema 4':;
 323
 324 BEGIN;
 325
 326 ALTER TABLE `employee` RENAME TO `fnord`,
 327                        DROP FOREIGN KEY bar_fk,
 328                        ADD CONSTRAINT foo_fk FOREIGN KEY (employee_id) REFERENCES `foo` (id);
 329
 330
 331 COMMIT;
 332
 333 ## END OF DIFF
 334 }