X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FDBICTest%2FSchema%2FCD_to_Producer.pm;h=b4b064a7cd2328c6d3121db50e905c5174342be8;hb=6e22e629bb00f5c721a6fbec0017596c1e28dde3;hp=4c111c4ec26f9bf246fba1fad606e7a20b410345;hpb=30a8108e0f21f217adc36243fd2f58d53e89e924;p=dbsrgits%2FDBIx-Class-Historic.git

diff --git a/t/lib/DBICTest/Schema/CD_to_Producer.pm b/t/lib/DBICTest/Schema/CD_to_Producer.pm
index 4c111c4..b4b064a 100644
--- a/t/lib/DBICTest/Schema/CD_to_Producer.pm
+++ b/t/lib/DBICTest/Schema/CD_to_Producer.pm
@@ -1,9 +1,29 @@
-package DBICTest::Schema::CD_to_Producer;
+package # hide from PAUSE
+    DBICTest::Schema::CD_to_Producer;
 
-use base 'DBIx::Class::Core';
+use warnings;
+use strict;
+
+use base qw/DBICTest::BaseResult/;
 
 __PACKAGE__->table('cd_to_producer');
-__PACKAGE__->add_columns(qw/cd producer/);
+__PACKAGE__->add_columns(
+  cd => { data_type => 'integer' },
+  producer => { data_type => 'integer' },
+  attribute => { data_type => 'integer', is_nullable => 1 },
+);
 __PACKAGE__->set_primary_key(qw/cd producer/);
 
+# the undef condition in this rel is *deliberate*
+# tests oddball legacy syntax
+__PACKAGE__->belongs_to(
+  'cd', 'DBICTest::Schema::CD'
+);
+
+__PACKAGE__->belongs_to(
+  'producer', 'DBICTest::Schema::Producer',
+  { 'foreign.producerid' => 'self.producer' },
+  { on_delete => undef, on_update => undef },
+);
+
 1;