t/63register_source.t

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