Fix an obscure regression when inserting an object with a serialize-deflating column set
[dbsrgits/DBIx-Class-Historic.git] / t / lib / DBICTest / Schema / ForceForeign.pm
1 package # hide from PAUSE
2     DBICTest::Schema::ForceForeign;
3
4 use base qw/DBICTest::BaseResult/;
5
6 __PACKAGE__->table('forceforeign');
7 __PACKAGE__->add_columns(
8   'artist' => { data_type => 'integer' },
9   'cd' => { data_type => 'integer' },
10 );
11 __PACKAGE__->set_primary_key(qw/artist/);
12
13 # Normally this would not appear as a FK constraint
14 # since it uses the PK
15 __PACKAGE__->might_have(
16                         'artist_1', 'DBICTest::Schema::Artist', {
17                             'foreign.artistid' => 'self.artist',
18                         }, {
19                             is_foreign_key_constraint => 1,
20                         },
21 );
22
23 # Normally this would appear as a FK constraint
24 __PACKAGE__->might_have(
25                         'cd_1', 'DBICTest::Schema::CD', {
26                             'foreign.cdid' => 'self.cd',
27                         }, {
28                             is_foreign_key_constraint => 0,
29                         },
30 );
31
32 # Normally this would appear as a FK constraint
33 __PACKAGE__->belongs_to(
34                         'cd_3', 'DBICTest::Schema::CD', {
35                             'foreign.cdid' => 'self.cd',
36                         }, {
37                             is_foreign_key_constraint => 0,
38                         },
39 );
40
41 1;