Stop 99dbic_sqlt_parser.t from breaking every time a new table is added
Peter Rabbitson [Sat, 17 Jan 2009 18:39:50 +0000 (18:39 +0000)]
t/99dbic_sqlt_parser.t

index bbac5e3..ffb9005 100644 (file)
@@ -5,14 +5,16 @@ use Test::More;
 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 => { } } });