8 'TestLoaderSubclass' => 'TestLoaderSubclass',
9 'TestLoaderSubclass_NoRebless' => 'TestLoaderSubclass_NoRebless',
10 '::DBI::SQLite' => 'DBIx::Class::Schema::Loader::DBI::SQLite'
15 package DBICTest::Schema::1;
16 use base qw/ DBIx::Class::Schema::Loader /;
17 __PACKAGE__->_loader_invoked(0);
18 __PACKAGE__->naming('current');
19 __PACKAGE__->loader_class(shift);
20 __PACKAGE__->connect($make_dbictest_db::dsn);
23 package DBICTeset::Schema::2;
24 use base qw/ DBIx::Class::Schema::Loader /;
25 __PACKAGE__->_loader_invoked(0);
26 __PACKAGE__->naming('current');
27 __PACKAGE__->connect($make_dbictest_db::dsn, { loader_class => shift });
29 make_schema_at => sub {
30 use DBIx::Class::Schema::Loader qw/ make_schema_at /;
32 'DBICTeset::Schema::3',
33 { naming => 'current' },
34 [ $make_dbictest_db::dsn, { loader_class => shift } ]
39 # one test per invocation/class combo
40 plan tests => keys(%invocations) * keys(%loader_class);
42 while (my ($style,$subref) = each %invocations) {
43 while (my ($arg, $class) = each %loader_class) {
44 my $schema = $subref->($arg);
45 $schema = $schema->clone unless ref $schema;
46 isa_ok($schema->loader, $class, "$style($arg)");