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

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

use strict;
use warnings;

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


use DBICTest;

my $schema = DBICTest->init_schema();

my $cd = $schema->resultset('CD')->search ({}, { columns => ['year'], rows => 1 })->single;


throws_ok (
  sub { $cd->tracks },
  qr/Unable to resolve relationship .+ column .+ not loaded from storage/,
  'Correct exception on nonresolvable object-based condition'
);

done_testing;
Commit	Line	Data
c0329273	1	BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ \|\| $! ) }
c0329273	2
34b6b86f	3	use strict;
	4	use warnings;
	5
	6	use Test::More;
	7	use Test::Exception;
	8
c0329273	9
34b6b86f	10	use DBICTest;
	11
	12	my $schema = DBICTest->init_schema();
	13
	14	my $cd = $schema->resultset('CD')->search ({}, { columns => ['year'], rows => 1 })->single;
	15
	16
	17	throws_ok (
	18	sub { $cd->tracks },
	19	qr/Unable to resolve relationship .+ column .+ not loaded from storage/,
	20	'Correct exception on nonresolvable object-based condition'
	21	);
	22
	23	done_testing;