[Bast-commits] r4811 - DBIx-Class/0.08/branches/view_support/t

[wreis at dev.catalyst.perl.org]

Author: wreis
Date: 2008-09-16 18:10:01 +0100 (Tue, 16 Sep 2008)
New Revision: 4811

Modified:
   DBIx-Class/0.08/branches/view_support/t/99dbic_sqlt_parser.t
Log:
skipping undef tables

Modified: DBIx-Class/0.08/branches/view_support/t/99dbic_sqlt_parser.t
===================================================================
--- DBIx-Class/0.08/branches/view_support/t/99dbic_sqlt_parser.t	2008-09-16 13:28:44 UTC (rev 4810)
+++ DBIx-Class/0.08/branches/view_support/t/99dbic_sqlt_parser.t	2008-09-16 17:10:01 UTC (rev 4811)
@@ -19,7 +19,7 @@
 
 	foreach my $source ($schema->sources) {
 		my $table = $sqlt_schema->get_table($schema->source($source)->from);
-
+                next unless $table;
 		my $fk_count = scalar(grep { $_->type eq 'FOREIGN KEY' } $table->get_constraints);
 		my @indices = $table->get_indices;
 		my $index_count = scalar(@indices);
@@ -33,7 +33,7 @@
 
 	foreach my $source ($schema->sources) {
 		my $table = $sqlt_schema->get_table($schema->source($source)->from);
-
+                next unless $table;
 		my $fk_count = scalar(grep { $_->type eq 'FOREIGN KEY' } $table->get_constraints);
 		my @indices = $table->get_indices;
 		my $index_count = scalar(@indices);
@@ -47,7 +47,7 @@
 
 	foreach my $source ($schema->sources) {
 		my $table = $sqlt_schema->get_table($schema->source($source)->from);
-
+                next unless $table;
 		my @indices = $table->get_indices;
 		my $index_count = scalar(@indices);
 		is($index_count, 0, "correct number of indices for $source with add_fk_index => 0");