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