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';