X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FDBICTest%2FSchema%2FHelperRels.pm;h=1fb8886aaea0a1aa62ea1b56bd6d5cd4e0845db5;hb=f9cc31dddebb6a36835c11348680ccd7d70939cc;hp=63191ea91b9b3522b6eb44367e79a345e70c7ed6;hpb=1e3bc087549802d6761d11184eee1ee32b9dc797;p=dbsrgits%2FDBIx-Class-Historic.git diff --git a/t/lib/DBICTest/Schema/HelperRels.pm b/t/lib/DBICTest/Schema/HelperRels.pm index 63191ea..1fb8886 100644 --- a/t/lib/DBICTest/Schema/HelperRels.pm +++ b/t/lib/DBICTest/Schema/HelperRels.pm @@ -1,4 +1,4 @@ -package DBICTest::Schema::BasicRels; +package DBICTest::Schema::HelperRels; use base 'DBIx::Class::Core'; @@ -11,13 +11,13 @@ DBICTest::Schema::CD->belongs_to('artist', 'DBICTest::Schema::Artist'); DBICTest::Schema::CD->has_many(tracks => 'DBICTest::Schema::Track'); DBICTest::Schema::CD->has_many(tags => 'DBICTest::Schema::Tag'); +DBICTest::Schema::CD->has_many(cd_to_producer => 'DBICTest::Schema::CD_to_Producer' => 'cd'); DBICTest::Schema::CD->might_have(liner_notes => 'DBICTest::Schema::LinerNotes', undef, { proxy => [ qw/notes/ ] }); DBICTest::Schema::SelfRefAlias->belongs_to( self_ref => 'DBICTest::Schema::SelfRef'); - DBICTest::Schema::SelfRefAlias->belongs_to( alias => 'DBICTest::Schema::SelfRef'); @@ -27,11 +27,34 @@ DBICTest::Schema::SelfRef->has_many( DBICTest::Schema::Tag->belongs_to('cd', 'DBICTest::Schema::CD'); DBICTest::Schema::Track->belongs_to('cd', 'DBICTest::Schema::CD'); - DBICTest::Schema::Track->belongs_to('disc', 'DBICTest::Schema::CD', 'cd'); DBICTest::Schema::TwoKeys->belongs_to('artist', 'DBICTest::Schema::Artist'); - DBICTest::Schema::TwoKeys->belongs_to('cd', 'DBICTest::Schema::CD'); +DBICTest::Schema::CD_to_Producer->belongs_to( + 'cd', 'DBICTest::Schema::CD', + { 'foreign.cdid' => 'self.cd' } +); +DBICTest::Schema::CD_to_Producer->belongs_to( + 'producer', 'DBICTest::Schema::Producer', + { 'foreign.producerid' => 'self.producer' } +); +DBICTest::Schema::Artist->has_many( + 'artist_undirected_maps', 'DBICTest::Schema::ArtistUndirectedMap', + [{'foreign.id1' => 'self.artistid'}, {'foreign.id2' => 'self.artistid'}], + { cascade_copy => 0 } # this would *so* not make sense +); +DBICTest::Schema::ArtistUndirectedMap->belongs_to( + 'artist1', 'DBICTest::Schema::Artist', 'id1'); +DBICTest::Schema::ArtistUndirectedMap->belongs_to( + 'artist2', 'DBICTest::Schema::Artist', 'id2'); +DBICTest::Schema::ArtistUndirectedMap->has_many( + 'mapped_artists', 'DBICTest::Schema::Artist', + [{'foreign.artistid' => 'self.id1'}, {'foreign.artistid' => 'self.id2'}]); + +# now the Helpers +DBICTest::Schema::CD->many_to_many( 'producers', 'cd_to_producer', 'producer'); +DBICTest::Schema::CD->many_to_many( 'producers_sorted', 'cd_to_producer', 'producer', { order_by => 'producer.name' }); + 1;