More robust behavior of ANFANG.pm, also guard against sitecustomize.pl
[dbsrgits/DBIx-Class.git] / t / 63register_source.t
1 BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
2
3 use strict;
4 use warnings;
5
6 use Test::Exception tests => 1;
7
8 use DBICTest;
9 use DBICTest::Schema;
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';