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

[ilmari at dev.catalyst.perl.org]

Author: ilmari
Date: 2009-04-18 12:06:20 +0100 (Sat, 18 Apr 2009)
New Revision: 5898

Modified:
   branches/DBIx-Class-Schema-Loader/current/t/lib/dbixcsl_common_tests.pm
Log:
Now that we always dump to disk, don't bother testing twice.

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-04-18 08:42:17 UTC (rev 5897)
+++ branches/DBIx-Class-Schema-Loader/current/t/lib/dbixcsl_common_tests.pm	2009-04-18 11:06:20 UTC (rev 5898)
@@ -51,7 +51,7 @@
 sub run_tests {
     my $self = shift;
 
-    plan tests => 3 + 2 * (134 + ($self->{extra}->{count} || 0));
+    plan tests => 3 + 134 + ($self->{extra}->{count} || 0);
 
     $self->create();
 
@@ -60,16 +60,7 @@
     # First, with in-memory classes
     my $schema_class = $self->setup_schema(@connect_info);
     $self->test_schema($schema_class);
-
-    # Then, with dumped classes
     $self->drop_tables;
-    $self->create;
-    $self->{dump} = 1;
-
-    unshift @INC, $DUMP_DIR;
-    $self->reload_schema($schema_class);
-    $schema_class->connection(@connect_info);
-    $self->test_schema($schema_class);
 }
 
 sub setup_schema {
@@ -1191,18 +1182,6 @@
     $dbh->disconnect;
 }
 
-sub reload_schema {
-    my ($self, $schema) = @_;
-    
-    for my $source ($schema->sources) {
-        Class::Unload->unload( $schema->class( $source ) );
-        Class::Unload->unload( ref $schema->resultset( $source ) );
-    }
-
-    Class::Unload->unload( $schema );
-    eval "require $schema" or die $@;
-}
-
 sub DESTROY {
     my $self = shift;
     $self->drop_tables if $self->{_created};