X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F99dbic_sqlt_parser.t;h=0a4230637862ecaeaaa190914837ab8e19b87dae;hb=f7160d10990d213908240d7b5e6fcc7f94af5ee3;hp=26d6b5068ff0db24c650a5aea29a4ed4930efd4e;hpb=c4d239930f5d96be7ddccdb59ff07ff1bd43698d;p=dbsrgits%2FDBIx-Class-Historic.git diff --git a/t/99dbic_sqlt_parser.t b/t/99dbic_sqlt_parser.t index 26d6b50..0a42306 100644 --- a/t/99dbic_sqlt_parser.t +++ b/t/99dbic_sqlt_parser.t @@ -5,19 +5,26 @@ use Test::More; use lib qw(t/lib); use DBICTest; + BEGIN { - eval "use DBD::mysql; use SQL::Translator 0.09;"; - plan $@ - ? ( skip_all => 'needs DBD::mysql and SQL::Translator 0.09 for testing' ) - : ( tests => 114 ); + eval "use DBD::mysql; use SQL::Translator 0.09003;"; + if ($@) { + plan skip_all => 'needs DBD::mysql and SQL::Translator 0.09003 for testing'; + } } my $schema = DBICTest->init_schema(); +# Dummy was yanked out by the sqlt hook test +# YearXXXXCDs are views +my @sources = grep { $_ ne 'Dummy' && $_ !~ /^Year\d{4}CDs$/ } + $schema->sources; + +plan tests => ( @sources * 3); { my $sqlt_schema = create_schema({ schema => $schema, args => { parser_args => { } } }); - foreach my $source ($schema->sources) { + foreach my $source (@sources) { my $table = $sqlt_schema->get_table($schema->source($source)->from); my $fk_count = scalar(grep { $_->type eq 'FOREIGN KEY' } $table->get_constraints); @@ -31,7 +38,7 @@ my $schema = DBICTest->init_schema(); { my $sqlt_schema = create_schema({ schema => $schema, args => { parser_args => { add_fk_index => 1 } } }); - foreach my $source ($schema->sources) { + foreach my $source (@sources) { my $table = $sqlt_schema->get_table($schema->source($source)->from); my $fk_count = scalar(grep { $_->type eq 'FOREIGN KEY' } $table->get_constraints); @@ -45,7 +52,7 @@ my $schema = DBICTest->init_schema(); { my $sqlt_schema = create_schema({ schema => $schema, args => { parser_args => { add_fk_index => 0 } } }); - foreach my $source ($schema->sources) { + foreach my $source (@sources) { my $table = $sqlt_schema->get_table($schema->source($source)->from); my @indices = $table->get_indices;