use lib qw(t/lib);
use make_dbictest_db;
-my %loader_class = ( 'TestLoaderSubclass' => 'TestLoaderSubclass',
- '::DBI::SQLite' => 'DBIx::Class::Schema::Loader::DBI::SQLite'
- );
+my %loader_class = (
+ 'TestLoaderSubclass' => 'TestLoaderSubclass',
+ 'TestLoaderSubclass_NoRebless' => 'TestLoaderSubclass_NoRebless',
+ '::DBI::SQLite' => 'DBIx::Class::Schema::Loader::DBI::SQLite'
+);
my %invocations = (
loader_class => sub {
package DBICTest::Schema::1;
use base qw/ DBIx::Class::Schema::Loader /;
+ __PACKAGE__->_loader_invoked(0);
__PACKAGE__->naming('current');
__PACKAGE__->loader_class(shift);
__PACKAGE__->connect($make_dbictest_db::dsn);
connect_info => sub {
package DBICTeset::Schema::2;
use base qw/ DBIx::Class::Schema::Loader /;
+ __PACKAGE__->_loader_invoked(0);
__PACKAGE__->naming('current');
__PACKAGE__->connect($make_dbictest_db::dsn, { loader_class => shift });
},
while (my ($arg, $class) = each %loader_class) {
my $schema = $subref->($arg);
$schema = $schema->clone unless ref $schema;
- isa_ok($schema->_loader, $class, "$style($arg)");
+ isa_ok($schema->loader, $class, "$style($arg)");
}
}