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