[dbsrgits/DBIx-Class.git] / t / 63register_source.t

use strict;
use warnings;

use Test::Exception tests => 1;
use lib qw(t/lib);
use DBICTest;
use DBIx::Class::ResultSource::Table;

my $schema = DBICTest->init_schema();

my $foo = DBIx::Class::ResultSource::Table->new({ name => "foo" });
my $bar = DBIx::Class::ResultSource::Table->new({ name => "bar" });

lives_ok {
    $schema->register_source(foo => $foo);
    $schema->register_source(bar => $bar);
} 'multiple classless sources can be registered';
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;
5dfe40b8	7	use DBIx::Class::ResultSource::Table;
	8
	9	my $schema = DBICTest->init_schema();
	10
	11	my $foo = DBIx::Class::ResultSource::Table->new({ name => "foo" });
	12	my $bar = DBIx::Class::ResultSource::Table->new({ name => "bar" });
	13
	14	lives_ok {
	15	$schema->register_source(foo => $foo);
	16	$schema->register_source(bar => $bar);
	17	} 'multiple classless sources can be registered';