I suck, should read code while doccing it, not assume someone else got it right!
[dbsrgits/DBIx-Class.git] / t / lib / DBICTest / Schema / LongColumns.pm
1 package # hide from PAUSE  
2     DBICTest::Schema::LongColumns;
3
4 use base qw/DBIx::Class::Core/;
5
6 __PACKAGE__->table('long_columns');
7 __PACKAGE__->add_columns(
8     'lcid' => {
9         data_type => 'int',
10         is_auto_increment => 1,
11     },
12     '_64_character_column_aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa' => {
13         data_type => 'int',
14     },
15     '_32_character_column_aaaaaaaaaaa' => {
16         data_type => 'int',
17     },
18     '_32_character_column_bbbbbbbbbbb' => {
19         data_type => 'int',
20     },
21     '_16_chars_column' => {
22         data_type => 'int',
23     },
24     '_8_chr_c' => {
25         data_type => 'int',
26     },
27 );
28
29 __PACKAGE__->set_primary_key('lcid');
30
31 __PACKAGE__->add_unique_constraint([qw( _16_chars_column _32_character_column_aaaaaaaaaaa )]);
32
33 __PACKAGE__->add_unique_constraint([qw( _8_chr_c _16_chars_column _32_character_column_aaaaaaaaaaa )]);
34
35 __PACKAGE__->add_unique_constraint([qw( _8_chr_c _16_chars_column _32_character_column_bbbbbbbbbbb )]);
36
37 __PACKAGE__->add_unique_constraint([qw( _64_character_column_aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa )]);
38
39 __PACKAGE__->belongs_to(
40     'owner',
41     'DBICTest::Schema::LongColumns',
42     {
43         'foreign.lcid' => 'self._64_character_column_aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa',
44     },
45 );
46
47 __PACKAGE__->belongs_to(
48     'owner2',
49     'DBICTest::Schema::LongColumns',
50     {
51         'foreign._32_character_column_aaaaaaaaaaa' => 'self._32_character_column_bbbbbbbbbbb',
52         'foreign._32_character_column_bbbbbbbbbbb' => 'self._32_character_column_aaaaaaaaaaa',
53     },
54 );
55
56 __PACKAGE__->belongs_to(
57     'owner3',
58     'DBICTest::Schema::LongColumns',
59     {
60         'foreign._8_chr_c' => 'self._16_chars_column',
61     },
62 );
63
64 1;