[Bast-commits] r7970 - branches/DBIx-Class-Schema-Loader/current/t/lib

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-11-28 07:44:01 +0000 (Sat, 28 Nov 2009)
New Revision: 7970

Modified:
   branches/DBIx-Class-Schema-Loader/current/t/lib/dbixcsl_common_tests.pm
Log:
added test to check for correct file count in common tests

Modified: branches/DBIx-Class-Schema-Loader/current/t/lib/dbixcsl_common_tests.pm
===================================================================
--- branches/DBIx-Class-Schema-Loader/current/t/lib/dbixcsl_common_tests.pm	2009-11-28 07:36:00 UTC (rev 7969)
+++ branches/DBIx-Class-Schema-Loader/current/t/lib/dbixcsl_common_tests.pm	2009-11-28 07:44:01 UTC (rev 7970)
@@ -56,7 +56,7 @@
 sub run_tests {
     my $self = shift;
 
-    plan tests => 3 + 135 + ($self->{extra}->{count} || 0);
+    plan tests => 139 + ($self->{extra}->{count} || 0);
 
     $self->create();
 
@@ -110,8 +110,14 @@
             __PACKAGE__->connection(\@connect_info);
         };
 
-        ok(!$@, "Loader initialization") or diag $@;
+       ok(!$@, "Loader initialization") or diag $@;
 
+       my $file_count;
+       find sub { return if -d; $file_count++ }, $DUMP_DIR;
+
+       is $file_count, 34, 'correct number of files generated';
+       exit if $file_count != 34;
+
        my $warn_count = 2;
        $warn_count++ if grep /ResultSetManager/, @loader_warnings;