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