Commit | Line | Data |
c0329273 |
1 | BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) } |
2 | |
db29433c |
3 | use strict; |
4 | use warnings; |
5 | use Test::More; |
c0329273 |
6 | |
db29433c |
7 | use DBICTest; # do not remove even though it is not used |
8 | |
9 | our $src_count = 100; |
10 | |
11 | for (1 .. $src_count) { |
12 | eval <<EOM or die $@; |
13 | |
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 }, |
20 | ); |
21 | __PACKAGE__->set_primary_key('id'); |
22 | __PACKAGE__->add_unique_constraint(['data']); |
23 | |
24 | EOM |
25 | } |
26 | |
27 | { |
28 | package DBICTest::NS::Stress::Schema; |
29 | |
a0216b74 |
30 | use base qw/DBICTest::BaseSchema/; |
db29433c |
31 | |
32 | sub _findallmod { |
33 | return $_[1] eq ( __PACKAGE__ . '::Result' ) |
34 | ? ( map { __PACKAGE__ . "::Result::T$_" } 1 .. $::src_count ) |
35 | : () |
36 | ; |
37 | } |
38 | } |
39 | |
40 | is (DBICTest::NS::Stress::Schema->sources, 0, 'Start with no sources'); |
41 | |
db29433c |
42 | DBICTest::NS::Stress::Schema->load_namespaces; |
db29433c |
43 | |
44 | is (DBICTest::NS::Stress::Schema->sources, $src_count, 'All sources attached'); |
45 | |
46 | done_testing; |