X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F10_02mysql_common.t;h=504e60c12e6b2e919f9f64cebfebeaae4832f6b0;hb=dbe5c90463dd1b323513739b1d27607186caddac;hp=67af3eeb6644987533a2fbd5b009c92ebb8c4ef6;hpb=4c2e2ce9f827fbe28aa59e242050167d50ffc705;p=dbsrgits%2FDBIx-Class-Schema-Loader.git diff --git a/t/10_02mysql_common.t b/t/10_02mysql_common.t index 67af3ee..504e60c 100644 --- a/t/10_02mysql_common.t +++ b/t/10_02mysql_common.t @@ -1,3 +1,6 @@ +use DBIx::Class::Schema::Loader::Optional::Dependencies + -skip_all_without => 'test_rdbms_mysql'; + use strict; use warnings; use Test::More; @@ -25,19 +28,22 @@ my $innodb = $test_innodb ? q{Engine=InnoDB} : ''; my ($schema, $databases_created); # for cleanup in END for extra tests -my $tester = dbixcsl_common_tests->new( - vendor => 'Mysql', - auto_inc_pk => 'INTEGER NOT NULL PRIMARY KEY AUTO_INCREMENT', - innodb => $innodb, - dsn => $dsn, - user => $user, - password => $password, - connect_info_opts=> { on_connect_call => 'set_strict_mode' }, - loader_options => { preserve_case => 1 }, - skip_rels => $test_innodb ? 0 : $skip_rels_msg, - quote_char => '`', - no_inline_rels => 1, - no_implicit_rels => 1, +diag $skip_rels_msg if not $test_innodb; + +dbixcsl_common_tests->new( + vendor => 'Mysql', + auto_inc_pk => 'INTEGER NOT NULL PRIMARY KEY AUTO_INCREMENT', + innodb => $innodb, + dsn => $dsn, + user => $user, + password => $password, + connect_info_opts => { on_connect_call => 'set_strict_mode' }, + loader_options => { preserve_case => 1 }, + skip_rels => $test_innodb ? 0 : $skip_rels_msg, + quote_char => '`', + no_inline_rels => 1, + no_implicit_rels => 1, + default_on_clause => 'RESTRICT', data_types => { # http://dev.mysql.com/doc/refman/5.5/en/data-type-overview.html # Numeric Types @@ -113,7 +119,6 @@ my $tester = dbixcsl_common_tests->new( 'time' => { data_type => 'time' }, 'year' => { data_type => 'year' }, 'year(4)' => { data_type => 'year' }, - 'year(2)' => { data_type => 'year', size => 2 }, # String Types 'char' => { data_type => 'char', size => 1 }, @@ -135,14 +140,17 @@ my $tester = dbixcsl_common_tests->new( 'longblob' => { data_type => 'longblob' }, 'longtext' => { data_type => 'longtext' }, - "enum('foo','bar','baz')" - => { data_type => 'enum', extra => { list => [qw/foo bar baz/] } }, - "enum('foo \\'bar\\' baz', 'foo ''bar'' quux')" - => { data_type => 'enum', extra => { list => [q{foo 'bar' baz}, q{foo 'bar' quux}] } }, - "set('foo \\'bar\\' baz', 'foo ''bar'' quux')" - => { data_type => 'set', extra => { list => [q{foo 'bar' baz}, q{foo 'bar' quux}] } }, - "set('foo','bar','baz')" - => { data_type => 'set', extra => { list => [qw/foo bar baz/] } }, + ( map { + "$_('','foo','bar','baz')" + => { data_type => $_, extra => { list => ['', qw/foo bar baz/] } }, + "$_('foo \\'bar\\' baz', 'foo ''bar'' quux')" + => { data_type => $_, extra => { list => [q{foo 'bar' baz}, q{foo 'bar' quux}] } }, + "$_('''', '''foo', 'bar''')" + => { data_type => $_, extra => { list => [qw(' 'foo bar')] } }, + "$_('\\'', '\\'foo', 'bar\\'')", + => { data_type => $_, extra => { list => [qw(' 'foo bar')] } }, + } qw(set enum) + ), # RT#68717 "enum('11,10 (<500)/0 DUN','4,90 (<120)/0 EUR') NOT NULL default '11,10 (<500)/0 DUN'" @@ -180,10 +188,24 @@ my $tester = dbixcsl_common_tests->new( PRIMARY KEY (`ISO3_code`) ) $innodb }, + # 4 through 10 are used for the multi-schema tests + qq{ + create table mysql_loader_test11 ( + id int auto_increment primary key + ) $innodb + }, + qq{ + create table mysql_loader_test12 ( + id int auto_increment primary key, + eleven_id int, + foreign key (eleven_id) references mysql_loader_test11(id) + on delete restrict on update set null + ) $innodb + }, ], pre_drop_ddl => [ 'DROP VIEW mysql_loader_test2', ], - drop => [ 'mysql_loader-test1', 'mysql_loader_test3' ], - count => 5 + 30 * 2, + drop => [ 'mysql_loader-test1', 'mysql_loader_test3', 'mysql_loader_test11', 'mysql_loader_test12' ], + count => 10 + 30 * 2, # regular + multi-schema * 2 run => sub { my ($monikers, $classes); ($schema, $monikers, $classes) = @_; @@ -196,6 +218,15 @@ my $tester = dbixcsl_common_tests->new( is $rsrc->column_info('value')->{data_type}, 'varchar', 'view introspected successfully'; + # test that views are marked as such + my $view_source = $schema->resultset($monikers->{mysql_loader_test2})->result_source; + isa_ok $view_source, 'DBIx::Class::ResultSource::View', + 'view result source'; + + like $view_source->view_definition, + qr/\A \s* select \b .* \b from \s+ `.*?` \. `mysql_loader-test1` \s* \z/imsx, + 'view defintion'; + $rsrc = $schema->source('MysqlLoaderTest3'); 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'], @@ -212,6 +243,17 @@ my $tester = dbixcsl_common_tests->new( like $code, qr/^=head2 id\n\n(.+:.+\n)+\nThe\nColumn\n\n/m, 'column comment and attrs'; + # test on delete/update fk clause introspection + ok ((my $rel_info = $schema->source('MysqlLoaderTest12')->relationship_info('eleven')), + 'got rel info'); + + is $rel_info->{attrs}{on_delete}, 'RESTRICT', + 'ON DELETE clause introspected correctly'; + + is $rel_info->{attrs}{on_update}, 'SET NULL', + 'ON UPDATE clause introspected correctly'; + + # multischema tests follow SKIP: { my $dbh = $schema->storage->dbh; @@ -219,7 +261,7 @@ my $tester = dbixcsl_common_tests->new( $dbh->do('CREATE DATABASE `dbicsl-test`'); } catch { - diag "CREATE DATABASE returned error: '$_'"; + note "CREATE DATABASE returned error: '$_'"; skip "no CREATE DATABASE privileges", 30 * 2; }; @@ -303,7 +345,7 @@ EOF $dbh->selectall_arrayref('SHOW DATABASES'); } catch { - skip 'no SHOW DATABASES privileges', 28; + skip 'no SHOW DATABASES privileges', 30; } } @@ -466,15 +508,7 @@ EOF } }, }, -); - -if( !$dsn || !$user ) { - $tester->skip_tests('You need to set the DBICTEST_MYSQL_DSN, DBICTEST_MYSQL_USER, and DBICTEST_MYSQL_PASS environment variables'); -} -else { - diag $skip_rels_msg if not $test_innodb; - $tester->run_tests(); -} +)->run_tests; END { if (not $ENV{SCHEMA_LOADER_TESTS_NOCLEANUP}) {