1 BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
12 local $TODO = "relationship checking needs fixing";
13 # try to add a bogus relationship using the wrong cols
15 DBICTest::Schema::Artist->add_relationship(
16 tracks => 'DBICTest::Schema::Track',
17 { 'foreign.cd' => 'self.cdid' }
19 } qr/Unknown column/, 'failed when creating a rel with invalid key, ok';
22 # another bogus relationship using no join condition
24 DBICTest::Schema::Artist->add_relationship( tracks => 'DBICTest::Track' );
25 } qr/join condition/, 'failed when creating a rel without join condition, ok';