4 use Test::Exception tests => 1;
7 use DBIx::Class::ResultSource::Table;
9 my $schema = DBICTest->init_schema();
11 my $foo = DBIx::Class::ResultSource::Table->new({ name => "foo" });
12 my $bar = DBIx::Class::ResultSource::Table->new({ name => "bar" });
15 $schema->register_source(foo => $foo);
16 $schema->register_source(bar => $bar);
17 } 'multiple classless sources can be registered';