More robust behavior of ANFANG.pm, also guard against sitecustomize.pl
[dbsrgits/DBIx-Class.git] / t / 63register_source.t
CommitLineData
c0329273 1BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
2
5dfe40b8 3use strict;
4use warnings;
5
6use Test::Exception tests => 1;
c0329273 7
5dfe40b8 8use DBICTest;
c7e85630 9use DBICTest::Schema;
5dfe40b8 10use DBIx::Class::ResultSource::Table;
11
12my $schema = DBICTest->init_schema();
13
14my $foo = DBIx::Class::ResultSource::Table->new({ name => "foo" });
15my $bar = DBIx::Class::ResultSource::Table->new({ name => "bar" });
16
17lives_ok {
18 $schema->register_source(foo => $foo);
19 $schema->register_source(bar => $bar);
20} 'multiple classless sources can be registered';