fixed sql mistakes from hierarchical query tests
[dbsrgits/DBIx-Class.git] / t / 63register_source.t
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';