1 BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
7 use DBICTest; # do not remove even though it is not used
11 for (1 .. $src_count) {
14 package DBICTest::NS::Stress::Schema::Result::T$_;
15 use base qw/DBIx::Class::Core/;
16 __PACKAGE__->table($_);
17 __PACKAGE__->add_columns (
18 id => { data_type => 'integer', is_auto_increment => 1 },
19 data => { data_type => 'varchar', size => 255 },
21 __PACKAGE__->set_primary_key('id');
22 __PACKAGE__->add_unique_constraint(['data']);
28 package DBICTest::NS::Stress::Schema;
30 use base qw/DBIx::Class::Schema/;
33 return $_[1] eq ( __PACKAGE__ . '::Result' )
34 ? ( map { __PACKAGE__ . "::Result::T$_" } 1 .. $::src_count )
40 is (DBICTest::NS::Stress::Schema->sources, 0, 'Start with no sources');
42 DBICTest::NS::Stress::Schema->load_namespaces;
44 is (DBICTest::NS::Stress::Schema->sources, $src_count, 'All sources attached');