Neither of these can fail now that we dep on 5.8.1 (missed in 55087b99)
[dbsrgits/DBIx-Class.git] / t / 63register_source.t
CommitLineData
5dfe40b8 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';