[dbsrgits/DBIx-Class.git] / xt / extra / diagnostics / add_invalid_relationship.t

BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }

use strict;
use warnings;

use Test::More;
use Test::Exception;

use DBICTest;

{
  local $TODO = "relationship checking needs fixing";
  # try to add a bogus relationship using the wrong cols
  throws_ok {
      DBICTest::Schema::Artist->add_relationship(
          tracks => 'DBICTest::Schema::Track',
          { 'foreign.cd' => 'self.cdid' }
      );
  } qr/Unknown column/, 'failed when creating a rel with invalid key, ok';
}

# another bogus relationship using no join condition
throws_ok {
    DBICTest::Schema::Artist->add_relationship( tracks => 'DBICTest::Track' );
} qr/join condition/, 'failed when creating a rel without join condition, ok';


done_testing;
Commit	Line	Data
dad6d9e5	1	BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ \|\| $! ) }
	2
	3	use strict;
	4	use warnings;
	5
	6	use Test::More;
	7	use Test::Exception;
	8
	9	use DBICTest;
	10
	11	{
	12	local $TODO = "relationship checking needs fixing";
	13	# try to add a bogus relationship using the wrong cols
	14	throws_ok {
	15	DBICTest::Schema::Artist->add_relationship(
	16	tracks => 'DBICTest::Schema::Track',
	17	{ 'foreign.cd' => 'self.cdid' }
	18	);
	19	} qr/Unknown column/, 'failed when creating a rel with invalid key, ok';
	20	}
	21
	22	# another bogus relationship using no join condition
	23	throws_ok {
	24	DBICTest::Schema::Artist->add_relationship( tracks => 'DBICTest::Track' );
	25	} qr/join condition/, 'failed when creating a rel without join condition, ok';
	26
	27
	28	done_testing;