[Bast-commits] r5315 - DBIx-Class/0.08/trunk/t

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-01-17 18:39:50 +0000 (Sat, 17 Jan 2009)
New Revision: 5315

Modified:
   DBIx-Class/0.08/trunk/t/99dbic_sqlt_parser.t
Log:
Stop 99dbic_sqlt_parser.t from breaking every time a new table is added

Modified: DBIx-Class/0.08/trunk/t/99dbic_sqlt_parser.t
===================================================================
--- DBIx-Class/0.08/trunk/t/99dbic_sqlt_parser.t	2009-01-16 18:25:57 UTC (rev 5314)
+++ DBIx-Class/0.08/trunk/t/99dbic_sqlt_parser.t	2009-01-17 18:39:50 UTC (rev 5315)
@@ -5,14 +5,16 @@
 use lib qw(t/lib);
 use DBICTest;
 
+
 BEGIN {
     eval "use DBD::mysql; use SQL::Translator 0.09;";
-    plan $@
-        ? ( skip_all => 'needs SQL::Translator 0.09 for testing' )
-        : ( tests => 114 );
+    if ($@) {
+        plan skip_all => 'needs SQL::Translator 0.09 for testing';
+    }
 }
 
 my $schema = DBICTest->init_schema();
+plan tests => ($schema->sources * 3);
 
 { 
 	my $sqlt_schema = create_schema({ schema => $schema, args => { parser_args => { } } });