1use strict; 2use warnings; 3 4use Test::Exception tests => 1; 5use lib qw(t/lib); 6use DBICTest; 7use DBICTest::Schema; 8use DBIx::Class::ResultSource::Table; 9 10my $schema = DBICTest->init_schema(); 11 12my $foo = DBIx::Class::ResultSource::Table->new({ name => "foo" }); 13my $bar = DBIx::Class::ResultSource::Table->new({ name => "bar" }); 14 15lives_ok { 16 $schema->register_source(foo => $foo); 17 $schema->register_source(bar => $bar); 18} 'multiple classless sources can be registered'; 19