X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FDBICTest%2FSchema%2FTwoKeys.pm;h=7bb1965d7d50a56c68007643c0a3007118ec6750;hb=3bd6e3e0f621c4fe3d7562827a9b86ee5b91cbf2;hp=8483d0b0c286dbbc153a9138805292450f8da359;hpb=303cf522b1c2841ecab3056cfbb4314fa05151a2;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/lib/DBICTest/Schema/TwoKeys.pm b/t/lib/DBICTest/Schema/TwoKeys.pm
index 8483d0b..7bb1965 100755
--- a/t/lib/DBICTest/Schema/TwoKeys.pm
+++ b/t/lib/DBICTest/Schema/TwoKeys.pm
@@ -13,4 +13,14 @@ __PACKAGE__->set_primary_key(qw/artist cd/);
 __PACKAGE__->belongs_to( artist => 'DBICTest::Schema::Artist' );
 __PACKAGE__->belongs_to( cd => 'DBICTest::Schema::CD' );
 
+__PACKAGE__->has_many(
+  'fourkeys_to_twokeys', 'DBICTest::Schema::FourKeys_to_TwoKeys', {
+    'foreign.t_artist' => 'self.artist',
+    'foreign.t_cd' => 'self.cd',
+});
+
+__PACKAGE__->many_to_many(
+  'fourkeys', 'fourkeys_to_twokeys', 'fourkeys',
+);
+
 1;