projects / dbsrgits/DBIx-Class-Schema-Loader.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | history | HEAD
Add use_moo option
[dbsrgits/DBIx-Class-Schema-Loader.git] / t / 10_02mysql_common.t
CommitLineData
406a97c2 1use DBIx::Class::Schema::Loader::Optional::Dependencies
2 -skip_all_without => 'test_rdbms_mysql';
3
a78e3fed 4use strict;
c4a69b87 5use warnings;
26334ec1 6use Test::More;
c4a69b87 7use Test::Exception;
8use Try::Tiny;
9use File::Path 'rmtree';
10use DBIx::Class::Schema::Loader::Utils 'slurp_file';
11use DBIx::Class::Schema::Loader 'make_schema_at';
12
c2849787 13use lib qw(t/lib);
c4a69b87 14
fbd83464 15use dbixcsl_common_tests;
c4a69b87 16use dbixcsl_test_dir '$tdir';
17
18use constant EXTRA_DUMP_DIR => "$tdir/mysql_extra_dump";
a78e3fed 19
9e978a19 20my $dsn = $ENV{DBICTEST_MYSQL_DSN} || '';
21my $user = $ENV{DBICTEST_MYSQL_USER} || '';
22my $password = $ENV{DBICTEST_MYSQL_PASS} || '';
23my $test_innodb = $ENV{DBICTEST_MYSQL_INNODB} || 0;
a78e3fed 24
c4a69b87 25my $skip_rels_msg = 'You need to set the environment variable DBICTEST_MYSQL_INNODB=1 to test relationships.';
a78e3fed 26
e00d61ac 27my $innodb = $test_innodb ? q{Engine=InnoDB} : '';
28
c4a69b87 29my ($schema, $databases_created); # for cleanup in END for extra tests
30
406a97c2 31diag $skip_rels_msg if not $test_innodb;
32
33dbixcsl_common_tests->new(
958d5fcf 34 vendor => 'Mysql',
35 auto_inc_pk => 'INTEGER NOT NULL PRIMARY KEY AUTO_INCREMENT',
36 innodb => $innodb,
37 dsn => $dsn,
38 user => $user,
39 password => $password,
40 connect_info_opts => { on_connect_call => 'set_strict_mode' },
41 loader_options => { preserve_case => 1 },
42 skip_rels => $test_innodb ? 0 : $skip_rels_msg,
43 quote_char => '`',
44 no_inline_rels => 1,
45 no_implicit_rels => 1,
46 default_on_clause => 'RESTRICT',
98857177 47 data_types => {
48 # http://dev.mysql.com/doc/refman/5.5/en/data-type-overview.html
49 # Numeric Types
26334ec1 50 'bit' => { data_type => 'bit', size => 1 },
51 'bit(11)' => { data_type => 'bit', size => 11 },
52
53 'bool' => { data_type => 'tinyint' },
54 'boolean' => { data_type => 'tinyint' },
55 'tinyint' => { data_type => 'tinyint' },
56 'tinyint unsigned'
57 => { data_type => 'tinyint', extra => { unsigned => 1 } },
58 'smallint' => { data_type => 'smallint' },
59 'smallint unsigned'
60 => { data_type => 'smallint', extra => { unsigned => 1 } },
61 'mediumint' => { data_type => 'mediumint' },
62 'mediumint unsigned'
63 => { data_type => 'mediumint', extra => { unsigned => 1 } },
64 'int' => { data_type => 'integer' },
65 'int unsigned'
66 => { data_type => 'integer', extra => { unsigned => 1 } },
67 'integer' => { data_type => 'integer' },
68 'integer unsigned'
69 => { data_type => 'integer', extra => { unsigned => 1 } },
33aa3462 70 'integer not null'
71 => { data_type => 'integer' },
26334ec1 72 'bigint' => { data_type => 'bigint' },
73 'bigint unsigned'
74 => { data_type => 'bigint', extra => { unsigned => 1 } },
75
76 'serial' => { data_type => 'bigint', is_auto_increment => 1, extra => { unsigned => 1 } },
77
78 'float' => { data_type => 'float' },
79 'float unsigned'
80 => { data_type => 'float', extra => { unsigned => 1 } },
81 'double' => { data_type => 'double precision' },
82 'double unsigned'
83 => { data_type => 'double precision', extra => { unsigned => 1 } },
98857177 84 'double precision' =>
26334ec1 85 { data_type => 'double precision' },
86 'double precision unsigned'
87 => { data_type => 'double precision', extra => { unsigned => 1 } },
88
89 # we skip 'real' because its alias depends on the 'REAL AS FLOAT' setting
90
91 'float(2)' => { data_type => 'float' },
92 'float(24)' => { data_type => 'float' },
93 'float(25)' => { data_type => 'double precision' },
94
95 'float(3,3)' => { data_type => 'float', size => [3,3] },
96 'double(3,3)' => { data_type => 'double precision', size => [3,3] },
97 'double precision(3,3)'
98 => { data_type => 'double precision', size => [3,3] },
99
100 'decimal' => { data_type => 'decimal' },
101 'decimal unsigned'
102 => { data_type => 'decimal', extra => { unsigned => 1 } },
103 'dec' => { data_type => 'decimal' },
104 'numeric' => { data_type => 'decimal' },
105 'fixed' => { data_type => 'decimal' },
106
107 'decimal(3)' => { data_type => 'decimal', size => [3,0] },
108
109 'decimal(3,3)' => { data_type => 'decimal', size => [3,3] },
110 'dec(3,3)' => { data_type => 'decimal', size => [3,3] },
111 'numeric(3,3)' => { data_type => 'decimal', size => [3,3] },
112 'fixed(3,3)' => { data_type => 'decimal', size => [3,3] },
113
98857177 114 # Date and Time Types
58333f16 115 'date' => { data_type => 'date', datetime_undef_if_invalid => 1 },
116 'datetime' => { data_type => 'datetime', datetime_undef_if_invalid => 1 },
6e566cc4 117 'timestamp default current_timestamp'
58333f16 118 => { data_type => 'timestamp', default_value => \'current_timestamp', datetime_undef_if_invalid => 1 },
26334ec1 119 'time' => { data_type => 'time' },
120 'year' => { data_type => 'year' },
121 'year(4)' => { data_type => 'year' },
26334ec1 122
98857177 123 # String Types
26334ec1 124 'char' => { data_type => 'char', size => 1 },
125 'char(11)' => { data_type => 'char', size => 11 },
126 'varchar(20)' => { data_type => 'varchar', size => 20 },
127 'binary' => { data_type => 'binary', size => 1 },
128 'binary(11)' => { data_type => 'binary', size => 11 },
129 'varbinary(20)'=> { data_type => 'varbinary', size => 20 },
130
131 'tinyblob' => { data_type => 'tinyblob' },
132 'tinytext' => { data_type => 'tinytext' },
133 'blob' => { data_type => 'blob' },
134
135 # text(M) types will map to the appropriate type, length is not stored
136 'text' => { data_type => 'text' },
137
138 'mediumblob' => { data_type => 'mediumblob' },
139 'mediumtext' => { data_type => 'mediumtext' },
140 'longblob' => { data_type => 'longblob' },
141 'longtext' => { data_type => 'longtext' },
142
e2389968 143 ( map {
144 "$_('','foo','bar','baz')"
145 => { data_type => $_, extra => { list => ['', qw/foo bar baz/] } },
146 "$_('foo \\'bar\\' baz', 'foo ''bar'' quux')"
147 => { data_type => $_, extra => { list => [q{foo 'bar' baz}, q{foo 'bar' quux}] } },
148 "$_('''', '''foo', 'bar''')"
149 => { data_type => $_, extra => { list => [qw(' 'foo bar')] } },
150 "$_('\\'', '\\'foo', 'bar\\'')",
151 => { data_type => $_, extra => { list => [qw(' 'foo bar')] } },
152 } qw(set enum)
153 ),
698c11d8 154
155 # RT#68717
156 "enum('11,10 (<500)/0 DUN','4,90 (<120)/0 EUR') NOT NULL default '11,10 (<500)/0 DUN'"
157 => { data_type => 'enum', extra => { list => ['11,10 (<500)/0 DUN', '4,90 (<120)/0 EUR'] }, default_value => '11,10 (<500)/0 DUN' },
158 "set('11_10 (<500)/0 DUN','4_90 (<120)/0 EUR') NOT NULL default '11_10 (<500)/0 DUN'"
159 => { data_type => 'set', extra => { list => ['11_10 (<500)/0 DUN', '4_90 (<120)/0 EUR'] }, default_value => '11_10 (<500)/0 DUN' },
0da287c8 160 "enum('19,90 (<500)/0 EUR','4,90 (<120)/0 EUR','7,90 (<200)/0 CHF','300 (<6000)/0 CZK','4,90 (<100)/0 EUR','39 (<900)/0 DKK','299 (<5000)/0 EEK','9,90 (<250)/0 EUR','3,90 (<100)/0 GBP','3000 (<70000)/0 HUF','4000 (<70000)/0 JPY','13,90 (<200)/0 LVL','99 (<2500)/0 NOK','39 (<1000)/0 PLN','1000 (<20000)/0 RUB','49 (<2500)/0 SEK','29 (<600)/0 USD','19,90 (<600)/0 EUR','0 EUR','0 CHF') NOT NULL default '19,90 (<500)/0 EUR'"
161 => { data_type => 'enum', extra => { list => ['19,90 (<500)/0 EUR','4,90 (<120)/0 EUR','7,90 (<200)/0 CHF','300 (<6000)/0 CZK','4,90 (<100)/0 EUR','39 (<900)/0 DKK','299 (<5000)/0 EEK','9,90 (<250)/0 EUR','3,90 (<100)/0 GBP','3000 (<70000)/0 HUF','4000 (<70000)/0 JPY','13,90 (<200)/0 LVL','99 (<2500)/0 NOK','39 (<1000)/0 PLN','1000 (<20000)/0 RUB','49 (<2500)/0 SEK','29 (<600)/0 USD','19,90 (<600)/0 EUR','0 EUR','0 CHF'] }, default_value => '19,90 (<500)/0 EUR' },
98857177 162 },
3de915bc 163 extra => {
164 create => [
e00d61ac 165 qq{
6ebd0f33 166 CREATE TABLE `mysql_loader-test1` (
5c06aa08 167 id INT AUTO_INCREMENT PRIMARY KEY COMMENT 'The\15\12Column',
3de915bc 168 value varchar(100)
5c06aa08 169 ) $innodb COMMENT 'The\15\12Table'
3de915bc 170 },
171 q{
6ebd0f33 172 CREATE VIEW mysql_loader_test2 AS SELECT * FROM `mysql_loader-test1`
3de915bc 173 },
e00d61ac 174 # RT#68717
175 qq{
176 CREATE TABLE `mysql_loader_test3` (
177 `ISO3_code` char(3) NOT NULL default '',
178 `lang_pref` enum('de','en','fr','nl','dk','es','se') NOT NULL,
179 `vat` decimal(4,2) default '16.00',
180 `price_group` enum('EUR_DEFAULT','GBP_GBR','EUR_AUT_BEL_FRA_IRL_NLD','EUR_DNK_SWE','EUR_AUT','EUR_BEL','EUR_FIN','EUR_FRA','EUR_IRL','EUR_NLD','EUR_DNK','EUR_POL','EUR_PRT','EUR_SWE','CHF_CHE','DKK_DNK','SEK_SWE','NOK_NOR','USD_USA','CZK_CZE','PLN_POL','RUB_RUS','HUF_HUN','SKK_SVK','JPY_JPN','LVL_LVA','ROL_ROU','EEK_EST') NOT NULL default 'EUR_DEFAULT',
181 `del_group` enum('19,90 (<500)/0 EUR','4,90 (<120)/0 EUR','7,90 (<200)/0 CHF','300 (<6000)/0 CZK','4,90 (<100)/0 EUR','39 (<900)/0 DKK','299 (<5000)/0 EEK','9,90 (<250)/0 EUR','3,90 (<100)/0 GBP','3000 (<70000)/0 HUF','4000 (<70000)/0 JPY','13,90 (<200)/0 LVL','99 (<2500)/0 NOK','39 (<1000)/0 PLN','1000 (<20000)/0 RUB','49 (<2500)/0 SEK','29 (<600)/0 USD','19,90 (<600)/0 EUR','0 EUR','0 CHF') NOT NULL default '19,90 (<500)/0 EUR',
182 `express_del_group` enum('NO','39 EUR (EXPRESS)','59 EUR (EXPRESS)','79 CHF (EXPRESS)','49 EUR (EXPRESS)','990 CZK (EXPRESS)','19,9 EUR (EXPRESS)','290 DKK (EXPRESS)','990 EEK (EXPRESS)','39 GBP (EXPRESS)','14000 HUF (EXPRESS)','49 LVL (EXPRESS)','590 NOK (EXPRESS)','250 PLN (EXPRESS)','490 SEK (EXPRESS)') NOT NULL default 'NO',
183 `pmethod` varchar(255) NOT NULL default 'VISA,MASTER',
184 `delivery_time` varchar(5) default NULL,
185 `express_delivery_time` varchar(5) default NULL,
186 `eu` int(1) default '0',
187 `cod_costs` varchar(12) default NULL,
188 PRIMARY KEY (`ISO3_code`)
189 ) $innodb
190 },
9dedee1f 191 # 4 through 10 are used for the multi-schema tests
192 qq{
193 create table mysql_loader_test11 (
194 id int auto_increment primary key
195 ) $innodb
196 },
197 qq{
198 create table mysql_loader_test12 (
199 id int auto_increment primary key,
200 eleven_id int,
201 foreign key (eleven_id) references mysql_loader_test11(id)
202 on delete restrict on update set null
203 ) $innodb
204 },
3de915bc 205 ],
206 pre_drop_ddl => [ 'DROP VIEW mysql_loader_test2', ],
9dedee1f 207 drop => [ 'mysql_loader-test1', 'mysql_loader_test3', 'mysql_loader_test11', 'mysql_loader_test12' ],
d7e0e0e8 208 count => 10 + 30 * 2, # regular + multi-schema * 2
3de915bc 209 run => sub {
c4a69b87 210 my ($monikers, $classes);
211 ($schema, $monikers, $classes) = @_;
3de915bc 212
6ebd0f33 213 is $monikers->{'mysql_loader-test1'}, 'MysqlLoaderTest1',
214 'table with dash correctly monikerized';
215
e00d61ac 216 my $rsrc = $schema->source('MysqlLoaderTest2');
3de915bc 217
218 is $rsrc->column_info('value')->{data_type}, 'varchar',
219 'view introspected successfully';
e00d61ac 220
ce2f102a 221 # test that views are marked as such
d7e0e0e8 222 my $view_source = $schema->resultset($monikers->{mysql_loader_test2})->result_source;
223 isa_ok $view_source, 'DBIx::Class::ResultSource::View',
224 'view result source';
225
226 like $view_source->view_definition,
227 qr/\A \s* select \b .* \b from \s+ `.*?` \. `mysql_loader-test1` \s* \z/imsx,
228 'view defintion';
ce2f102a 229
e00d61ac 230 $rsrc = $schema->source('MysqlLoaderTest3');
231
232 is_deeply $rsrc->column_info('del_group')->{extra}{list}, ['19,90 (<500)/0 EUR','4,90 (<120)/0 EUR','7,90 (<200)/0 CHF','300 (<6000)/0 CZK','4,90 (<100)/0 EUR','39 (<900)/0 DKK','299 (<5000)/0 EEK','9,90 (<250)/0 EUR','3,90 (<100)/0 GBP','3000 (<70000)/0 HUF','4000 (<70000)/0 JPY','13,90 (<200)/0 LVL','99 (<2500)/0 NOK','39 (<1000)/0 PLN','1000 (<20000)/0 RUB','49 (<2500)/0 SEK','29 (<600)/0 USD','19,90 (<600)/0 EUR','0 EUR','0 CHF'],
233 'hairy enum introspected correctly';
5c06aa08 234
235 my $class = $classes->{'mysql_loader-test1'};
ea998e8e 236 my $filename = $schema->loader->get_dump_filename($class);
5c06aa08 237
ea998e8e 238 my $code = slurp_file $filename;
5c06aa08 239
240 like $code, qr/^=head1 NAME\n\n^$class - The\nTable\n\n^=cut\n/m,
241 'table comment';
242
243 like $code, qr/^=head2 id\n\n(.+:.+\n)+\nThe\nColumn\n\n/m,
244 'column comment and attrs';
245
9dedee1f 246 # test on delete/update fk clause introspection
247 ok ((my $rel_info = $schema->source('MysqlLoaderTest12')->relationship_info('eleven')),
248 'got rel info');
249
250 is $rel_info->{attrs}{on_delete}, 'RESTRICT',
251 'ON DELETE clause introspected correctly';
252
253 is $rel_info->{attrs}{on_update}, 'SET NULL',
254 'ON UPDATE clause introspected correctly';
255
256 # multischema tests follow
c4a69b87 257 SKIP: {
258 my $dbh = $schema->storage->dbh;
259
260 try {
261 $dbh->do('CREATE DATABASE `dbicsl-test`');
262 }
263 catch {
51b0099b 264 note "CREATE DATABASE returned error: '$_'";
5975bbe6 265 skip "no CREATE DATABASE privileges", 30 * 2;
c4a69b87 266 };
267
268 $dbh->do(<<"EOF");
269 CREATE TABLE `dbicsl-test`.mysql_loader_test4 (
270 id INT AUTO_INCREMENT PRIMARY KEY,
271 value VARCHAR(100)
272 ) $innodb
273EOF
274 $dbh->do(<<"EOF");
275 CREATE TABLE `dbicsl-test`.mysql_loader_test5 (
276 id INT AUTO_INCREMENT PRIMARY KEY,
277 value VARCHAR(100),
5975bbe6 278 four_id INTEGER,
279 CONSTRAINT loader_test5_uniq UNIQUE (four_id),
c4a69b87 280 FOREIGN KEY (four_id) REFERENCES `dbicsl-test`.mysql_loader_test4 (id)
281 ) $innodb
282EOF
5975bbe6 283
c4a69b87 284 $dbh->do('CREATE DATABASE `dbicsl.test`');
5975bbe6 285
286 # Test that keys are correctly cached by naming the primary and
287 # unique keys in this table with the same name as a table in
288 # the `dbicsl-test` schema differently.
289 $dbh->do(<<"EOF");
290 CREATE TABLE `dbicsl.test`.mysql_loader_test5 (
291 pk INT AUTO_INCREMENT PRIMARY KEY,
292 value VARCHAR(100),
293 four_id INTEGER,
294 CONSTRAINT loader_test5_uniq UNIQUE (four_id),
295 FOREIGN KEY (four_id) REFERENCES `dbicsl-test`.mysql_loader_test4 (id)
296 ) $innodb
297EOF
298
c4a69b87 299 $dbh->do(<<"EOF");
300 CREATE TABLE `dbicsl.test`.mysql_loader_test6 (
301 id INT AUTO_INCREMENT PRIMARY KEY,
302 value VARCHAR(100),
303 mysql_loader_test4_id INTEGER,
304 FOREIGN KEY (mysql_loader_test4_id) REFERENCES `dbicsl-test`.mysql_loader_test4 (id)
305 ) $innodb
306EOF
307 $dbh->do(<<"EOF");
308 CREATE TABLE `dbicsl.test`.mysql_loader_test7 (
309 id INT AUTO_INCREMENT PRIMARY KEY,
310 value VARCHAR(100),
311 six_id INTEGER UNIQUE,
312 FOREIGN KEY (six_id) REFERENCES `dbicsl.test`.mysql_loader_test6 (id)
313 ) $innodb
314EOF
315 $dbh->do(<<"EOF");
316 CREATE TABLE `dbicsl-test`.mysql_loader_test8 (
317 id INT AUTO_INCREMENT PRIMARY KEY,
318 value VARCHAR(100),
319 mysql_loader_test7_id INTEGER,
320 FOREIGN KEY (mysql_loader_test7_id) REFERENCES `dbicsl.test`.mysql_loader_test7 (id)
321 ) $innodb
322EOF
2fa86d8b 323 # Test dumping a rel to a table that's not part of the dump.
324 $dbh->do('CREATE DATABASE `dbicsl_test_ignored`');
325 $dbh->do(<<"EOF");
326 CREATE TABLE `dbicsl_test_ignored`.mysql_loader_test9 (
327 id INT AUTO_INCREMENT PRIMARY KEY,
328 value VARCHAR(100)
329 ) $innodb
330EOF
331 $dbh->do(<<"EOF");
332 CREATE TABLE `dbicsl-test`.mysql_loader_test10 (
333 id INT AUTO_INCREMENT PRIMARY KEY,
334 value VARCHAR(100),
335 mysql_loader_test9_id INTEGER,
336 FOREIGN KEY (mysql_loader_test9_id) REFERENCES `dbicsl_test_ignored`.mysql_loader_test9 (id)
337 ) $innodb
338EOF
c4a69b87 339
340 $databases_created = 1;
341
342 SKIP: foreach my $db_schema (['dbicsl-test', 'dbicsl.test'], '%') {
343 if ($db_schema eq '%') {
344 try {
345 $dbh->selectall_arrayref('SHOW DATABASES');
346 }
347 catch {
f868218c 348 skip 'no SHOW DATABASES privileges', 30;
c4a69b87 349 }
350 }
351
352 lives_and {
353 rmtree EXTRA_DUMP_DIR;
354
355 my @warns;
356 local $SIG{__WARN__} = sub {
357 push @warns, $_[0] unless $_[0] =~ /\bcollides\b/;
358 };
359
360 make_schema_at(
361 'MySQLMultiSchema',
362 {
363 naming => 'current',
364 db_schema => $db_schema,
365 dump_directory => EXTRA_DUMP_DIR,
366 quiet => 1,
367 },
368 [ $dsn, $user, $password ],
369 );
370
371 diag join "\n", @warns if @warns;
372
373 is @warns, 0;
374 } 'dumped schema for "dbicsl-test" and "dbicsl.test" databases with no warnings';
375
376 my ($test_schema, $rsrc, $rs, $row, %uniqs, $rel_info);
377
378 lives_and {
379 ok $test_schema = MySQLMultiSchema->connect($dsn, $user, $password);
380 } 'connected test schema';
381
382 lives_and {
4c2e2ce9 383 ok $rsrc = $test_schema->source('MysqlLoaderTest4');
c4a69b87 384 } 'got source for table in database name with dash';
385
386 is try { $rsrc->column_info('id')->{is_auto_increment} }, 1,
387 'column in database name with dash';
388
389 is try { $rsrc->column_info('value')->{data_type} }, 'varchar',
390 'column in database name with dash';
391
392 is try { $rsrc->column_info('value')->{size} }, 100,
393 'column in database name with dash';
394
395 lives_and {
4c2e2ce9 396 ok $rs = $test_schema->resultset('MysqlLoaderTest4');
c4a69b87 397 } 'got resultset for table in database name with dash';
398
399 lives_and {
400 ok $row = $rs->create({ value => 'foo' });
401 } 'executed SQL on table in database name with dash';
402
403 SKIP: {
404 skip 'set the environment variable DBICTEST_MYSQL_INNODB=1 to test relationships', 3 unless $test_innodb;
405
5975bbe6 406 $rel_info = try { $rsrc->relationship_info('dbicsl_dash_test_mysql_loader_test5') };
c4a69b87 407
408 is_deeply $rel_info->{cond}, {
409 'foreign.four_id' => 'self.id'
410 }, 'relationship in database name with dash';
411
412 is $rel_info->{attrs}{accessor}, 'single',
413 'relationship in database name with dash';
414
415 is $rel_info->{attrs}{join_type}, 'LEFT',
416 'relationship in database name with dash';
417 }
418
419 lives_and {
5975bbe6 420 ok $rsrc = $test_schema->source('DbicslDashTestMysqlLoaderTest5');
c4a69b87 421 } 'got source for table in database name with dash';
422
423 %uniqs = try { $rsrc->unique_constraints };
424
425 is keys %uniqs, 2,
426 'got unique and primary constraint in database name with dash';
427
5975bbe6 428 delete $uniqs{primary};
429
430 is_deeply ((values %uniqs)[0], ['four_id'],
431 'unique constraint is correct in database name with dash');
432
c4a69b87 433 lives_and {
4c2e2ce9 434 ok $rsrc = $test_schema->source('MysqlLoaderTest6');
c4a69b87 435 } 'got source for table in database name with dot';
436
437 is try { $rsrc->column_info('id')->{is_auto_increment} }, 1,
438 'column in database name with dot introspected correctly';
439
440 is try { $rsrc->column_info('value')->{data_type} }, 'varchar',
441 'column in database name with dot introspected correctly';
442
443 is try { $rsrc->column_info('value')->{size} }, 100,
444 'column in database name with dot introspected correctly';
445
446 lives_and {
4c2e2ce9 447 ok $rs = $test_schema->resultset('MysqlLoaderTest6');
c4a69b87 448 } 'got resultset for table in database name with dot';
449
450 lives_and {
451 ok $row = $rs->create({ value => 'foo' });
452 } 'executed SQL on table in database name with dot';
453
454 SKIP: {
455 skip 'set the environment variable DBICTEST_MYSQL_INNODB=1 to test relationships', 3 unless $test_innodb;
456
457 $rel_info = try { $rsrc->relationship_info('mysql_loader_test7') };
458
459 is_deeply $rel_info->{cond}, {
460 'foreign.six_id' => 'self.id'
461 }, 'relationship in database name with dot';
462
463 is $rel_info->{attrs}{accessor}, 'single',
464 'relationship in database name with dot';
465
466 is $rel_info->{attrs}{join_type}, 'LEFT',
467 'relationship in database name with dot';
468 }
469
470 lives_and {
4c2e2ce9 471 ok $rsrc = $test_schema->source('MysqlLoaderTest7');
c4a69b87 472 } 'got source for table in database name with dot';
473
474 %uniqs = try { $rsrc->unique_constraints };
475
476 is keys %uniqs, 2,
477 'got unique and primary constraint in database name with dot';
478
5975bbe6 479 delete $uniqs{primary};
480
481 is_deeply ((values %uniqs)[0], ['six_id'],
482 'unique constraint is correct in database name with dot');
483
c4a69b87 484 SKIP: {
485 skip 'set the environment variable DBICTEST_MYSQL_INNODB=1 to test relationships', 4 unless $test_innodb;
486
487 lives_and {
4c2e2ce9 488 ok $test_schema->source('MysqlLoaderTest6')
c4a69b87 489 ->has_relationship('mysql_loader_test4');
490 } 'cross-database relationship in multi-db_schema';
491
492 lives_and {
4c2e2ce9 493 ok $test_schema->source('MysqlLoaderTest4')
c4a69b87 494 ->has_relationship('mysql_loader_test6s');
495 } 'cross-database relationship in multi-db_schema';
496
497 lives_and {
4c2e2ce9 498 ok $test_schema->source('MysqlLoaderTest8')
c4a69b87 499 ->has_relationship('mysql_loader_test7');
500 } 'cross-database relationship in multi-db_schema';
501
502 lives_and {
4c2e2ce9 503 ok $test_schema->source('MysqlLoaderTest7')
c4a69b87 504 ->has_relationship('mysql_loader_test8s');
505 } 'cross-database relationship in multi-db_schema';
506 }
507 }
508 }
3de915bc 509 },
510 },
406a97c2 511)->run_tests;
26334ec1 512
c4a69b87 513END {
514 if (not $ENV{SCHEMA_LOADER_TESTS_NOCLEANUP}) {
515 if ($databases_created && (my $dbh = try { $schema->storage->dbh })) {
2fa86d8b 516 foreach my $table ('`dbicsl-test`.mysql_loader_test10',
517 'dbicsl_test_ignored.mysql_loader_test9',
518 '`dbicsl-test`.mysql_loader_test8',
c4a69b87 519 '`dbicsl.test`.mysql_loader_test7',
520 '`dbicsl.test`.mysql_loader_test6',
5975bbe6 521 '`dbicsl.test`.mysql_loader_test5',
c4a69b87 522 '`dbicsl-test`.mysql_loader_test5',
523 '`dbicsl-test`.mysql_loader_test4') {
524 try {
525 $dbh->do("DROP TABLE $table");
526 }
527 catch {
528 diag "Error dropping table: $_";
529 };
530 }
531
2fa86d8b 532 foreach my $db (qw/dbicsl-test dbicsl.test dbicsl_test_ignored/) {
c4a69b87 533 try {
534 $dbh->do("DROP DATABASE `$db`");
535 }
536 catch {
537 diag "Error dropping test database $db: $_";
538 };
539 }
540 }
541 rmtree EXTRA_DUMP_DIR;
542 }
543}
26334ec1 544# vim:et sts=4 sw=4 tw=0:
Generate DBIx::Class Schemas from a Database