7 my %loader_class = ( 'TestLoaderSubclass' => 'TestLoaderSubclass',
8 '::DBI::SQLite' => 'DBIx::Class::Schema::Loader::DBI::SQLite'
13 package DBICTest::Schema::1;
14 use base qw/ DBIx::Class::Schema::Loader /;
15 __PACKAGE__->loader_class(shift);
16 __PACKAGE__->connect($make_dbictest_db::dsn);
19 package DBICTeset::Schema::2;
20 use base qw/ DBIx::Class::Schema::Loader /;
21 __PACKAGE__->connect($make_dbictest_db::dsn, { loader_class => shift });
23 make_schema_at => sub {
24 use DBIx::Class::Schema::Loader qw/ make_schema_at /;
26 'DBICTeset::Schema::3',
28 [ $make_dbictest_db::dsn, { loader_class => shift } ]
33 # one test per invocation/class combo
34 plan tests => keys(%invocations) * keys(%loader_class);
36 while (my ($style,$subref) = each %invocations) {
37 while (my ($arg, $class) = each %loader_class) {
38 my $schema = $subref->($arg);
39 $schema = $schema->clone unless ref $schema;
40 isa_ok($schema->_loader, $class, "$style($arg)");