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

BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }

use strict;
use warnings;

use Test::Exception tests => 1;

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
c0329273	1	BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ \|\| $! ) }
c0329273	2
5dfe40b8	3	use strict;
	4	use warnings;
	5
	6	use Test::Exception tests => 1;
c0329273	7
5dfe40b8	8	use DBICTest;
c7e85630	9	use DBICTest::Schema;
5dfe40b8	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';